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) 一 23:30@ テ レビ 静岡 24 :35 — 
日 本 放送 7:00 一 7:30 @ 南 海 放 
…※ 以下 の 放送 局 で は MZ- 550( 
24:10 @ 東 北 放送 23:45 一 24:15 @ 新 潟 放送 7:00~7:30 @ 長 野 放 送 9:30 — 10: 

レビ 西日本 24:36 一 25:06 @ 山 梨 放 


東京 9:30 一 10:00 @ テ レビ 愛知 9:30. 
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バー ソナ ルコ ンピュータ 標準 価格 89, 800 円 


写真 の 14 型 カラ ー デ ィ ス プレ イ MZ-1D15B 標準 価格 72.000 円 は オプ ショ ン で よむ 
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< 創造 力 を か きた て る クリ エイ ティ プ パ ワー>@ グ ラフ ィ ッ ク は 320X 
200v РВЕ 4-243: 00 PCG. また は 1000 文 字 の PCG が 
使い 分 けら れる クリ 4 ティブ 設計 但 6 オ クタ ー ブ 3 重 和音 の 
PSG を 2 チャ ン ネ ル 装 備 @34 種 の メッ セー ジ を 登録 し た 
ボイス ポー ド ( オ プシ ョ ン ) を 使え ば 、MZ-1500 が し ゃ べ る 
パソ コン に @ 漢 字 対 応 BASIC(QD) 装 備 、「 住 所 録 」 
な どす ぐに 使え る ソフ ト 付 GEAR VU 3Y > ORAM 
ファ イル MZ-1R18 標準 価格 18,000 円 ボイス ボ 
ー ド MZ-1M08 標準 価格 10,000 円 @ 漢 字 ROM 
ボー ド MZ-1R23 標準 価格 19,800 円 る 辞書 
ROM ボ ー ド MZ-1R24 標準 価格 22.000 円 


※ 画面 は ハメ コミ 合成 で 、 ユ ニ バ ー ス (ゴス モス 岡山 ) 制 作 の 「 ロ ー ド ラン ナー」 よ り 
※ ロ ー ト ラン ナー は USA Broderbund Software Inc の 登録 商標 で す 


(= FA 91:20 ДОШ 


442722437 : FM シリ ー ズ の ハー ド か ら ソ フト まで 一 挙 に 展示 実演 、 あ な た の パソ コン の コン サル タン ト と し て ご 活用 くだ さい 。 @ 東京 ・ 虎 ノ 門 (03) 591-1091 591-2561 東京 ・ 秋 葉 原 (03) 251-1448 札幌 < 時 計 台 ビル > 
(011) 222-5476< 丸 井 今 井 > (011) 241-4185 仙台 (0222) 66-8711 ө 名 古屋 < アメ 横 ビル > (052) 251-7231 ө 大 阪 (06) 344-7628. 341-0486 e 広島 (082) 247-3949 ө 福岡 < 開設 準備 室 〉(092) 471-7203 


富士 通 株 式 会 社 : @ パ ソコ ン 販 売 推進 部 (03)502-0161 
e 名 古屋 営業 所 (052)201-8611 
園 3.5 イ ンチ マイ クロ フロ ッ ピ イデ ティ スク は 、 富 士 通 純正 品 を ご 使用 くだ さい … お 問い 合わ せ は 富士 通 サプライ 株 式 会 社 人 (03)434-0141 


e 大 阪 営業 所 (06)344-1101 


パソ コン に FM 時 代 を 拓 い た 富士 通 か ら 、 天 才 肌 の 
新鋭 登場 。 あ の 名 作 FM-7 を 思い きり グレ ー ド アッ 
フ 。 そ の 名 も FM-77 で す 。 目 を 見 は る 新 機軸 、 息 を の 
む 多 機能 、 し か も 豊富 な ソフ ト は そっ くり その まま 継 
承 。 も う 想 像 力 に 歯 ど の め の き か な い ヒ ラメ キ の 連続 で 
+, シン プル で 知 的 な デザ イン も 、 一 歩 限度 を 超え ま 
し た 。 も っ と スリ リン グ に 、 さ ら に エキ サイ ティ ング に 、 い 
よい よ エ ンタ ー テ イニ ング に 。FM-77、 い ま 発 進 で す 
3.5 イ ンチ マイ クロ フロ ッ ピ イィ ディ スク を 採用 。 

FM-77 は 、3.5 イ ンチ の マイ クロ フロ ッ ピ イ テ イ スク ドラ イブ 
を 2 基 搭 載 。 デ イス ク は 、 こ れ ま で の 5 イン チミ ニ フ ロ ッ レ ピ イ 
テイ スク と ソフ トコ ン パ チ で 、 し か も 320KB/ ド ライ ブ と 、 小 
型 ・ 高 密度 化 を 実現 し まし た 。 

漢字 ROM(JIS 第 1 水準 漢字 2.965 種 ) を 標準 実装 。 
レポ ー ト 、 手 紙 な ど 、 る ま ざ ま な 用 途 に 活用 で きま す 。 

2 個 の CPU が フル 稼動 。 

CPU の 役割 を 2 分 する と いう 、 汎 用 コン ピュ ー タ の 設計 思 
想 を 受け 継い ど ア ー キ テク チャ を 採用 し まし た 。 

メイ ン メ モリ は 64KB。 増設 は 最大 256KB ま で 。 

64KB の メイ ン メ モリ を 標準 実装 の ほか 、192KB RAM 
カー ド “* を 装着 し て 、 最 大 256KB ま で の 拡張 が 可能 で す 。 
※ オ プ ブ " シ ョ ン (400 ラ イン セッ ト に 含ま れ て いま す T) 

F-BASIC V3.0 が 多彩 な 機能 を サポ ー ト 。 


FM-77 の ブロ グラ ム 言 語 は 、FM-7 と 完全 互換 の F- 


BASIC V3.0。 人 豊富 な ウフ ト が を その まま 使え る うえ 、 ノ パレ ッ ト 
機能 、 サ ウン ド 機 能 な ど 数 か ず の 機能 を サポ ー ト し ます 。 
ユー ザ フ レ ンド リ な 言語 
FM Logo を 標準 添付 。 


スー パー イン ポ ボーズ“ で 
オリ ジ ナ ル の 映像 づく り 。 
テレ ビ や VTR な どの 画 
RL パソ コン の 文字 や 
グラ フィ ッ ク バ パパ ターン が 
ドッ キン グ 。 VTR へ の 
録 男 も 可能 で す 。 

* オ プシ ョ ン の スー パー イン 
ポー ズ ユ ニッ ト が 必要 で す 。 


高 性 能 プラ ス 多 才 の е dup -// 
FM-77 は 、 640x200 デイ スク と ソフ ト て で て 差 を つけ る 天才 パソ コン 
ドッ ト の 高 分 解 能 表示 


が 魅力 で カラ ー モ ー 
ド 時 は 、1 ド ッ ト ご と に 8 色 
まで の 色 指 定 が で きる 
ほか 、 テ キス ト と の 混在 


FM- 


uon, dg 


X228 OOO === 


ディ スク ドラ イブ 1 基 タ イプ \198.000 も あり ます 


表示 、 ド ッ ト ご と の 色 交 換 も 0K。400 ラ イン カー ド "ASI 
に 装着 すれ ば 640X400 ド ッ ト と いう 高 精度 の 表示 も 可能 
に な り ま す 。 

※ オ プ " シ ョ ン (400 ラ イン セッ ト に 含ま れ て いま す ) 

サブ プシ ステ ム の 充実 で 、 画 像 処理 が さら に 高速 化 。 
FM-77 は 、V RAM の アク セス 方 式 に サイ クル スチ ー ル を 
導入 。 描 画 速度 が 最高 で な ん 2 倍 (FM-7 比 ) に アッ プ 
し まし た 。 また 、 高 速 の 漢字 表示 が 、 日 本 語 ワ ー プ ロ や 漢 
字 端末 と し て の 利用 価値 を 高め ます 。 

音 に も 熱中 。8 オ クタ ー プ ・ 三 重 和 斉 の サウ ンド 機能 。 
操作 性 抜群 の キー ボー ド 。 

レイ アウ ト 自 在 の セパ レー ト タ イ プ 。 


大 容量 1MB/ ド ライ ブ の フロ ッ ピ ィ テ ディス ク を サポ ー ト 。 


を $F-BASIC V3.5、0S -9 お ょ び CP/M-80 に て サポ ー ト 。 


拡張 性 に 優れ た カー ド 群 。 

0400247» 

①400 ラ イン カー ド ② 増 設 用 192KB RAM カ ー ド 
(ӘЕ-ВАЅІС V3.5 ④ 日 本 語 ワ ー プ ロ 

@ 各種 オプ ショ ンカ ー ド 

RS-232C、MIDI、 マ ウス な ど 。 

広がる アプ リケーション に 対応 する ソフ トウ ェ ア 体 系 。 
@F-BASIC V3.5(400 ラ イン セッ ト に 含ま れ て いま す ) 
@OS-9 Level 1/Level 2" (*400 ラ イン セッ ト が 必要 で す ) 
@CP/M-80® (Z80 カ ー ド が 必要 で す ) 

※CP/M-80⑤ は 、 デ ジタル リサ ー チ 社 の 登録 商標 で す 。 


すぐ れ た コス ト パ フ ォ ー マ ンス を 実現 し た 興奮 パソ コン . 


F'M-NW[ 7] anam 


ソフ ト は 定評 ある F M-7 と 完全 互換 、 し か も 数 か ず の 卓越 し た 
機能 を すべ て 継承 し まし た 


@ 札幌 営業 所 (011)271-4311 東北 営業 所 (0222)64-2131 e 人 金沢 営業 所 (0762)63-7621 ee 長野 営業 所 (0262)26-8222 e 静岡 営業 所 (0542)54-9131 
@ 広島 営業 所 (082)221-2288 高松 営業 所 (0878)51-8167 © 九州 営業 所 (092)411-631]1 沖縄 営業 所 (0988)66-0655 


ルン ワル タ ィ ムコ シン スト ラク ショ ング ゲー ム 


バラ ノイ ア 66 


© 頭 を 使っ て 迷路 を 変更 し 、 エ イリ アン を 封じ 込め 、 ピ ラミ ッ ド の 秘宝 を 探せ 。 
6 も ちろ ん 初期 画面 作成 エディ ター も 付い て いて 、 簡 単に 変更 で きま す 。 


PC-8801/mkIT ------- テー ブフ 版 \4.000 5FD 版 \6.800 


画面 朋 時 切り 換え (X-1 は 四方 向 ス クロ ー ル )…… で いい いい 無論 / 
*64K 72х17 — Ж Л, VERE e e M MH 7] 88 / 
文 一 括 ロ ー ド 、 СУ (‚Ө 当然 / 


太 さ ら に 加え て 、 華 鹿 な グラ フィ ックス と 高度 な 重ね 合わ せ 処 理 に よる 
立体 画面 。 水 に 没 し 、 木 に か くれ 、 なめらか に 動く キャ ラク ター は 、 広 大 
な マッ プ 上 を 駆け 巡り ます 。 


LEGENDS OF HYDLIDE IN FAIRYLAND 
кинини Ды | a E 
美しい 王国 『 フ ェ ア リ ー ラ ンド ” は 3 つの 宝石 が ある こと で 王国 の 平和 は 
保 た れ て いま し た 。 ある 日 悪し き 者 に よっ て を の 宝石 は 持ち 去ら れ て し まい 、 
王国 は 退廃 し 、 遂 に 神話 伝説 最強 の 悪魔 『 バ ラリ ス ” に よっ て 王国 は 減 
ば る きれ 、 王 家 の 次 女 も 魔力 で 妖精 に きれ て し まっ だ た 。 こ の 悪魔 の 仕業 に 
耐え か ね だ た 若者 ジム は 、 王 国 再 建 の た め に 、 た っ た 1 人 て 怪物 た だ ち に 挑 
戦 し て いっ た 。 


PC-8801/mkII (526)... 5FD 版 ¥6,800 
X-1/C (写真 左 ) Рр Si Su a а. テー プ 版 ¥4,800 


FFA 


ARA. 


1 年 間 温め た T&E の 技術 と 創造 を ここ に 集結 . グ 
O 新 開発 高速 3-D ピ クチ ャ ー エ ディ ター (中 間 色 ー リ ー の 展開 上 、 内 容 は 公開 で きま せん 。) 


ペイ ント を 含む 図形 の 拡大 、 縮 小 、 回 転 、 合 成 が 〇 ⑧ ロ ー ル プレ イン グ ゲ ー ム の 要素 も 加え 、 シー ン 1 

自在 に で きる ) に よる ニュ ー 画面 。 (カセ ッ ト 1) だ け で も 60 以 上 の 地区 (画面 ) を 自由 
© 同じ 場所 に 、 同 じ 人 物 が 同じ 格好 で いる 不 自 然 る に 移動 で きま す 。 

は 無く な り ま し た 。 (マッ プ の 中 を 登場 人 物 が 別個 oa pom Qus cen dun: И 

に 移動 し て いる の で す 。) | 注 |IPC-600ImkII/660| 版 は 、 3-D ピク チャ ー エディ ター は 


о PM x у 使用 し て いま せん が 、 新 開発 の 高速 グラ フィ ッ ク エ ディ タ 
〇 画面 数 、 コ マン ド 、 会 話 数 も 前 2 作 よ り 大 幅 ア ッ フ 。 ー に より 、 一 画面 表示 は 暗黒 星雲 の 倍 の スピ ー ド と な っ 


〇 登場 人 物 は 、 お 原 み の キャ ラク ター は も ちろ ん 、 全 て いま す 。3-D シ ミュ レー ター は 疑似 3-D と な っ て いま す 。 
20 キ ャ ラク ター 以上 が 登場 。 

〇 リアルタイム シー ン は 、 ワ イヤ ー フ レー ム に よる 高速 
リア ル タ イ ム 3-D シミ ュ レ ー タ ー (残念 な が ら 、 スト 


FML77WEW 7777( テ ー ブ 版 ・5 印 版 ・35FD 版 。。 QE er me ar 
LI m MS ARARA 


テー プ 版 (カセ ッ ト 3 本 組 )4.800 円 FU 版 65.800 円 


デザ イン 一 新 // の 多発 行 中 /| TgE マ ガ ジ ン No.4 2755 


—— F —Iv—vu_,_adDI—Q- —- n — —P  —M,r—PDYr—F-h 
je ue | 製造 ・ 販 売 / 株 式 会 社 テ ィ ー ア ンド イー ソフ ト 2 (052)773-7770 
mR | T&ESOFT 事 務 所 の 住所 が 、 次 の よう に 変更 に な り ま し た 。 尚 、 電 話 番号 は 従来 通り で す 。 ンー 
— Piol AS | F465 名 古屋 市 名 東 区 豊 が 丘 1810 番 地 


X 通信 販売 ご 希望 の 方 は 現金 書留 で 料金 と 商品 名 ・ 機 種 名 を 明記 の 上 当社 宛 お 送り 下さ い 。 (送料 サー ビス ・ 束 達 希 望 の 方 は 300 円 プラ ス ) 


MRK , 文 T&E マガ ジン No.4 ご 希望 の 方 は 、100 円 切手 2 枚 (200 円 分 ) を 同封 の 上 マガ ジン 請求 券 を お 送り 下さ い 。 
s Piol2 月 号 | T&EsSOFT の 新しい カタ ログ (No.3) が で きま し た 。 ご : 項 望 の 方 は 100 円 切手 同封 の 上 、 カ タロ グ 請 求 券 を お 送り 下さ い 。 
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| ラス ト : : は ら JIN ノ 北野 5/3 S EKOh : | 


カセ ッ ト 定休 3.800 円 {Е/^ УЕ 


HISCORE | の の 7/ 1898s. SCORE 
bas "788ILE 


Ja1A74727£:XllG-HAM& 


ж-ж RE R7 YY TH 587) RB A —28 cR 
к. y? 機甲 戦士 . 戦闘 艦 一 それ は 無尽 蔵 の ミサ イル ・ エ ネル ギー と 短 距 離 バ ズー 
E L カ 砲 を 持つ ホバー クラ フト . この 2 つの 兵器 を 戦況 に 応じ 合体 ・ 離 脱 さ せな 
が ら , メ イン ・ シ ステ ム 破 壊 を めざす . ジ ョ イス ティ ッ ク ( 行 動 系 ) と テン ・ 
2 クア ク イラ 72 王 朗 02426 衣 紅 キー( 攻 撃 系 ) の 一 体操 作 に よる ダイ ナミ ッ ク な か な 操作 感 に . ホ バー 戦士 は 

スク ロー ル す る 洞窟 基地 は 20 面 か 瑞 機甲 戦士 た も の アニ メチ ッ ク な 動き に , 君 は 必ず 夢中 に な る . 


カセ ッ ト 定価 3,800 円 5"PD デ ィ スク 定価 5.00 円 
ジョ イス ティ ッ ク 可 TE/SUANI 


X1 ERU 


エネ ルギー チャ ー ジ が 10,000 に 達する と 戦闘 機 形 態 か ら 機 甲 戦士 形態 に 変形 
L, 戦力 も 強力 され る 最新 鋭 兵 器 AS-TURBO, 8 方 向 ス クロ ー ル 宇宙 に て 前 
A S (武装 強化 機甲 戦士 ) 軍 団 と 激突 する ./ 敵 A S を 送り 出す 母船 と AS を 全 
Ша, 次 の 戦域 へ ワープ . し か し 破壊 で き な け れ ば 永遠 に その 戦域 て 戦う 
HU. そし て 被弾 する ご と に シー ルド は 0 に 近づく …… 堅 張 と 死 の 戦い を 操 
縦 テ ク と レー ザー て 切り ぬけ , 第 6 戦域 に 出現 する 大 要塞 に 迫 れ ./ 全 30 面 . ノ 


DEN шш юш жш ç “жө жш бш r” PYDI 


左上 : 戦闘 機 形 態 AF : 機甲 戦士 形態 


F カセ ッ ト {й3,800Р3 5 PD ディ スク 定価 5 800 円 


バト ルポ ボッ ド 


鳥 脚 歩行 型 の バト ル ・ ボ ポッド は 現在 考え 得る 最新 の テク ノロ ジー を 結集 し た 
奇襲 攻撃 戦士 . ミサ イル , 近 距 離 用 爆弾 , 高射 ビー ム の 3 つの 兵器 を 装着 し, 
ロケ ッ ト に より コン トロ ー ル する RCJS と 呼ば れる ジャ ンプ ・ シ ステ ム を 

NO b し て いる 。 aswa wataqe ボッ ド て 瑞 武 装 基地 を 突破 する 命 を 受け 
? HIGH BEDRE 025550 . 使い こなせ ば , Ж), ジャ ンプ し , ロケ ッ ト ・ コ ント ロー ルレ し, 3 種 の 武 
3 次 元 的 に スク ロー ル す る 敵 基 地 も リア ル ! Келе. 空中 兵器 と 闘う SF アニ メ 顔 負け の シー ン が 展開 する 、 


カセ ッ ト 定価 3.500 円 {Е/ Ж.-Ж. У 


П Vi, T - й Ш 


敵対 する バイ オ ・ ロ ボ 軍 団 同士 が 相手 の 指令 部 占領 を めざし 激突 する ロボ ッ 
ト ・ バ トル ・ シ ミュ レー ショ ン . 移動 力 , 機動 力 , 武力 , 耐久 力 の 異な る 5 台 
の バイ オ ・ ロ ボ を 操作 し 2 つの シー ン で て 戦闘 が 展開 する . 森 や 河 な ど 地 形 の Ü 
影響 を 受け る 思考 型 戦場 シー ン で は , 5 台 の バイ オ ・ ロ ボ そ れ ぞ れ の 個性 を 理 ШШ 
解 し 進軍 させ る 作戦 能力 が 問わ れ , バイ オ ・ ロ ボ が 激突 する リア ル タ イ ム 戦 闘 WE 
シー ン で は ロボ 本 来 の 戦力 を 引き 出す 戦闘 技術 が 要求 され る . 〇 2 人 用 ゲー UE 
ム 〇 ジョ イス ティ ッ ク 対 キー ボー ド 及 び ジ ョ イス ティ ッ ク 同 士 で 遊べ ます . 

写真 上 ・ リ アル タイ ム 戦 闘 シ ー ン 写真 下 ・ 思 考 型 戦場 シー ン 
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宙 あ き 島 に 流れ 着い た 我ら が 主人 公 “ 小 犬 の ムク “が 昔 の 海賊 た 
ちの 金貨 の 袋 を 発見 し た .「 よ し , 全部 集め ちゃ え 」 と , 洞窟 の 
出口 に 運び 出 そ う と する と , 「 金 貨 を 返せ . ノ 」 と 暗 聞 に 
me 。。 目 を 光ら せ た 骸 骨 た ち が 追 いか け て きた // 彼 ら に 囲ま 
Y ゴミ れ た ら , も う 身 動き が と れ な い …… 秘 技 や 聖なる 十字 
w AD 架 を 使い 金貨 を 手 に 入れ る リア ル タ イ ム 思 考 ゲ ー ム . 


5 CD ディ スク 定価 5,800 円 


ムク の 郵便 屋 


宝島 か ら や っ と の こと で ぬけ 出 た ムク , 今度 は アル トコ 街 に や 
っ て きた . そこ で 始め た 郵便 配達 の アル バイ ト . 街中 迷路 に な 
っ て いる うえ , ポス ト の 入口 が 壁 に 面 し て いた り , 配達 を 邪魔 
する ゴジ ゴジ , ワニ ワニ が 迫っ て きた り …… 行 き 止 まり の ポス 
ト に ハガキ を 入れ る に は “動く 青い 壁 ツ を どう 動か すか が 問題 . 
動か し 順 を 間違え る と 配達 不可 能 に な る ポス ト が ある の だ ,/ 


カセ ッ ト 03,80 age 早川 栄 大 


リア ル づ リレー サー 


N-BASIC モ ー ド な ら で は の ハイ ・ ス ピー トド が 実現 し た 
抜群 の 加速 性 能 , 独立 し た アク セル , プ ブレーキ, ハン 
ドル (416| キ ー) の リア ル な 操縦 感 」 高 性 能 R S ター 
ボ で ハイ ウェ イ を ぶっ と ば せ . ノ スム ー ズ に 曲っ て ゆ 
く 〈 く カープ ブ を 見 事 に 表現 し た 3D 画 面 . 信 か ら 夜 へ 
移る 風景 や ハン ドル を 切る と 流れ る ビル も ムー 
ド 満 点 . そ を し て レー シン グ ・ ド ライ バー は 君 だ ./ 


カセ ッ ト 定価 4.800 円 
5"?D デ ィ ス ク 定価 5,800 円 
hth EM4,800 Е / EAR) 


EEG 


: 

i 
EE Us 
ames "Ni 


ご 存 知人 気 の ウ ッ ト イ に S 1 版 が 登場 し て , あの 魔 可 不 思 議 な 世界 て 遊ぶ 仲 
間 が また 増え そう だ ., パン チ を くり 出す 憎い ボク サー や 爆弾 を 落と す 危 険 な 
ラン プ も , うま く 使 えば 強力 な 味方 . 便利 な 乗物 の エレ ベー タ や 飛ぶ じゅ う 
た ん も , へ た に 使え ば 死 の 道具 .、 その あたり を 良く 理解 すれ ば あと は 簡単 . 
プ ブロッ ク 積 ん で ,。 ジャ ンプ し て , トラ ン ポ リン て 飛ん で , ゴー ル ヘ ドタバタ 
急ぎ まく れ ./100 面 あっ て ,。 オリ ジ ナ ル 面 を 作る コン スト ラク ショ ン つ き . 


この マー ク の 付い た ゲー ム は コン スト ラク ショ 
ン ・ セ ッ ト 付 、 あ な た の セン ス て 自由 な 面 作り 、 
アレ ンジ が 楽し め ま す 、 


うつ の 綿 が ら S1 ユ ー ザ ー の チャ ヤレ シン シ ジ を 待つ て いる / 
の 人目 ウッ トイ ・ コ ンス ト 賞 〔50 名 ]」 あな た が 作っ た コン スト 画面 を 写真 で . 

還 ウ ッ ト イ 100 面 クリ ア 賞 [100 名 〕 100 面 クリ ア 後 の パス ワー ド を ハガキ で . 
時 シオ ヌス ・ ハ イス コア 賞 [100 名 ] あな た が 出し た スコ ア の 画面 を 写真 で . 
賞品 は ウッ トイ ・ ト レー ナー// 主催 1/O 編 集 部 詳細 は 1/O12 月 号 


КОЛ = 


KD SE = 


dB-SOFT 
LAD MSX 7 


合体 メカ ・ ヴ ォ ル ガー ド / 


地下 資源 を 狙い 、 毅 いか か る オル ゴン トラ スト 。 惑 星 ト ライ 
ダル の 危機 に ヴォ ル ガ ー ド は 試作 段階 の まま 投入 され た 。 
キミ の 使命 は 、 次 々 に 現われ る 戦闘 機 を か わし 、 格 戦 形 
態 に 変形 、 趣 巨大 母艦 を 破壊 する こと で ある 


ハイ スコ ア を 出す と 、 名 前 が 入り ます 。 キ ー ボ ー ド か ら ア ルフ ァ ベ 
ッ ト で 入力 し 、 回 を 押し て 下さ い 。 8 文字 まで 登録 で きま ます 


ゲー ム は 全部 で 5 面 。 スピ ー ド は 5 段階 。 だ か ら 25 通 り の ゲー ム が 
楽し め ま す 。 PC-8801 は [| STOP | 、X| は | SHIFT || BREAK |, 
FM-7 は | BREAK | キー で 表示 され ます 。 ファ ンク ショ ン キ ー で 指 
定 し て 下さ い 。 
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n ORA r= 


こっ ちの 位置 を 確か め 、 狙 AES CCS, その 間 を すり 抜け | | HHI 
い を 定め て 体 当 り し て くる る 。 | ドット ずれ て も 、 撃 墜 され る gS FART. mI HE 
: NAM 


Сох, 9804 正確 に 高度 を 読む こと 。 WEN 同時 に 3 発 届 っ НЬ, was 
ОООО d 
LI Aul 
< 5 無限 ルー プ に 入る 前 に ぐっ と 接 


か っ て くる と ころ て ば 、 撃 破 も 可能 て くる 
а £. さっ と 逃げ | a 
М - 2. また は 、 狙い ۰ 
17.5 ETIAM 
m Lm ta PA f 
De | BTR ー PER 近 す る と 引込 む 。 これ も 、 数 発 


=. 
[e HE ИНН | ^ CH 破 で きる 。 
| B uo. ШИШЕ n 
r 42 ミサ イル を ИҢ! ү n 
PN xs; ШШШ 


m 5c m. # ミサ イル は 真直 に し か 飛ば な い 。 だ 
っ て 通り すぎ る か と 思う と 、 後 か ら 発射 後に 、 高度 を か える 。 発射 


i px ろか ら 追 っ て くる 。 前 に 攻撃 し て し まう の も 手 。 
| T | テク ニッ ク | 
写真 は PC-8801 用 を 使用 Vu ПЕ." ETL 
し て いま す 。 RM EUR 右 か ら 左 に 素早 く 飛び < 回 り 込ん て 来る 
ade И 前 に 、 全 て や っ つ BS 
анааан KEDEL EM. - E 
acm trn gne со тиа | NO : 
に くい 。 Lim 
次 々 に 弾 を 投下 。 画 КОС а 
面 中 が 弾 だ ら け に な る 。 に か わす ы 
z 
と に か く 強 い 。 一 ws 
定 の 攻撃 が 終る ま т ШЕ ршн 
で 、 弾 の 問 を < ぐり Шу ыы : —Ü | 
抜け 、 ひたすら 耐 ー рр ирани 
XS š #111107 
| : r 高度 を 合わ せ て 一 発 
` pe 必中 。 素早 く 去っ て 行く 。 
1T 


必要 な の は 、 TM RNC 
鋭い 判断 力 と 人 並み は ずれ た 反 209775. 高度 を 合わ せら れ な 
射 神経 。 常人 は 画面 が 止ま る 隠 いよ うに 、 ジグ ザク 飛行 を する の 
し コマ ンド を ご 利用 下 さい 。 も コツ 


x ハー ド に より 画面 構成 、 ゲ ー ム 仕様 が 異な り ま す 。 
IMSX は マイ クロ ソフ ト 社 の 商標 で す 。 

П ご 注文 は 圏 現金 書留 : 当社 'Pi0」 係 まで 。 ВИА: :・「 た くぎ ん 札幌 駅 前 支店 普通 
053-053」。 ORE OEL 個数 HRN ӨКЕ 念 電 話 番 号 を 書い た 
メモ を 同封 (銀行 振込 の 場合 は 、 ハ ガキ に 記入 ) の うえ あら か じ め こ 連絡 下さ い 。 
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夏休み を 全部 使い 果たし 
て 、200 面 クリ ア し た 。 宿題 
で けん か っ た だ よー 。 

河内 長野 市 武田 朗 さ ん 


と て も ムズ カシ か っ た だ けど 、 
や り が い が : あ り ま し だ 。 に ん 
て 一 し ょ 下 8 い ん 


は じ め は 子ども に と 思っ て 買 HE R 茂 太 さん 


いま し だ が 、 今 は 子ども が 寝 
て か 6 夫婦 で 楽し ん で いま 
+ 思考 型 い うだ け あ っ て 、 
大 人 で も 充分 楽し め ま あ る 
甲府 市 尾形 章子 さん 


200 面 も あっ て 得 し た 気分 。 
300 面 で も ヨカッタ ……・ o 
仙台 市 村上 潤 さ ん 


TOTAL SOFTWARE HOUSE | 


思え ば 、 長 (ツラ イ 日 々 で 
し た 。 や っ と 200 面 達成 し 
すし た 。 

豊中 市 森本 俊 爾 さん 


僕 の いな い 間 に 、 BEDUE 
し ん で いる よう で す 。 勉強 
し ろ と 言わ れ な 〈 く な り ま し た 。 
感謝 

枚方 市 山本 高 之 さん 


1 つの ゲー ム な の に いろ い 
ろ な 変化 が あっ て 200 面 あ 
っ て も 全く あき な い 。 また 、 X 
ー ワ ー ド が ある & 途 中 から 
始め られ 便利 。 画 面 も きれ 


OORL, サウ ンド も 最高 。 


東村 山 市 
武田 和徳 さん 


プー ビー の アイ ドル キャ ラン ツー 


『 リ パッ くん 


GAS NA 電球 半生 
M GNE NES UR эр 


HH 


1l 
LE. 


ш — 279 4,500 円 (Xx1 用 ・Pc-8801 用 ・FM-7 用 ・PC-6001mkII)〕 
BT7T—7Z7bhR- oA UA a s apy ОЛКЫ... ўе 3,800 円 (Msx 用 (57 画 面 ) ) 
BODRR рр ТУО 4.80003 (vz-15008) 
те 画 3 イ ンチ FD 版 … B.B 円 (XiD 用 ) 
г ù ШЗ.БТУҒЕОМ:····· 6,8000 

Z š (FM-17F8-PC-6601F8) 
m54->*+FDhM::::::: 6,800 円 

(X1 用 ・PC-8801 用 ・PC-9801 用 ・FM-7 用 〕 
< 884 77 FDIS-----8,800P3 
CSS 【PC-9801 用 )〕 


今や 3-D シ ュー ティ ング ゲー ム の 代名詞 と な っ た 「 ゼ クサ ス 」 


ШМ 2 -1500 <21 V2 FIRIR 4.80 ロ 円 
圏 X] 用 < テー プ 版 >…( じ it に に に に に に oon 3,00083 
BPC-8801H €-—7ER» ··:·:................. 4.50 ロ 円 

<5 イ ンチ FD 版 > eH MKMMMMMHHHHHHMHIHMHIIH 6.8000 
BMS XH < テー ジ 版 ?… い に ooo に tt の 3.80 ロ 円 


n 機種 に よっ て 画面 構成 が 異な り ま す 。 


抱き し め た い …// 


ү: 
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アァ ダル 
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кы $ "TS | 
w ama 
ト ア ド ベ ンチ ャ ー 品 リアルタイム 


一 PC-9801 用 <〈5 イ ンチ FD 版 、2W・2DD> 8,800 円 

ш‹8- ンチ FD 版 > ¿ONG r akwa ass 9.800F3 

Ë TT BPC-880158454 Z7FDRSO 6,800 P3 

お 客 が 沢山 、 今 日 は Nol ド ライ バー ИХТ РОМ. 8.800 円 
Ай " 一 X1D 用 <3 イ ンチ FD 版 > e ERTE tA 8,800F3 
EXI プ 版 > 3,000 円 画 MZ-1500 用 <OD 版 > dR 6,800F3 


ШЕШ] キミ の アイ ディ ア を 本 栓 ゲー ム に 7 


PC-8801 用 <FD 版 >…………… 9800 
X18 -MZ-22008) -PC-B8018 (7-74 -- 名 6.000 円 


X1 用 ・MZ-2200 用 く テ ー プ 版 >・ 5,0000 


== デー ビー ソリ フト 株 式 会 


(〒060) 札幌 市 中 央 区 北 3 条 西 2 丁目 カミ ヤマ ビル 


22011 (251) 7462 


意 楽 と 漢字 で 断然 差 が 


MSX が ゲー ム だ け で は も っ た いな い 。 ヤ マハ な ら 「 拡張 ユニ ッ ト 」 を 装着 する だ 


e ンーーー ミ rm3 も まる 1 


58 -INI $4 
29 - Š 4»: < 
б зер» 


58 "RESTORE 360 


SFG-01 を BASIC で コン 
トロ ー ル する 。  ҮВМ-11 Ј 


FM 音源 に よる 演奏 を し な が ら グ ラフ ィ 
ッ ク 画 面 を 楽し ん だ り 、 効 果 音 を 創っ た 
りす る こと が BASIC プ ログ ラム で 可能 。 
音声 合成 機能 に より 、 MSX に し ゃ べら 
せ た り 歌わ せ す た り する こと も で きま す 。 


FM ミュ ー ジ ッ ク マ クロ 
YRM-!! \7.800 
(RAM 容 量 は 32KB 以 上 必要 ) 


ШЙ”. 


本 体 右上 の 「ROM カ ー ト リッ ジス ロッ ト 」 
は MSX マ シン に 標準 の スロ ッ ト 。 だ か ら 
ゲー ム は も ちろ ん 、「 ミ ュー ジッ ク 」 や 「 グ 
2742,72 €, 市 販 の MSX 用 カー ト 
リッ ジ ソ フ ト を すべ て 楽し め ま す 。 


w^ 


拡張 性 に 差 を つけ る 「 サ イド スロ ッ ト 270 


目 で 見 な が ら 自 由 に 音信 
り を 楽し め る 。 YRM-12. 


SFG-0| を コン トロ ー ル し て 、 画面 を 見 な 
が ら デ ー タ を 入れ て 自分 だ け の オリ ジ 
ナル な 音色 を 創り あげ る こと が で きま 


+, 作成 し た デー タ は カセ ッ ト に 保存 で 


き 、YRM- 11 など で 利用 で きま す 。 


YAMAHA 


FM 音色 プロ グラ ム 
YRM-|2 #7800 


d 
— 


「 こ こ が 違 う 」 の 決定 打 は この 「 サ イド ス 
ロッ ト 」。 ヤマ ハ 独 自 の 「 拡張 ユニ ッ ト 」 を 
直接 装着 し て 本 体内 に 格納 で き 、 マ シ 
ン を 本 格 的 な 「 ミ ュー ジッ クコ ンピュータ 」 
や 「 ワ ー プ ロ シ ス テム 」 に 変身 させ ます 。 


MSX MSX マ ー ク は マイ クロ ソフ ト 社 の 商標 で す 。 


本 格 的 な 音楽 マシ ン へ 
の 立役者 は これ 。 SFG-01. 
リア ル な 「FM 音 源 」 で 48 種 の 音色 デー 
タ を 内 蔵 。 最 大 8 音 の 同時 発音 可能 で 、 
し か も 各 音 個別 の 音色 設定 可能 。 豊 富 
な ソフ ト や 周辺 機器 と の 組合 せ で 、 自 
動 演奏 は も ちろ ん 人 、 新 し い 音 創 り ・ 曲 創 


| りや 音声 合成 まで 目 在 に 楽し め ま す 。 


FM サウ ンド 
シン セ サ イ ザ ユ ニッ ト 
SFG-0| \|9.800 


— 製品 に は UCN-0| を 介し て 、 
接続 する こと が で きま す ) 


MSX マ シン を 自動 演奏 ご さ 
せる の は これ 。 YRM-15. 


画面 上 で 音符 な ど を 入力 する > 自動 的 
に 論 面 化 され 、 そ の 曲 を 自動 演奏 させ 
て 楽し め る 他 、 楽 譜 を プリ ント アウ ト す 
る こと も 可能 。 入 れ た デー タ の 訂正 ・ 削 
除 も 簡単 で 、 カセ ッ ト に 保存 も で きま す 。 


FM ミュ ー ジ ッ ク コ ン ポ ー ザ 
YRM-|5 ¥7800 


そし て さら に は ' リ アス ロット 」。YIS 
503 だ け の スロ ッ ト で 、 シ ング ルレ カー ト 
リッ ジア ダ プ タ を 介し て 各種 カー トリ ッ 
ジ を 接続 使用 で きる た め 、 コ ンピュータ 
活用 機能 の 質 と 量 が 大 幅 に 広がり ます 。 


(YIS 503/303 は 直接 、 各 社 


ミュ ユン ジッ ウキ ー ポ ボード 
FM サウ ンド シン セ サ イ ザ ユ ニッ ト に 接 
続 し て 、MSX マ シン を ミュ ー ジ ッ ク シ ン 
セ サ イ ザ と し て 活用 で きま す 。 


ミュ ー ジ ッ ク キ ー ボ ー ド 
YK-I0 %29,800 (499) 


ミュ ー ジ ッ ク キ ー ボ ー ド 
YK-0| %17,800 (44%) 


プレ イカ ー ド で MSX が 鮮 
や か に 自動 演奏 。 ZPA-01 
ポー タ サ ウン ド で お な じみ の プレ イカ ー 
ド を カー ドリ ー ダ ー に 通す だ け で コン ピ 
ュー タ が 自動 演奏 。 音 量 や テン ボ 、 調 も 
自由 に 変え られ 、 画面 に は 演奏 内 容 を 


プレ イカ ー ド セッ ト 


, zEA-0| \|2.800 
YAWAHA oon mec D イカ ー ド は 別売 ) 


64K DOS 対応 
拡張 RAMIRGB ユ ニッ ト 
今秋 発売 予定 нео 


て の MSX 仕 様 ソ フト は RAM 32K で 使え ま 
す 。 フ ロッ ピー ティ スク ドラ イブ を 接続 し て 
も DISK-BASIC で 使う 場合 は 32K の まま 
で よく 、64K の 必要 は あり ませ ん 。 DOS 
を 使う 場合 に 64K 必 要 と な り ま す 。 SRM 
-0| を サイ ドス ロッ ト に 装着 する こと で 、 
YIS-503 の RAM 容 量 は 64K に 拡張 され 、 
これ に 対応 で きま あ 
また 、 鮮 明男 像 が 得 
られ る 2| ピ ン RGB 出 
力も 内 蔵 し て いま す , 


32K RAM/ RGB ユ ニッ ト 
ЅАМ-01 今秋 発売 予定 


C$ YAMAHA 


つく 〈、 ヤ ツ \MSX 


け で "音楽 」 や 「 ワ ー プ ロ 」 を 本 格 的 に 楽し め ま す 


{Шиши 


「 熱 転写 プリ ンタ 」 PN-0 | は 
極め て 便利 な 各種 用 紙 対応 
型 で 、A4・B5 紙 や 連続 用 紙 
は も ちろ ん 、 ハ ガキ や 名 刺 に 
も 直接 プリ ント で きま す 。 
Кы, om emet d2 4 | 高密 度 |6 ド ッ ト ヘ ッ ド に よ 
ATA "M ius x り | パス (行程 ) で 美しく 、 静 
Mu үне: 8 (ZEDE AT BE. MSX 準拠 で 
ワー プロ 用 だ け で な く 、 通 常 
の プリ ンタ と し て も 高 性 能 。 


熱転写 プリ ンタ PN-0| \89.800 

プリ ンタ ケー プル СВ-01 35,000 

サー マル リボ ン ( 黒 ) PN-0IRB %3,900 
サー マル リボ ン ( カ ラー) PN-0IRC *4,800 


ヤマ 人 ハ の 拡張 ユニ ッ ト を 
全 MSX ユ ー ザ ー に 


ヤマ ハ の 拡張 ユニ ッ ト SFG-01、SKW 
-0| は 、 ユ ニッ トコ ネ ク タ UCN-01 を 介 
し て 各社 MSX コ ンピュータ の ROM 
カー トリ ッ ジ スロ ッ ト に 接続 で きま す 


p 注 : 但し 、 機種 に より 機能 を 十分 
に 発揮 で き な い 場合 も あり ます 


漢字 住所 録 の 作成 や ラベ ル 


本 格 的 ワー プロ シス テム を 手軽 に 実現 。SKW-01 


「 漢 字 ワ ー プ ロ ユ ニ 
JIS 第 | 水準 を 含む 3564 文 字 種 内 蔵 に 
加え 、 特殊 文字 や 記号 の 作成 ・ 登 録 、 
婁 語 や 短文 の 登録 も 可能 で 、 これ ら は 


漢字 ワー プロ ユニ ッ ト 
SKW-0! 49,800 
(YIS 503 303 は 直接 、 各 社 


wna 製品 に は UCN-0| を 介し て 
する こと か で きま 


電源 OFF で も 消え ませ ん 。 テ キス ト 表 
示 と レイ アウ ト 表 示 を 切換 えな が ら 、 
楽し く ス ピー ディ に 入力 / 編集 が で き 
ます 。 作成 文書 は 、 カ セッ ト や デー タ 
メモ リカ ー ト リッ ジ ( 容 量 4KB) で 記憶 ・ 
読出 し が 可能 。 手軽 で 本 格 的 な ホー 
ム & パ ー ソ ナル ワー プロ の 誕生 で す 。 
- UDC-0! \9.800 


「 リ アス ロッ ト 」 も 装備 し た 、 強力 な MSX マ シン 


大 gg gg r Gs za га pa үз ү: 
(8 pa p pa ps р pa pa g 


I 


(Эй OS (Эй CN CN CS | 


ホ ボーム パ ー ソ ナル コン ピュ ー タ 


SS03 


[5 20 (эз (28 pm ps pra г | 


画 MSX 仕 様 の ソフ ト や 周辺 機器 すべ て に 対応 。 
ゆ ① 通 常 の カー トリ ッ ジ スロ ッ ト 、② 独自 の サイ ド 
スロ ッ ト 、③ リ アス ロッ ト 、 と 3 種類 の スロ ッ ト を 


\64.800 装備 し て 拡張 性 断然 必要 十分 の RAM32KB 
実装 。p プリ ンタ ポー ト も 装備 。 上 位 バ ー ジ ョ 


ン VDP で 色 ズ レ の な い 鮮 明 高 画質 画面 。w 使い 
易い キー 配置 の ステ ッ プ スカ ルプ チャ ー キ ー ボ ー 


印刷 を する に は 。 YRM-16 


SKW-0| と 併用 し て 、MSX を 漢字 住所 
録 と し て 使う た め の 応 用 ソフ ト で 、 任意 
の 項目 で の 並べ 替え や 検索 も ス ヒ ー デ ィ 
宛名 ラベ ル や ハガキ な ど に 直接 宛名 印 
刷 す る こと が で き 、 実 に 便利 で す 。 


— 
- 漢字 住所 録 
YRM-16 \7.800 


1111111111001 


YAMAHA ee en riori. MBO _ ои 


ユニ ッ ト コ ネ ク タ 
UCN-0| %7,800 


ーーーーーーーーーー J 


Cz I E EN vie 


MI 


ホー ム バ パー ソナ ルコ ンピュータ 一 MSX 仕 様 の 豊富 な ソノ フ ト が 楽し め ま す 。 だ 


YIS303 : 


\49.800 


か ら 、 カ ー ト リッ ジ 
マシ ン に 。y 「 グ ラフ ィ ッ ク 」 も 「 教 育 」 も 0K。 その 
上 で 、 ヤ マハ 独自 の 「 サ イド スロ ッ ト 」 を 装備 し て 、 


ジ ポ ン て で 誰 も が 楽し め る ゲー ム 


ヤマ ハ な ら で は の 「 ミ ュー ジッ ク 」 や 「 ワ ー プ ロ 」 な 


どの 拡張 ユニ 
力 な 拡 


ッ ト を タダ イレ クト に 接続 可能 。 了 y 強 


張 性 で 楽し み も 実用 性 も 広がり ます 。 


一 資料 請求 は 〒430-91 浜 松 市 浜松 郵便 局 私 書 箱 3 号 日 本 楽器 製造 株 式 会 社 AY-XR 係 まで 


ロボ ッ ト を 動か せる は ず …・ と 考え て 、 つ い に 誕 生 し た の が 


"a \ す 時 代 だ か ら 、 パ と も 言え る こ 
コン ピュ ー タ が ロボ ッ ト を 動か す 時 人 1 6. "yd tb WW パソコン の 立体 ソフ トド" mew ems 


[ コン トロ ー ル ブログ ラム 内 販 . 1] 
[1ICONSTRACTION TEST ロボ ッ ト が 走行 する 床 面 等 の 条件 に 合 
わせ る だ め に 、 斑 行 距離 ・ 回 転 角 を 調整 し ます 。 ディ スプ レイ 上 に 示 
され だ 、 ロ ボッ ト の テス ト 走 行 距離 (50cm) 、 テ スト 回 転 角 度 (360 °) に 
対し 、 実際 に 動い た 距離 ・ 角 度 を キー ボー ド か ら 数 字 入力 する と 、 2 
||. ソコ ン が 自動 的 に 調整 し て くれ ます 。 
I2REAL TIME ACTION & TRACE パソ コン キー ボー 
イス ティ ッ ク で 、 直接 ロボ ッ ト を コン トロ ー ル し ます 。 同時 に ディ スプ 
レイ 上 に 、 ロ ボット の 走行 内 容 が 数 字 で 詳細 に 表示 され 、 か つ 直 行 
の 軌跡 が 画面 の グリ ッ ド 上 に ライ ン 表 示さ きれ て 、 パ パソ コン 内 の メモ リ 
ー に 記憶 きれ ます 。 <TRACE> を 指示 すれ ば ere し た 動 
作 を 再現 し ます 。 
[3SIMULATION 中 部 、 回 転 角度 、 アー ム の 動き を 、 各自 の プラ 
合わ せ キ ー ボ ー ド か ら 入 力 し ます 。 動作 内 容 は ディ ス フ us ラ | 
ン お よび 文字 て 、 順に 40 ス テッ プ ま で 表示 され ます 。 ロボ パル に 持た 
せる 荷物 の 場所 や アー ム の 上 下 動 、 スピ ー ド の 変化 を 指定 する こと に 
ょ り フ ラン 通り に 動作 する よう 、 画 面 で 正確 に シミ ュ レ ー ト で きま す 。 
[入力 例 〕 前 進 40cm= 140 (3711) ЕВО . 40cm 
石 回 転 90*=ー90 R-i- 9 
4 コン トロ ー ル ・ ブ ログ ラム は ベー シッ ク と マシ ン 語 。 オリジナ ルフ プロ 
グラ ム で ロボ ッ ト を コン トロ ー ル で きる 親切 設計 。 デ ィ イス フ プレイ だ け の 
プロ グラ ミン グ ' か ら 、 
コン の 世界 が 広がり ます あな た の 組ん だ ベー シッ ク プ ログ ラム か * ら 、 
マン ン 語 サ プ ブルー チン を コー ル す れ ば OK ん 


まま だ は ジョ 


株 式 会 社 パ バフ ヲイ 
H.E.D 事 業 部 
東京 都 台 東 区 駒形 2-5 4 FIII TEL(03)842-5151( 代 ) 


ロボ レツ ルレ を コン トロ ー ル する 立体 ソフ ト ヘ ルレ ャ ソー 


««COHSTRUCTIOH TEST>> 
=. к= сонар TEST 


<<SIMULñTIQH>> 
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<<REñL-—TIME ACTION & TRACE>> 
CHOW TRACE ! 1 


1scale ->5@ст©= 


ーー 
от фе?" 


ロボ パル 対応 機種 . 
@NEC/PC-8801、PC-8801mkII、PC-6001mkII、PC- 
66016 € 3338,/ FM-new7, FM-76SHARP/XIzU—Z 


@ バ ンダ イ RX-78 久 各社 MSX 対 応 機 種 
RX-78 以 外 の パソ コン は 、 各 機種 用 の プリ ンタ ・ ケ ー ブ ル が 必要 と な り ま す 。 


Er 発売 esme 16,800 


セッ ト 内 容 @ ロ ボッ ト 本 体 … 1 @ コ ント ロー ル ・ ユ ニッ ト …… 
@ コ ント ロー ルプ ログ ラム 1 @ 取 扱い 説明 書 … 


— ТОА 


ロボ バル の お 問合せ は バン ダイ ・ エ レク トロ ニク ス ・ サ ービス セン ター ORES: 東京 都 千代 田 区 神田 神保 町 | 丁目 33 番 2 号 ・ * 第 百 生命 ビル 4F 22(03)233 0381 
@?L!iX(011)862-2430@ (ll (0222)84 9420 念 新潟 (0252)33_6541 念 名 古屋 (052)613-3434 念 大 阪 (06)942-2647 便 広島 (082)292 6241 @ 福岡 (092)622- 1741 


fr: PC シリ ー ズ FM シリ ー ズ 


@98 @98F @98E @88 @88mkIl @FM-77 @FM-7 @FM-8 


RUAN TIAE 一 一 さら に お 選び くだ さ (1。 


ヴィ ザー ドブ リン セス 
ガブ コー ルス 人 バイ 

A NDA: V4 
Fg ・ ク リズ スタ ル 

ザ ・ ク エス ト 

ジャ ヤー ウッ ド ・ ウ オレ スト 
トラ シシ ルニア 

ブラ ッ ク プ ー ル の 和合 
й“ёй dg] ニュ リ シー 


(*9,8004”) 
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THE QUEST 


只今 、 次 回 作 も 続々 計画 中 
まず は 待望 の 「 ア マソ ゾン 学術 探検 」 か ら ど う ぞ 。 


アド ベン チャ ー・ ラ ンド ADVENTURE LAND 
MIHA PRAT o= 


NOZHVWV NOLLIG*d X1 


ミツ ジョ ジ シ ・ イ ン ポ シブ ル 
жа у Дур 
Meet の 0 の オア デア ユ ツウ イ 
(どれ も ¥ 7.800) 


詳し く は 最寄り の 販売 店 で お た ず ね くだ さい 。 
STARCRAFT 


E‏ اف 


0p ーー の 
制作 販売 株 式 会 社 スタ ー ク ラフ ト 


7171 東京 都 豊島 区 南 池袋 ど - ら コ -2 富沢 ビル 4F A(03)988-2988 


* お 近 ぐ に 取扱 い 店 が みつ か ひら な い 場 合 は 、 製 品名 を 明記 の つえ 
当社 宛 に 直接 お 申し 込み ぐだ さい 。( 送 料 5OO 円 ) 
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10 月 1 日 より 光栄 本 社 は 
日 吉 に 移転 致し ます 。 


※ 通販 の 万 本 社 移転 の た め 日 吉光 栄 ビル 1F 帆 光 栄 宛 現金 書留 に て お 申し 込み 下さ い (〒、 サ ービス )〉,。 


元 宋 本 社 移 転 


記念 ブラ ンド 
OMIX 


株 式 会 社 光 Ў T223 横浜 市 港北 区 日 吉本 町 1876 光栄 ビル 12044-61-6861@ 


М э Pi 


らら 1 ウッ トイ / ジ オ ヌ タス ・ コ ンク ー ル 


期間 : 昭 和 59 年 11 月 1 日 一 
昭和 50 年 1 月 と 0 日 


pi 


奇妙 な キャ ラク タ 達 と 上 手 LP GM к 751708BA x08 
に つき 合い 、 ンマ B ОС 上 下 ス クロ ー ル する 淫 基 
ブロ ッ ク 積 ん で 、 ゴ ー ル を m | 地 に て 戦い ぬく 難度 A 級 の 


めざす ドタバタ ゲー ム だ / اه ن‎ PERRA d 


SCORE 31250 HIGH SCORE 50000 LEFT 0 


abad a] abad ad atat ad n abad 


á 
ar | 
AL 4 
ila | 
af af Т ЕГЕТ Р ak УЕ 


alat al ЕЕ ЕЕ 


I/O 編 集 部 で は , 5 1 ユー ザー の ゲー ム ・ テ クニ ッ ク を 競い あう “(T 3ZX7ZJ/JAíX7X77B8 oos 


[S 1 ウッ トイ / シ オ ヌ ス ・ コ ンク ー ル 」 を 下記 の 要領 で 開催 し ます シオ ヌス の ゲー ム ・ オ ー バ ー 時 の スコ ア が は っ きり 写っ た 画面 写 
奪っ て こ ご 応 募 く だ さい . - 真 を 送っ て くだ さい . 期間 内 の ハイ スコ ア 順 , 100 名 様 に ウッ トイ ・ 
CUR ト レー ナー を 贈呈 し ます . 
E OTE TUTTE К W sie o e o @ S'S és o EEE ж ご 応募 は お 1 人 様 何 点 で も 構い ませ ん . x 
Ў `. - ve е РР FA A, 
あな た が 作っ た ウッ トイ の オリ ジ ナ ル ・ ス テー ジ を 写真 に 撮り , 文 ご 応募 の 際 , ト レー ナー の サイ ズ (MorL ) を 明記 . ン オ メス 
特長 を 書い た コメ ント を 添え て 送っ て くだ さい . 審査 の うえ , 50 — 文 写真 は カラ ー プ リン ト で こ 応 募 く だ さい . 
名 様 に ウッ トイ ・ ト レー ナー を 贈呈 し ます . 文 発表 は 賞品 の 発送 を も っ て か えさ せ て いた だ きま す . 


ウッ トイ 100 面 を クリ ア し た 後に 表示 され る パス ワー ド を は が き に 送付 先 
書い て 送っ て くだ さい . 期間 中 , 先着 100 名 様 に ウッ トイ ・ ト レー 151 東京 都 渋谷 区 代々 木 1-37-1 ぜ ん らく 〈 く ビル 
ナー を 贈呈 し ます . 11 月 21 日 の 消印 か ら 受 け 付 け ま す . 株 工 学 社 |/O 編 集 部 S 1 ウッ トイ / シ オ ヌ ス ・ コ ンク ー ル 係 
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*IOKRIBSLTERÉSF:: < 
ウッ トイ / シ オ ヌ ス ・ ゲ ー ム 大 会 


興味 あふ れる ハー ド ・ コ ー ナ ー で は S1/30,40、H2 の 展示 や スー パー イン ポー ズ の 実演 . ノ I ーー 
楽 U い イベント ・ コ ー ナ ー で は ウッ トイ / シ オォ ヌ ス の ゲー ム 大 会 (賞品 も いろ いろ ある ぞ ) | AETERNA 人 (03)375-340 
に ぎ や か ソフ ト ・ コ ー ナ ー で は ソフ ト ハ ウス が 参加 し て , 人 気 の ソ フト を 展示 即売 ノ s scar c e s o 


この バ パズル は か な り 有 名 な の で (“箱入り 
娘 「 パズル な どい ろ い ろ と ある ), た いて い 
の 人 は 知っ て いる と 思い ます . それ に 少し 


手 を 加え て FP で 作っ て み ま し た -. 今 年 の 訪 


化 祭 に 出し た も の で す が , 
の で 発表 し ます . 
較 プ ログ ラム ・ イ ン フ ォ メ ーション 


ー 応 整理 で きた 


絵 も な か な か いい し , 操作 し や す 
| い パ ズル で す . (V) 


の 説明 | 


ズル の 目的 は 。 RS PT ーー 
$5) ат УСА СУ ТОУ 
Did, Aー] ま で の コマ を 上 下 左 右 い ろ い 
ろ に 動か る な けれ ば な り ま せん . そし て , 
で きる だ け 少 な い 手 数 で コマ B を 外 に 出し 
Li 


コマ の 動か ら | 


SESE A 
し て RUN す る と , まず 画面 右上 に “Which 
?" と 表示 る れ ま す . そこで, 自分 の 動か 
し だ い コ マ の アル ファ ベッ ト を 大 支 字 で 入 


mmm ペーー ペ ペー パパ パーー ツ ツー 


DES E 


H4 к 
する と 今度 は 。 "Where?" L 7: Š 1 2 
Ut, г РАИЛ КС に 動か 


し た いか ([8121[41[6] で 上 下 左 右 に 1 コマ 
分 動き ます ) を 入力 し ます . も し 指定 し た 


方 向 に 壁 や 他 の コマ が あっ て 動け な いと き 
は 無効 に な 0, 
T. 


最初 の “Which ?" に 戻り ま 


REM 
REM 
REM 
REM 
REM PROGRAMMED BY Inohara 


КЕМ 

REM 1984.8.24. 

REM 

EE NE RE TE ER MATRE I2 
REM ~~ へ ~ へ へ ~~ atf セッ ティ イ ~~ へ ~ へ ~~ 

CLEAR: WIDTH8O 


まだ , ギグ ・ ア ッ グ また だ は も う 一 度 最 初 
か ら や り た だ た い 場 合 は , "Which? "と “Whe 


re?” の 両方 に 回 を 入力 する と 終了 し ま ・ 


7. な お , コマ B を 外 に 出せ た 場合 は , い 


まま で か か っ た な た 手数 を 表示 し て 終わ り ま す . 
答え の と お り に や っ た つも り だ が ? 


А 1 d. d 
まず キー - 入 力 の 後 。 動か aig い ユ マ の ん ル 
ー チ ン を 呼び , 指定 され た 方 向 に 動か :: せ る 
か た うわ の) を チェ ンタ し あま 生 を し 世 。 動か 
せれ ば その コマ の パタ ー ン を GET し て, $ 
か し だ い 所 へ と PUT し て や り ま す . 処理 と 
し て は これ だ け な の で , 他 機 種 へ の 移植 も 
簡単 に どき る と 思い ます . 
Ë VERE 2d Кк SND s< SS: S у эр: 
Í 


| 
i 
агыш | 
| i |- te у | | 
| | | 
x pgs m ME: RIO ЧЕЛ REE 


リス ト 1 の 1810 一 2440 行 を 入力 し な いで . 
330 一 430 行 ,1650 一 1680 行 の REM 文 を 取っ 
て くだ さい 。 £5dT5kbZ7Z27224»2-* 
ー タ を 入力 する 必要 は な く な り ま す . も ち 
ろ ん 絵 は 表示 きれ ま せん が 。 アル ファ ベッ 
ト だ け は 表示 る れる の で ,。 これ で も パズル 
は で きま す . 

この 他 に も いろ いろ ある と は 思い ます が 5, 
それ は 各自 自由 に 手 を 加え て みて くだ さい 
忍者 パズル BASIC リ スト S 
ERASE X,Y,P$,K,S 
DIM X(3 の ) ,Y (30) ,P$ 30) ,8(151) 。K(6 の 


A121:B1z2:B3235:C124 
A226: В2=7:В4=8:С2=9 
D-11:E1-212:E2-713:F-14 
61=16:562=17:Н1=18:Н2=19 
1=21:51=22:52=25:7Ј=24 
TE= の 

RESTORE 152 の 

FOR U=1 TO 39 


か か O まし だ 、 


コマ の GET, PUT 用 の アド レス 
- パ ズル 画面 

スペ ー ス 部 分 の GET 用 

各 コ マ の GET 用 

文字 変数 読み 込み 用 


各 コ マ お よび 
スペ ー ス 部 分 が 
パズル 上 の どこ 
に ある か を 
示す 


コマ の 種類 入力 
コマ の 方 向 そ の 他 入 力 用 
コマ が 進め る か の 判定 用 


ORE 0 $3 706 eee doe d 
な が 白黒 な の は 許し て А OLE 
に する と , どう も 配色 が 難し い の で 色 着 け 
は あき ら め ま し だ た だ. それ か ら , ブロ グラ ム 
が 長い で す が 。 絵 の 部 分 を 削れ ば どう に か 
ノボ 

gis, この ブログ ラム を 作る の に 1 年 も 
ib, HSA DBR (с 
入力 し て , 暇 な と き に 遊ん で や っ て くだ きる 
с. ちな み に 。 ぼく の 最小 手数 は 148 手 で 
CRX 

本 当 の 最後 に 一 言 . 
マシ ン 語 に 目 が 傾き 始め まし た . 
本 が 見 つか ら な く て … 


この ご ろ な ん と な く 
で も いい 


READ X。Y 
X(U) 2X: Y (U) =Y 
NEXT 

FOR U=1 TO 25 
READ U$ 

РФ (0) =0% 


МЕХТ 
REM v*"999 カカ" メン 2 929t4 v" 
READ X1,Y1,X2,Y2 

QUAD (X1,Y1)-(X2,Y2) ,7 

READ U,S 


deb. E DP. A 


PiO 
忍者 パズル BASIC リ スト 


3380 QUAD(X(U) 。Y(U) ) -(X(8) *1,Y(8) 10,7" 
: PAINT(OX (QU) -2,Y (00 -2) 。4 

540 FOR U-1 TO 10. 

550 READ X,Y 

360 GUAD((XOD-*1,YOO +1) - CX Y) 。Y(Y)) ,7^ 
sPAINT(X(X)+2。Y(X) +2) ,1 

370 NEXT 
PRINTCSR(19,22)"l 


(B4): SWAP P$(B3) ,F$ (S2) : SWAP B1,B2: SWAP 
B2 ,S1: SWAP B3, B4: SWAP B4,S2: GOTO 1500 
1460 IF Р%(Н2+5)="52" THEN SWAP P$(B1), 
P$ (B2) : SWAP P$(B1),P$(S2) : SWAP P$(B3) ,P$ 
(B4): SWAP P$(CB3) ,P$(G1): SWAP B1,B2: SWAP 
B2,S2: SWAP B35,B4: SWAP В4,51: GOTO 1500 
1470 IF А%< >"В" THEN 460 

1480 IF P$(Bi1-5)-"S1" THEN SWAF P$(B1), 
P$(tB2) : SWAP P$(CB2) ,Р% (S1) : SWAP PS$(E3) ,P$ 
(B4): SWAP. P$ (B4) ,P$ (S2) : SWAP B1, B2: SWAP 
B1,S1:SWAP B3, R4: SWAP B3,S2: GOTO 1500 
1490 IF P$(B1-5)="S2" THEN SWAP P$(B1), 
P$ (B2) : SWAP P$ (B2) ,P$ (52) : SWAP P$(CB3) ,P$ 
(B4) : SWAP P$(B4) ,P$(G1) : SWAP B1,B2: SWAP 
B1 ,S2: SWAP B3,B4: SWAP B3,S1:GOTO 1500 
1500 TE=TE+1 』 IF Р%(17)="В1" THEN 1690 E 
LSE 460 

1510 REM てこ ペ ペン $“ 9 fv III 

1520 DATA 80,25,152,25,224,25,2956,25,3 
68,25 

1530 DATA 80,55, 152,55,224,955,29596,55,5 
68,95: 

1540 DATA 80,85,152,85,224,85,295,85,3 
68,85 : 
1550 DATA 80,115,152,115,224,115,296,1 
15,368,115 

1560 DATA 80,145,152,145,224,145,296,1 
45,368,145 

1570 DATA 80,175,152,175,224,175,296,1 
75,368,175 

1580 DATA A1,B1,B3,C1,ZZ 

1590 DATA 2。B2。B4 。C2。ZZ 

1600 DATA р,Е1,Е2,Е,22 

1610 DATA 61 。G2。H1 。H2。ZZ 

1620 DATA I,S1,S2,J,ZZ 

1630 DATA  68,20,380,180 

1640 DATA 1,30,1,12,2,14,4,15,11,17,12 
;19,14,20,16,25,18,25,21,27,24,30 

1550 ‘DATA 17,9,39,9,44,9 

1660 ‘DATA. 17,135,35,15,44,13 

1670 ‘DATA 26,17,44,17 

1680 ‘DATA 17,20,44,20 

1690 FOR U=1 TO 30:FOR U1=1 ТО 7: ВЕЕРОМ 
:BEEPOFF:COLOR ,,,U1:NEXT U1,U:COLOR ,,, 


РФ (51) : SWAP P$(L1),P$(L2) : SWAP S1,L1:SWA 
Р S1,L2:RETURNELSE SWAP P$(L1),P$(82):8W 
AP P$(L1),P$(L2) : SWAP S2,L1: SWAP S2,L2:R 
ETURN 
980 IF РФ (12+1) ="51" THEN SWAP P$(L1), 
P$ (12) : SWAP P$(L1),P$(S1) : SWAP L1,L2: SWA 
Р L2,81: RETURNELSE SWAP Р% (11) ,Р%Ф (12) : 5м 
АР Р% (11) „РФ (52) : SWAP 11,12: SWAP 12,52: К 
ETURN 
990 REM "wv" ЗУЛ 7 Qv I. eu トク バラ 
1000 IF А%="4" THEN A--1 ELSE IF A$="4" 
THEN А=1 ELSE 1090 
1010 IF P*$(L1+A)<>"S1" AND P$ (L1+A)<>"8S 
2" THEN 460 
1020 IF P$(L2+A)<>"S1" AND P$(L2+A)<>"S 
2" THEN 460 
1030 GETG(X(L1)*1,Y(L1)*1) -(X(L2*6) , Y(L 
2*6)),K 
1040 PUT@(X(L1)+1 。Y(L1)+1) 一 (X(L1+6) , Y(L 
1 + ム ) ) 。 台 
1050 РОТЕ (Х (12) +1,Ү(12) +1) – (Х(12+6) ,Y (L 
2+6) ) ,S 
1060 РОТЕ (Хх (11+А) +1, Y(L1+A)+1)- (X (L2+A+ 
6) , Y (L2+A+6)) К 
1070 IF P$(L1+A)="S1" THEN SWAP P$(L1), 
P$(S1): SWAP P$(L2) 。P ま (S2) : SWAP L1,81: SWA 
P‘L2,S2 ELSE SWAP P$(L1),P$(S2): SWAP Р%( 
L2),P$(S1): SWAP L1,92: SWAP L2,S1 
1080 TE=TE+1: RETURN ' 
1090 IF A$-"B8" THEN A=-5 ELSE A=5 
1100 IF A$-"8" THEN IF L1-5«Q0 THEN 460 
1110 IF A$-"8" THEN IF P$(L1-5)«»"S1" А 
ND P$(L1-5)«»"S2" THEN 460 
1120 IF A$-"2" THEN IF P$(L2*«5)«»"S1" A 
ND P$(L2*5)«2"S2" THEN 460 
1130 BET@(X(L1)+1 。 Y(L1)*1) -(X (L2*6) ,Y (L 
2*6)),K 
1140 PUT@ (X CL1)41, Y (L1) 41) - CC 146) 。Y(L 
1*6)2,8 j 
1150 PUT@(X(L2)+1 。Y(L2)+1) 一 (X(L2+6) , Y(L 
2*6)),8 
1160 PUTG(X(L1*A)*1,Y (L1+A) +1) - (X (L2 +A+ 
6) ,Y (L2*5*6)) ,K 
1170 TE-TE*1 
1180 IF A$="2" THEN 1200 
1190 IF P$(L1-5)-2"S1" THEN SWAP P$(L1), 
РФ (L2) : SWAP P$(L2) ,P$(GS1) : SWAP L1,L2: 5WA 
Р L1,81:RETURNELSE SWAP P$(L1),P$(L2):98W 
AP P$(L2) ,P$(.G2) : SWAP L1,L2: SWAP L1,82:R 
ETURN 
1200 IF P$(L2«5)2"S1" THEN SWAP P$(L1), 
РФ (L2) : SWAP P$(L1),P$(S1) : SWAP L1,L2: SWA 
Р L2,81: RETURNELSE SWAP P$(L1),P$(L2): SW 
AP P$(L1),P$(S2) : SWAP L1,L2: SWAP L2,82:R 
ETURN 
1248 REM vv» ANY Du 47,080 ТУУМ 
1220 IF A$2"2" THEN А=5 ELSE IF A$z"4" 
THEN A--1 ELSE IF АФ="6" THEN А=1 ELSE I 
F A$-"B" THEN A=-5 
1250 IF A$="8" THEN IF Bi1-S5«Q0 THEN 460 
1240 IF A$-"4" THEN IF P$(B1-1)0«»"S1" A 
ND P$(B1-10€«»"S2" THEN 460 
1250 IF A$-"4" THEN IF РФ (В2-1) < >"51" A 
ND P$(B2-10«»5"S2" THEN 460 
1260 IF A$-"65" THEN IF РФ (В5+1) < >"51" A 
ND P$ (B35+1)<>"S2" THEN 460 
1270 IF A$-"5" THEN IF P$(B4+1)<>"S1" А 
A 
A 
A 


'COLOR ,1 
4 の の ‘FOR U=1 TO 10 

41@ 'READ X,Y 

420 ‘PRINT CSR(X,Y) СНАФ (U*$H4Q) 

430 ‘NEXT 

440 GOSUB 1820 
GETG(X(23) «1,Y (23) +1) -(X (29) , Y (29) 


REM ヤン ペン ペン メイ オシ ルー チン ` VSO : 
470 COLOR .,0:1 ОСАТЕ $5,9:PRINTUSING"47 
Qy" / FAD #### テリ" ョ TE 
480 PRINT CSR(57,5) "Which ?  ":LOCATE . 
65,5: КФ=ІМРОТФ (1) 
490 IF K$=CHR$ (НОС) THEN 480 ELSE PRIN 
T КФ 
500 IF К%<>"А" AND K$«»"B" AND К%<>"С" 
AND K$<>"D" AND K$«»"E" AND K$«5"F" AND 
K$«»"G" AND K$«»"H" AND K$«»"I" AND K$« 
»"J". AND K$«»"g" THEN 480 
510 PRINT CSR(57,7)"Where ?  ":LOCATE 
65,7: А%=ІМРОТФ (1) 
520 IF A$=CHR$ (&HØC) THEN 480 ELSE PRIN 
T A$ 
S30 IF А%<>"2" AND A$«»"4" AND А%<>"6&" 
AND А%<>"В" AND A$«»"g" THEN 480 
540 CALL&HOAFB,29: BEEPOFF 
550 REM + コマ / 7077 жа 
560 IF K$="A" THEN L1-201:L27242: GOSUB 9 
9 の : 1=L 1 : 2=L2 
570 IF К%="В" THEN 1229 
580 IF K$="C" THEN L1-zC1:L2-2C2:GOSUB 9 
90:C1-7L1: C2=L2 
590 IF K$-z"D" THEN L-D: GOSUB680: DL 
00 IF K$-"E" THEN L1-E1:L2-E2: GOSUB 7 
70: E1-L1:E2-7L2 е 
610 IF K$="F" THEN L=F: BUSUB68 の 』F=L 
f 620 IF K$z"G" THEN L1=61:L2=62: GOSUB 7 
70:612L1:G2-7L2 í 
^ 630 IF K$-"H" THEN L172H1:L2-H2: GOSUB 7 
70:H1-zL1:H2-7L2 
640 IF K$z"I" THEN L-zI:GOSUB680: I=L ` 
450 IF K$-"J" THEN L=J: GOSUB6809: J=L 
660 IF K$-"g" THEN 1750 
670 GOTO 460 
00 REM: """"" チイ サイ D 7 "aM ММ 
690 IF A$2"2" THEN A=5 ELSE IF A$s"B"- 
THEN A=-5 ELSE IF A$-s"4" THEN A--1 ELSE 
IFA$-"6" THEN А=1 
700 IF A$-"8" THEN IF L-S«Q THEN GOTO 


PRINTCSR (364,8) "FINISH !" 
1710 LOCATE 30,10:PRINTUSING"?79 / テス ウ ハ 
#### 7 773"; TE*1 

1720 GOTO 1750 

1730 CLS:PRINTCSR(36,8) "^w^w^- !" 

1740 PRINTCSR(S6,10)"97" 7750 !" 

PRINTCSR (30,12) "EOF" ヤリ マス ヌカ? (Y7N) 


A$-INKEY$ 
1770 IF A$-2"N" THEN END ELSE IF А%<>"Ү" 
THEN 1760 | 

PRINTCSR (30,14) "上 RET] に ey ラオ シテ ワタ "サイ 


A$=INKEY$ 
1800 IF A$=CHR$(%HØD) THEN CLS: GOTO 120 
ELSE GOTO 1790 , 
1810 REM *"v*"^ 7" 57497 ルー チン "ww 
1820 READ X1,Y1 
1830 FOR U-1 TO 611 
1840 READ X2,Y2:1F X220 AND Y2= の THEN R 

EAD X1,Y1,X2,Y2 
1850 PLOT(X1,Y1)-(X2,Y2),7 
1860 X1=X2:Y1=Y2 ' 

1870 NEXT 

1880 PAINT (105,33) ,7:PAINT (125,33) 。7 
1890 PAINT (321,33) ,7:PAINT (341,32) ,7 

19 の の PAINT (319,106) ,7,7 

1910 ІМІТ (0,9) ,1,1,R 

1920 CIRCLE (110,395) ,14 

1930 INIT( の 。 の ) 。1 。1 

1940 RETURN 

1980. REM. «^"^ Q L egomet 

1960 DATA 104,33,104,45,105,46,127,46,1 

29,45,129,33, 127, 32, 105, 32, 104 ,33,0, ð, 19 

4,39,102,29,1090,40,100,41,102,42,104,42, 

0,0,129,59,151,59,152,40,152,41,151,42,1 

29,42,0,0,111,46,111,48,116,51,118,51 
1970 DATA 122,49,122,46,0,0,115,49,102, 

49,100,50,100,51,91,56,91,59,93,59,95,60 

,96,60,98,61,102,61,102,63,100,64,98,64, 

96,63,93,63,89,61,89,60,91,59,0,0,116,52 

,116,61,0,0,122,49,151,49,154,51 
1980 DATA 154,52, 158,54,158,55,140,56,1 

45,56,147,57,147,62,140,62,140,56,0,0,10 

4,59,104,63,129,63,129,61,104,61,0,0,129 

,59,129,62,140,62,0,0,104,63,104,64,102, 

65 。 1 の 2 。 6 。 1 の の 。 69 。 1 の の 。 7 さ 。 1 さ 2。7 さ 
199 の DATA 132,70,131,69,129,62,0,0,107, 

63,107,68,105, 59, 195 ,75,9, 0,115,635, 113, 6 

8, 111, 59, 111 ,73,0, о, 115, 6 さ 。 116 ,73,0, о, 12 

0,63, 120, 68, 122, 69, 122 „75,0, 9, 125,65, 125 

,68,127,69,127,73,0,0,102,73,192,75 
2000 DATA 98,75,95,765,96,77,98,78,111,7 

8,113,77,113,76,111,75,111,73,0,0,122,73 
;122,75,120,76,120,77,122,78,132,78,134, 
77,134,76,132,75,131,75,131,75,0,0,141,6 
2,141,64,147,64,147,52,0,0,141,56 

2010 DATA 141,53,140,55,140,51,149,51,1 
49,53,141,53,0,0,141,51,141,30,143,30,14 
7,32,147,51,0,0 

2020 DATA 1 の 9。32 。1 の 9 。 さ 7 。 1 の 7 。38 。 1 の 4 。 3 日 。 の 

,0,123,32,123,37,125,38,129,38,0,0,114,2 

9,114,54,1198,54,118,29,114,29,0,0,115,58 

;113,42,0,0,114,38,114,42,0,0,120,:28,120 


IF P$(L*060«»"S1" AND Р% (1+4) < >"82 
" THEN GOTO 460 ° 


GET@(X(L)+1,Y(L)+1)—-(X(L+é) ,Y (L+ó 
РОТЕ (Х (1) +1 ,Ү(1) +1) - (X (L+ó) , Y (L+ó. 


PUT@ (X (L+A) +1 ,Y (L+A) +1) — (X (L+A+6) 
。Y(L+A+6) ) ,K 
|. 750 IF P$(L+A)="S1" THEN SWAP L,S1: SW 
AP P$(L) ,РФ(51) ELSE SWAP L,S2:SWAP P$(L 
) ,P$(S92) 
760 TE=TE+1: RETURN 
770 КЕМ ~~ へ ~~ аар 2 コマ ノ yaü v9 
780 IF A$="2" THEN А=5 ELSE IF A$="8" 
THEN A=-5 ELSE 880 
790 IF АФ="В" THEN IF L1-5<@ THEN GOTO 
40 | 
800 IF P$(L1+A)<>"S1" AND P$ (L1+A)< >" 
52" THEN GOTO 460 | 
810 IF P$(L2+A)<>"S1" AND РФ (L2+A) <>" 
52" THEN GOTO 460 
820 BET@(X(L1)+1。Y(L1)+1) 一 (X(L2+6) 。Y( 
L2+6) ) 。K 
830 PUT@(X(L1)+1。Y(L1)+1) 一 (X(L1+6) 。Y( 
L1+6) ) 。S 
840 PUT@(X(L2)+1 。Y(L2)+1) = (X (L2+6) 。Y( 
L2+6) ) ,S 
B5 の _PUT@(X(L1+A)+1,Y(L1+A)+1)-(X(L2+A 
+6) ,Y (L2+A+6) ) , K 
` Bb0 IF P$(L1+A)="Si" THEN SWAP 11,81:8 
WAP L2,S2:SWAP P$ (L1) ,P$ (S1): SWAP P$ (L2) 
„P$ (S2) ELSE SWAP L1,S2:SWAP L2,S1: SWAP 
P$ (L1) ,РФ (S2): SWAP P$ (L2) „РФ (S1) 
870 TE=TE+1: RETURN 
BB の IF А%="4" THEN A=-1 ELSE A=1 
890 IF A$="4" THEN IF P$(L1-1)<>"Si" А 
ND P$(L1-1)«»"S82" THEN 460 
` 900 IF A$-"5" THEN IF P$(L2*1)4»"S1" A 
ND P$(L2*1)«»"S2" THEN 460 
910 GETG(X(L1?)*1,Y(L1)*1) -CX (L2*5) , Y(L 
2*6)),K 
920 PUT& OX (L1) *1, Y (L1) 1) - OCC. 186) , Y (L 
1+6) ) 。S 
930 PUTG(X(L2) *1,Y (L2) +1) -CX (L2*6) , Y (L 
2*6)),8 
940 РОТЕ (Х (1+4) *1, Y (L1+A) +1) -CX (L2+A+ 
6) , Y (L2+A+6) ) , K 
950 TE=TE+1 
960 IF A$-"6" THEN 980 
970 IF РФ(11-1) ="51" THEN SWAP P$(L1), 


ND P$ (B4+1)<>"S2" THEN 460 

1280 IF A$-"2" THEN IF P$(B2*45)«»"S1". 
ND P$ (B2+5)<>"S2" THEN 460 

1290 IF A$="2" THEN IF P$(B4+5)<>X"S1" 
ND P$%$(B4+5)<>"S2" THEN 460 

1500 IF A$="8" THEN IF P$(B1-5)<>"S1" 
ND P$(B1-5)«»"S2" THEN 4650 

15310 IF A$="8" THEN IF P$(B3-5S)«»"S1" A 
ND РФ (В5-5) < >"52" THEN 460 

1520 БЕТЕ (Х (В1) +1,Ү(В1) +1) – (Х (В4+6) ,Y(B 
4+6) ) ‚К 

1550 РОТЕ (Х (Ві) +1 ,Ү(В1) +1) – (Х (Ві+6) 。Y(B 
1+6) ) ,S 

1340 PUTG(X(B2) *1,Y (B2) +1) - CX (B2*6) , Y (B 
2*6)),8 

1350 PUT@ (X (B3) +1 Y (B3) +1) - (X(B3+6) , Y CB 
S+6)) ,S 

1360 PUT@(X(B4)+1 。Y(B4)+1) 一 (X(B4+6) ,Y (B 
人 4+6) ) ,S 

1370 PUT@(X(B1+A)+1,Y(B1+A)+1)- (X (B4+A+' 
6) 4Y CB4*A*6)) ,K 

1380 IF А%<>"4" THEN 1410 

1:90 IF РФ(В1-1) ="51" THEN SWAP P$(B1), 
P$(B3): SWAP. P$(B3) ,Р% (S1) : SWAP P$(CB2) ,Р% 
(B4) : SWAP P$ (B4) ,P$ (S2) : SWAP B1,B3: SWAP 
B1,S1: SWAP B2,B4: SWAP B2,52: GOTO 1500 

1400 IF P$(B1-1)z"S2" THEN SWAP P$(B1), 
F$ (BS) : SWAP P$(B3),P$(S2) : SWAP P$(B2),P$ 
(B4) : SWAF P$(BA),P$(S1): SWAP B1,B3: SWAP 
B1 。S2: SWAP B2,B4: SWAP B2,S1: GOTO 1500 

1410 IF А%<>"&" THEN 1440 

1420 IF РФ (В5+1) ="51" THEN SWAP P$(B1), 
P$ (B3) : SWAF P$(B1),P$(S1): SWAP P$(DB2) ,Pf$ 
(B4): SWAP P$(B2) ,P$ (S2) : SWAP B1,B3:SWAP 
B3, S1: SWAP B2,B4:SWAP B4,S2: GOTO 1500 
1430 IF P$(BZ+1)="S2" THEN SWAP P$(B1), 
P$ (B3) : SWAP P$ (Ві) РФ (52) : SWAP P$(B2),P$ 
(B4): SWAP P$(B2) ,P$(S1): SWAP B1, B3: SWAP 
B3,S2: SWAP B2,B4:SWAP B4,S1:GOTO 1500 
1440 IF А%<>"2" THEN 1470 

1450 IF F$(B2*5)-"S1" THEN SWAP P$(B1), 
F$ (B2) : SWAP P$(B1),P$(S1):SWAP P$(B3),P$ 


p PiO10 号 に し て 初め て ハガキ を 出し ます . と ころ で , な ぜ に PiO は アニ メ に 侵略 さき れ な けれ ば な ら な い の で し ょ うか 2? РІО PiO で は アニ メ 
の CX つの は ょ い だ の , メメ を 見 よう / だ の と …. PiO の 表紙 を 見 て くだ さい / “マイ コン ・ ゲ ー ム の 情報 誌 " と 書い て ある で は あり ませ ん か / 
アァ ニ メ の 情報 紙 で は な い の で す . そん な に アニ メ の こと を 書き た けれ ば , アニ ュ 雑 誌 に 投稿 し な る さい ク を それ に イラ スト も ロリ コン 趣味 の も の 
ば か り で 、 こ の よう な も の を 甘い て いる 人 が 自宅 で は 全裸 の 少女 を 描 じ てい る の で は な いか と 心配 で す 、 反論 は ある で し ょ う が , 自分 の 考え A. 


ТЕСИ 


ал С 
2030 DATA の 。 の 。119。3 日 。119。42。 の 。 の 。15 の 。75。 
140,75,140,85,0,0,143,84,143,78,145,77,1 
47,77,149,78,149,84,0,0,143,81,149,81,0, 
0,115,29,115,32,0,0,115,29,116,33,0,0,11 


| 7,29,117,33 


2040 REM ~~~~~ C / $*-9 ww 
2050 DATA 0,0,320,33,5320,45,2321,46,343, 
46 。 さ 45 。 45 。345 。 ささ 。 さ 43 。 さ 2 。 さ 21 。 さ 2 。 さ 2 の 。 さく 。 の 。 
の 。 さ 2 の 。 さ 9 。 さ 1 。 さ 9 。 さ 16。4 の 。 さ 16。41 。 さ 1 日 。42 。 さ 2 の 
,42,0,0,545,39,5347,39,348,40,548,41,347, 
42,545,42,0,0,327,46,327,48,322,51,334,5 
1 

2060 рата 338,49,338,46,0,0,329,49,518, 
49,315,50,216,51,307,56,307,59,209,59,31 
1,60,312,60,314,61,518,61,518,62,316,64, 
314,64,7212,623,5309,63,305,61,305,60,207,5 
9,0,0,332,52,332,61,0,0,238,49 

2070 DATA 347,49,350,51,350,52,:254,54,3 
54,55,356,56,361,56,5363,57,353,62, 356,652 
,356,56,0,0,320,59,320,63,5345,63,345,61, 
320,61,0,0,345,59,345,62,2355,62,0,0,320, 
63,320,64,518,65,318,68,316,69,2316,73 

2080 DATA 348,73,5348,70,347,69,345,62,0 
,40,323,63,323,68,321,69,321,73,0,0,329,6 
3,329,68,327,69,327,73,0,0,332,653,332,73 
,0,0,336,63,336,68,338,69,538,73,0,0,341 
,63,341,68,543,69,343,73,0,0 

2090 DATA 518,75,518,75,514,75,512,76,5 
12,77,314,78,327,78,329,77,329 ,76,327 ,75 
,327,73,0,0,538,73,338,75,536,76,336,77, 
338,78,348,78,350,77,350,75,348,75, 347, 7 
5,347,72,0,0,357,62,357 ,64 , 363,64 

2100 DATA 363,53,0,0,357,56,357,53,356, 
53,356,51,265,51,365,53,357,53,0,0,357,5 
1,357,30,359,50,363,32,553,51,0,0,325,32 
,525,37,323,38,320,38,0,0,339,32,339,37, 
341,38,345,38,0,0,330,29,3530,34 

2110 DATA 334,34,334,29,330,29,0,0,329, 
38,529,42,0,0,320,38,330,42,0,0,536,38,3 
36,42,0,0,335,38,235,42,0,0 
` 2120 DATA 366,75,356,75,556,85,0,0,365, 
79,365,78,363,77,5361,77,359,78,359,83, 36 
1,84,3632,84,365,83,565,82 

2130 DATA 0,0,331,29,221,33,0,0,332,29, 
332,33,0,0,535,29,333,33 

2140 REM **""*"* B ノ テバ ー タ vvv 

2150 DATA 0,0,208,47,208,39,206,38,205, 
36,210,34,214,34,216,53,234,33,256,34,24 
0,34,242,35,242,38,240,40,240,47,238,47, 
238,48,210,48,208,47,0,0,208,47,206,47,2 
の 6 。 49 。 2 の 4 。 49 。 2 の 4 。62 。 2 の 2 。 6 さ 。 1BB 。6 さ 。 1B6 。62 

2160 DATA 186,58,204,58,0,0,204,49,198, 
49,196,50,194,50,184,55,184,58,185,58,0, 
9,210,49,208,51,208,61,206,61,205,63,242 
,63,242,61,205,61,0,0,2:35,60,235,50,228, 


新しく で きた だ た レーシ ング ・ ク ラブ 内 で , 


リー ダー を 決め る た め に クラ ブ 員 に よる レ 


*ー ス が 行なわ れ だ 、 あ な だ は どう し て も こ 
の レー ス に 勝っ て , 
け は れ ば ぼ な らら ない .。 し か が し 。 


砂漠 を ぬけ , 森 を 通り , 


助っ人 が いろ いろ 邪魔 を する . 

込ま れ な いよ うに 

ル を 目指 し た . 
図 2 操作 キー 


を 変え る つも り は 毛頭 な い の で 悪し か ら ず . 


, 


リー ダー の 座 を 取ら な 
この レー ス に は 
多く の 障害 bol. コー ス は 都市 を 通り ・ 
川 を 渡る と いう よ 
うな コー ス で , さら に リー ダー を 狙う 者 の 
これ に 巻き 
あな だ は ひだ すら ゴー 


4n MN 


し ANRE PECUS SS 


49 。 238 。 47 。 249 。 47 。 242 。 4B 。 242 。 5 の g 

2170 рата 240,51,240,60,0,0,242,49,254, 
50,256,51,258,51,262,53,262,58,240,58,0, 
0,244,59,244,653,258,63,260,62,250,59,0,0 
,186,64,186,65,188,66,202,66,202,64,0,0, 
244,64,244,655,246,66,258, 66 

2180 DATA 260,65,260,64,0,0,206,64,206, 
65,204,565,204,75,222,75,222,78,204,78,20 
2,77,202,76,204,75,0,0,222,68,224,59,224 
,74,226,75,226,77,228,78,244,78,245,77,2 
46,75,244,75,228,75,224,74,0,0,240,64 

2190 DATA 242,65,242,75,0,0,214,38,234, 
38,236,39,236,45,2234,46,214,46,212,45,21 
2,39,214,38,0,0,295,73,270,73,270,85,0,0 
,278,75,286,75,288,76,288,78,286,79,278, 
79,278,75,0,0,278,80,278,85,286,83 

2200 DATA 288,82,288,80,0,0,224,74,222, 
75,0,0,204,61,208,51,0,0,218,40,218,44,0 
,0,230,40,2:30,44 

2210 REM ~~~~~ р у Fg ww» 

2220 DATA 0,0,106,98,144,89,144,91,116, 
98,116,99,118,101,152,98,132,100,115,104 
;1190,100,108,102,90,105,86,102,104,99,10 
8,101,0,0,104,98,104,105,0,0,100,99,100, 
194,0,0,95,100,95,105,0,0,92,101,92,106 

2230 DATA 0,0,90,106,86,108,85,111,88,1 
12,102,112,104,111,104,110,106,119,106,1 
11,0,0,152,105,122,105,132,114,0,0,128,1 
07,144,107,148,109,148,111,144,112,138,1 
13,128,197 

2240 REM ~~ や ~~ F у $"-9 "wv 

2250 DATA 90,0,323,105,219,101,315,105,3 
29 。 1 1 の 。 さ ささ 。 1 日 。 さ 23 。 1 9 さ 。 さ き 1 。 日 9 。 さ 51 。95 。 さ 29 
,106,0,0,519,105,209,110,215,113,325,108 
,0,0,345,92,345,94,325,104,0,0,345,93,32 
5,103,0,0,267,105,247,105,247,115,0,0,36 
3,107,353,107,353,1153,0,0,353,110,361,11 
° 


2260 REM v"v** E у テー タラ wv 

2270 DATA 0,0,191,89,191,91,189,92,189, 
93,183,95,183,97,179,99,0,0,191,96,189,9 
7,189,98,179,103,177,103,175,104,0,0,185 
,1901,185,110,0,0,197,90,197,94,195,95,19 
5,97,195,98,195,99,203,99,205,98,209,98 
2280. рата 0,0,197,94,207,94,0,0,201,94, 
201,105,0,0,207,101,201,102,0,0,193,102, 
195,108,0,0,207,104,191,108,0,0,211,94,2 
11,112,0,0,211,94,221,94,219,95,219,98,2 
21,99,221,102,219,105,217,105,215 

2290 DATA 102,0,0,229,110,229,109,231,1 
98,231,105,233,104,233,98,235,97,235,91, 
253,91,263,110,0,0,245,91,249,93,249,110 
,0,9,233,98,261,98,0,0,233,103,261,105,0 
,0,295,1905,275,105,275,114,0,0,291 

2300 DATA 107,281,107,281,1153,291,117,0 
,90,281,110,291,110 


⑳ エ ネル ギー が な く な る と 失格 . 
図 1 


PLAYER 


das dd 


2.9 きゃ 


E ue s SR 


pio 


忍者 パズル BASIC リ スト 


2310 REM v*v** G ノ 5-9 vvv 

2320 DATA 0,0,212,1355,212,120,92,120,92 
,140,200,140,0,0,200,145,200,135,224,135 
,9,0,92,120,125,140,0,0,104,120,127,140, 


[9,0,128,120,118,125,0,0,140,120,1235,1:50, 


0,0,108,1:0,92,140,0,0,104,139,112,123 

2330 DATA 9,0,140,120,140,140,0,0,152,1 
20,152,1490,0,0,164,120,164,140,0,0,164,1 
20,197,139,0,0,175,120,202,135,0,0,200, 1 
20,188,126,0,0,212,120,192,129,0,0,1890,1 
29,164,140,0,0,175,140,188,132,0,0,218,1 
39 

2340 DATA 218,1358,216,157,209,157,206,1 
38,206,142,209,143,215,143,218,142,218,1 
41,214,141 

2350 REM ~~ へ ~~ H у 37-9 vw» 

2360 DATA 0,0,356,1:5,256,120,236,120,2 
36,140,344,140,0,0,544,145,544,135, 358,1 
35,0,0,236,120,269,140,0,0,248,120,281,1 
40,0,0,272,120,252,126,0,0,284,120,267,1 
30,0,0,252,130,235,140,0,0,248,139,257,1 
33 

2370 DATA 0,0,284,120,284,140,0,0,295,1 
20,295,140,0,0,308,120,308,140,0,0,:08,1 
20,341,139,0,0,320,120,346,135,0,0,344,1 
20,332,126,0,0,356,120,536,129,0,0,324,1 
29,308,140,0,0,220,140,332,133 

2580 DATA 90,0,350,137,:50,14:,0,0,350,1 
40,362,140,0,0,352,127,362,143 

2390 REM ~~ へ ~~ I J テー タグ "w^ 

2400 DATA 0,0,110,1652,110,161,105,158,1 
06,154,110,151,116,149,122,149,128,151,1 
28,152,138,157,0,0,132,150,132,158,0,0,1 
38,151,125,157,0,0,140,154,124,154,0,0,1 
$2,165,132,155,132,175,0,0,1:8,167,146,1 
67,0,0,142,157,142,175,0,0,128,173,146,1 
73 


2420 DATA 90,0,517,161,315,150,5315,157,3 
17,156,321,156,325,158,325,161,321,164,3 
17,165,309, 165,393, 153,305,151,0,0,2325,1 
58,329, 156,333,156, 335, 157,335, 161 537,1 
62,339, 162,343, 160,343,159,349,156,351,1 
56 

2430 DATA 353,157,353,160,349,162,347,1 
62,343,160,0,0,547,157,347,159,349,160,3 
55,1650,557,159,359,159,0,0,359,152,359,1 
62,0,0,367,155,345,165,345,175,0,0,357,1 
67,361,157,0,0,361,167,5361,171,359,172 

2440 DATA 355,172,353,171,253,170 


@ ア バラ チア ・ モ ドキ 


@ 助 っ 人 の 邪魔 に あう と 失格 . 
障害 物 に 当たる と エネ ルギー が 減る . 
その他 は 作る 人 人 に まかせ ます . 


画面 表示 例 


.-① わ エネ ルギー メー ター 
G は 安全 
E は 注意 
R は 危険 
② 都 市 な ど を 書き 込む 
⑧ 木 や 土 な ど を 書き 込む 


SCORE 
000000 
SPEED 
0 0 0km/h 


(佐藤 A) 


ый 


E, ТЕКТ 


у, + 


BASIC( コ ン パ イラ ) 二 マシ ン 語 


スン エア ・ バ ズル 


一 福井 理恵 子 


これ は , EXAS コ ン バ パイ ラ ROM を 手 に 入 
れ て 最初 に 作っ た ゲー ム で す . アイ デア に 
独創 性 は あり ませ ん が , 自分 の 描い た 絵 が 
その まま パズル に な る の で , 結構 楽し め る 
と 思い ます . 


画 プ ログ ラム ・ イ ン フ ォ メ ーション 


BASIC (コン パイ ラ ) 
マシ ン 語 D000~DB3F 
TY 
うっ うっ うっ つっ 
^52» 


絵 は 描 きやすい し , と に か く ひ よ 
こ マ ー ク が か わい いで す . (V) 


プロ グラ ム は BASIC( リ スト 1) と マシ ン 
語 デ ゲー タ ( リ スト 2:D000HーDB3FH) の 2 
つ に 分 あれ て いま す 。, 

まず , ペー ジ 数 を 2 に し て BASIC ブ ログ 


ラム を 入力 し ます . コン パイ ル す る 前 に 念 
の だ た だめ セー ブ し て お きま し ょ う . そし て , 
コン パイ ル (“"STRING LENGTH?" に は 
キー だ け を 押し て くだ さい ) で き 
だ ら テ ー フ ブ " に セー ググ し ます 。 

次 に , EE モニ タ な どの マシ ン 語 モニ タ を 使 
っ て マシ ン 語 デー タダ を 打ち 込み 。 コン スイ 


ル し た ブロ グラ ム の 後に モー し ます . 


> オン デル ググ を 一 に し TRENT 
る と 。 自動 的 に マシ ン 語 ゲー タ を ロー ド し 
適当 に や っ て い る わけ で は な い の に な ぁ 


PDB, みな みり ょ うこ さん の オリ ジ ナ ル ・ コ ピー 本 ./ 
っ そ を 愛読 者 全員 プレ ゼン ト に … だ めか し ら 6. ああ っ , Е, どー か 当 た 
費 取 っ て 希望 者 全員 に 配布 し て くだ さい ./ りょう こさ ん / ) 


て ゲー ム 開 始 で す . 後 の 操 作 は 画面 に 表示 
きれ る の で わか る と 思い ます . 

この パズル は , ば ら ば ら に な っ だ 15 枚 の 
ピー ス を 移動 きせ て 1 枚 の 絵 を 完成 きせ る 
と いう も の で す . この ピー ス の 移動 に は カ 
ー ソ ン ソル ・ キ ー を 使い ます . だ た だし, EHD 
ビー ス (完成 し て いる と き の 絵 の 右 下す み 
の ビ ピース) は カー ソル ・ キ ー と は 逆 (た と 
えば [人 き | キ ー を 押し た と き , こ の ピー ス は 下 
に 移動 し ます ) に 動く の で 注意 し て くだ る 
w; 

そし て , KEDER 1 12 b [RETURN] キー 
を 押し て くだ さい ( 絵 が バラ バラ に な っ て , 
どう し よう も な く な っ た と きも [RETURN | 
キー を 押し て くだ さい ). 絵 が 完成 し た か ど 
う か 調べ で て くれ ます . 

まな た , 自分 で 絵 を 描く か , 作っ た デー タ 
を ロー ド す る 場合 は , ゲー ム 開 始 時 に [Cc| キ 
ー を 押す か , パズル の 途中 で [RETURN | キ 
ー を 押し た 後に [al キ ー を 押し て くだ きい 
(パズル を や り 始 め る 前 の "スペ ー ス を お す “ 
と いう 表示 の 場合 は 1RETURN| キー を 押し 
た だ け で も 結構 で す ). 

と ころ で , 絵 を 描く と き は 操作 する キー 
(コマ ンド ) が た くき さん ある の で ,|s| キー で 
説明 を よく 見 な が ら 描い て いっ て 《 く だ さい . 

な お , 色 を 塗る と き に その 周り の 線 と 同 
じ 色 で 塗っ て し まう と 塗り 直し が で き な く 


な る し , 線 に 切れ 目 が ある と よけい な 所 ま 
で 塗っ て し まい ます . だ か ら , 2 KS НІ. 
に [| キー で 絵 を 退避 ふせ て お きま し ょ う . 
を そう すれ ば 失敗 し て も [T| キ ー で 元 の 絵 を 呼 
び 戻 せま す . . 


プログ ラム は 付け 足し , 改良 で ご ちゃ ご 
ちや に な っ て し まい まし だ た: で も 。 参考 の 


た め に 行 番号 マッ プ に 大 体 の と ころ を 載せ 


と いう 人 は (PiO の ひよ こち ゃ ん が か わい 
いん だ けど な あ ), リ スト 1 の 20 行 と 3190 行 


Z, それ は あま り に 酷い 。 
り ま す よ うに ググ (だ けど 圧倒 的 大 多数 は 確実 に 潤 て ん だ 。 で きれ ば 実 


げ げ っ , た っ な だ た 10 人 !? 


初期 準備 

お 絵描き の 説明 

お 絵描き の 初期 設定 
お 絵描き の 画面 設定 
お 絵描き の プロ グラ ム 
パズル の プロ グラ ム 
モニ タ の 入力 
デー タ の セー プ ブ 
デー タ の ロー ド 
パズル の 判定 
画面 デー タ の 退避 
退避 デー タ の 呼び 戻し 
座標 の 指示 
パズル の 開始 準備 


ー3210 行 は 入力 し な く て も 結構 で す . この 
と き , リス ト 2 も 入力 する 必要 は あり ませ 


decus 
em 


カー ソン ソル ・ キ ー を 操っ て 絵 を 描く の は ち 
ょ っ と 難し いよ う で す .[ 昌 キー を 使っ て 直 
線 の 連続 で 描く とう まく 描け ます よ . 

本 当 の 最後 に , パズル で 変更 回 数 の 入力 
の と き , ゼロ を 入力 し て か ら 変 更 回 数 を 入 
力 す る と 面白 いで す よ . 

3 参考 文献 
1) 佐々 木 哲 哉 :“ マ シン 語 モ ニタ ”", I/O, 


ИУ 


せめ て 100 人 . いや 1000 人 ,、 い 


(盲目 の FLOSSENENGEL ) 


ге е TS UENRNUMCUNCHUL LS UNDE DRE リス ト 1 スク エア バズ ル ンー ス ・ リ スト 


1 の DINM TB(16):GOSUB2320 
20 EXEC&HDD7C: 5605085190: GOTO1690 
30 SCREEN2,1,1:CONSOLE,,0,0: COLOR2,1,1:C 


40 LOCATE7,2:PRINT "339000 XO RFK KR" x 


50 LOCATE7,3:PRINT "s ="; 
60 LOCATE7,4:PRINT "+ ズ フ エア wA" ="; 
70 LOCATE7,S:PRINT "+ +"; 
ВО LOCATE7,6:PRINT "+ МК. FUKUI +"; 
90 LOCATE7,7:PRINT "+ 1984.7.21 +"; 
100 LOCATE7,B:PRINT "+ f x" 


110 LOCATE7,9:PRINT "33900 E HF E ¥ €" 


120 LOCATE9,11:PRINT "1: LRAT RE p<" 
150 LOCATE9,12:PRINT "2: 7-»*55 g-t $$" 
140 LOCATE12,14: INPUT "1 or 2 "А 


ІҒА=1ТНЕМР АҮ "сё4964" : 60508190: GOTO 


160 IFA-2THENPLAY "с64924": БОТО 2460 
170 РІ АҮ"сё4964" : БОТО 140 

180 КЕМ 

190 SCREEN? 。 1,1: CONSOLE, ,0,0: СО ОК2, 1,1: 
CLS:LOCATEO,0:PRINT"5a5* 0 せつ めい 


200 LOCATEO,1:PRINT " df-:s4 を v< ut- 
L て ん ⑰ いと さろ う " ° 

210 1ОСАТЕ@,2:РК1МТ " ef-:494 を t 1%= 
ちよ くせ ん € ba" 

220 LOCATEO,3:PRINT " コキ ー』 さ ガ がく t 5+ 4 キー 
:454 を がく" š | 

230 LOCATEQ,4:PRINT " Af-:5$55L" 


240 LOCATEO,S:FRINT " 


y し ろう) に 05" : 

250 LOURTEB, P PRINY " y.Ct-:20 (ABA or 
みす いる) に 85 

260 LOCATE®,7: PRINT " b,mt-:30 いろ る (あお or 
むら さき ) に 05" 

270 LOCATEO,8:PRINT " r,O*T-:40 いる (あお or 

た さい た (1 うに WA" 

280 LOCATEO,9:PRINT " st-:535* の と ちゅ うろ て ゞ 
せつ めい を pa" 


290 LOCATEO,10:PRINT " 
А" 

500 LOCATEO,11: PRINT d 
& 1 も と いそ 

510 LOCATEQ,12:PRINT " 


キー ぇ を テー ブフ? に gnvz 


T イ キー: と っ て お いた ХЕ АЙ 


ttf-:z*& (5." と つて お く 
320 LOCATEO,13:PRINT " 
5t #5" 

330 LOCATEO,14:PRINT " P キ ー』 ハ 7 マリ ル を тА" 
340 LOCATE6,15:PRINT "スベ ター ス キー を $3"; 
350 IF STRIG( の )= の THEN 550 

|360 PLAY "c64g64":RETURN 

370 CONSOLE,,0,0: SCREEN 5,2,2: CONSOLED , 1 
6: COLOR2,1,1:CLS 


R^? =R *T-:tAO0 ささ ひよ ょ 


380 LOCATE2 , 0: PRINT " おえ お き フ * 07° 55" : LOCATE 
S,1:PRINT "by M.FUKUI" ; 
390 LOCATE6,3:PRINT "a b":LOCATE3,4: 
PRINT "1 あと さり LA " 


400 і ОСАТЕЗ, 5: РКІМТ "2 きい る あす いろ 
E3。6: PR INT "3 あお むら さく を v 

410 LOCATES,7:PRINT "4 $5 た YO を YO o» 

420 LOCATEO, 10: PRINT "ПАФ く あ あわ せ a,b?" 
430 AA$-INKEY$ 

440 IF Ад%Ф="а"ТНЕМСО= 1 : 6070470 

450 IF AA$-"b"THENCQ-2: 6070470 

460 GOTO43Q j 

470 IF ІМКЕҮФ< >" "THEN47 の 

480 LOCATE15,10:PRINT AA$:PLAY "có4g64" 
490 LOCATEO,11:PRINT "お が めん 1,2,53,4?" 
5 の の AA$=INKEY$ 

510 IF AA$="1"DRAA$="2"DRAA$= 
"THENBGQ-VAL (АА%) : БОТО550 

520 GODTD5 の の 

530 IF ІМКЕҮФ< >" "THEN5 さ の ; 
540 LOCATE15,11:PRINT AA$:PLAY "có4g64" 
550 LOCATEO,12:PRINT "せん isdi m T" 

560 AA$-INKEY$ 

57@ IF АА%= "1"ORAA$-"2"ORAA$-"S"ORAAS-"A4 
"THENFQ-VAL (АА%) : GOTOS90 

s8@ GOTOS6Q0 

IF ІМКЕҮФ< >" " THEN590 

600 LOCATE15,12:PRINT AA$: PLAY wc24g64・ 
610 FOR JJ=1TD4 

IF JJ-FQ THEN 659 

IF JJ=BQ THEN 6590 

640 PO-JJ:GOTO 660 

650 NEXT JJ 

660 LOCATEZS,14:PRINT "a^*-3*- t€ お す "』 

IF STRIG( の )=1 THEN PLAY "có4gó64":GOT 


"s LOCAT 


"З"ОКАА%= "4 


0690  — 
680 GOTO670 
690 SCREEN 5,2,2: CONSOLEOD, 16: COLORFO , BO, 
CO:CLS 
| 700 LINE (48,24)-(208,158) 。FQ 。B 
710 LINE (168,122) -(208,168) ,FQ,B 
720 Х1=128:Ү1=100: X つ =1 2 日 : Y2-100: 5-0: B-1: 
C-BQ 
730 LINE(0,180)-(255, 
Y1) 。PQ 
740 PRINT :CONSOLE Q,1:COLOR2,1,CQ:CLS:T 
$="PEN UP":PRINT T$; 
750 ON STICK( の ) GOTO 790,800,810,820,8:0 
,840,950,850 
760 IFSTRIG( の ) =1 THENXD=X 1 : YDzY1: GOSUBZ17 
の " 
770 A$-INKEY$: ІҒАФ< > 


191) ,BO,BF:PSET (X1, 


."  THEN?20 


g,wt-:l1) いる (あと さり o 


780 GOTO 750 

790 X2-2X1:Y2-Y1-1:60T0870 
X2-2X1*1:Y22Y1-1:GOTO870 

Х2=Х1+2: Y22Y1: 6070870 

820 X22X1*1:Y2-2Y1*1:GOTO870 

830 Х2=Х1: Ү2=Ү1+1: 6070870 
Х2=Х1-1:Ү2=ү1+1:6070870 
X2=X1-2: Y2=Y1 : GOTO870 
X22X1-1:Y22Y1-1:GOTO870 
IFX2»206THENX2-205 

IFX2«59 THENX2-50 

IFY2«25 THENY2-25 

IFY2>167THENY つ =1 67 

910 GOTO1150 ` 

920 PLAY "có4gó64":1F A$-"d"THENT$-"PEN D 
OWN" : 4-0: B=0: C=FQ: W-FQ: GOTO1 130 

930 IF A$-"u"THENT$-"PEN UP": A=0: B=1: C=W 
: 60701159 

940 IF A$="e"THENT$="s ¢ 13": А=1: В=0: С=В 
0: М=ВО: GUTD1 130 

950 IF A$-"y"THENA-0:B-1:C-W:T$-"PEN UP" 
:PAINT (X1, Y1) ,2,FQ: C22: 60701150 

960 IF A$-"C"THENA-Q:B-1:C-W: T$-"PEN UP" 
:PAINT(X1,Y1) ,2,FQ: C22: 60701150 

970 IF A$-"r"THENA-0:B-1:C-W: T$-"PEN UP" 
:PAINT (X1, Y1) ,4,FG: C24: GOTO1130 


-980 IF A$-"Oo"THENA-0:B-1:C-W:T$-2"PEN UP" 


:PAINT (X1, Y1) ,4,FGQ: C24: G0TO1130 

990 IF A$-"Q"THENA-Q:B-1:C-W: T$-"PEN UP" 
s PAINT (X1,Y1),1,FO:C=1: 60701150 

1000 IF A$="w"THENA=0@:B=1:C=W:T$="PEN UP 
":PAINT(X1,Y1) 。1。FB: ビ =1 : 60701159 | 
1 の 1 の IF A$="b"THENA=0:B=1:C=W:T$="PEN UP 
"sPAINT(X1 。Y1) ,3,FQ0: C22: BDTD1 150 

1020 IF A$="m"THENA=0; B=1 : C=W: T$="PEN UP 
";PAINT(X1,Y1) ,5,FQ0: C23: BDTD1 1 さ の 

1030 IF A$="]"ORA$="4"THEN1220 

1 の 4 の IF 人 Q ま =" さ "THEN1 さ 2 の 

1050 IF A$-"P"THENGOSUB3Q30: LINE (の 。 180) - 
(255,191) „BO, BF 

1000 IF A$-"P"THENLINE(9,0)-(255,11) „ВӘ, 
BF: GOTO 1690 


1070 IF А%="А"ТНЕМ57@ 


1080 IF A$-"s"THEN1640 

1090 IF A$-"S"THENGOSUB2350: GOTO 1130 
1100 IF A$-"t"THENGOSUBS3050: LOCATED , 0: PR 
INT:PRINT “O. K. “y 

1110 IF A$="T"THENGOSUB3 1 00 

1120 GOTO 750 

1130 PRINT :CUNSDLE 。 і: COLOR 2,1,CGQ: PRIN 
RES 

1140 IF ІМКЕҮФ< >" "THEN1130 

1150 GOTO 750 

11680 IF B=1 THEN CB-POINT(X2,Y2) 

1170. PSET (X2,Y2) ,POQ13PSET (X1,Y1),C 

1180 IF B-1 THEN C-CB 

1190 X1-zX2:Y1-Y2 

1200 ІҒІМКЕҮФ< >" "ТНЕМ1200 

1210 ҒОКІ0=0Тт0500: NEXT: GOTO 750 

1220 IF ІМКЕҮФ<>"" THEN122 の 

1230 A-0:B-1:C-UW:T$-"PEN UP" 

1240 PRINT :CONSOLEO,1:COLOR 2,1,CQ: IFA$ 
z"]"THENPRINT "せん を ひく (z を お す )"s 

1250 IFA$="4"THENFRINT "454 を お く (= を お す ) "; 
1260 I-X1:J-2Yi:I1-zX1:J1zY1:JBz-zC: 0$-"z 
1270 GOSUB 1450 


1280 IFA$="1 "THEN LINE (X1,Y1)-(I1,J1),F 
Q 

1290 IFA$="4"THEN LINE (X1,Y1)-(I1,J1),F 
Q,B 


1300 X1-11:Y1-2J1:PSET(X1,Y1) ,PQ 

1310 GOTO1130 

1320 IF ІМКЕҮФ< >"" THEN1320 

1530 A-0:B-1:C-W:T$-"PEN UP" 

1340 PRINT :CONSOLEO,1: COLOR 2,1,CQ: PRIN 
T "334 を 方 <(z を お す ) "5 

1 さら の I=X1:J=Y1:I1=X1:J1=Y1:JB=C:0Q$="z" 
1360 GOSUB 1450 : 
1370 IF ІМКЕҮФ< >"" THEN1370 

1380 PRINT :CONSOLEO,1:COLOR 2,1,CQ: PRIN 
T "33534 を Batt"; 

1390 I-1I1:J-2J1:M1-I1:N1-J1:JB-C: азга 
1400 GOSUB 1450 

1410 LINE (X1,Y1)—(M1,N1),FQ 

1420 LINE -(I1,J1) ,FO:LINE-(X1,Y1) ,FQ 
1450 PSET(X1,Y1),PQ 

1440 GOTO1130 

1450 ON STICK (0) GOTO 1490,1500,1510,152 
9,1530,1540,1550,1560 

1460 IF INKEY$-Q$THEN PLAY"c64g64"+RETUR 


IFSTRIG(Q)-1THENXD-11: Үр=71: 8050851 


1480 БОТО 1450 
I2211:J2-J1-1:G0T01570 
12=11+1:72=731-1:60701570 
I2-11*2:J22J1:6G0T01570 
I2211*41:J2-2J1*«1:G0T01570 
I2z11:J2-2J1*1:60T01570 

1540 I2-11-1:J2-2J1*1:G0T01570 
I2211-2:J22J1:60T01570 - 
I2211-1:J2-2J1-1:G0T01579 
IF12>2 の 6THEN 1 つ =2 の 6 

1Е12<5@ THENI2-50 

IFJ2«25 THENJ つ =25 
IFJ2:167THENJ つ =16 ア 

1610 PSET(I,J),FQ: IB=POINT (12,32) : PSET( 1 


1.2,92) ,PO:PSET(I1,J1) ,JB: JB-IB 


‚ REEN 3,2,1: COLORFO, BQ, CQ 


2360 POKE&HE5 の 6 , ВО: PDKE&HE5 の 7 , PD: PDKE&HE 


1620 I1-12:J1-J2 
1630 FORIO-OTOSQO:NEXT:GOTO 1450 

1640 IF ІМКЕҮФ< »""THEN164Q 

1650 SCREEN 2,1,1 

1660 IF STRIG( の ) = の THEN1660 

1670 SCREEN 3,2,2 

1680 GOTO1120 

1590 CONSOLEQ, 16:X-3:Y23:X0-3: YO-3 

1790 FORI-1T016: TB(I)=I:NEXTI l 
1710 COLOR FG,BG,CQ:FORI-A8TO2OBSTEPA4Q:L 
INE(I,24)-(I,168) „РӨ: МЕХТІ 

1720 FORI-24TO168STEPZ6: LINE(48,1)-(208, 

I) ,FQ:NEXTI 

1730 PAINT (205,167) ,FO,PO:LINE (176,138) — 
(200,162) , BQ, BF 

1740 LOCATES,15:PRINT "スズ スペ"ー ス ・ キ ー を お す !" ョ 
1750 IF INKEY も ="C"THEN さ の 

1760 IFSTRIG (0) = の THENCG=RND( 1 ) : БОТО 1750 
1770 LINE(0,0)-(255,11) ,BO,BF 
1780 SCREEN1,1,1:COLOR1,1,1:CLS: 

CATES,6: INPUT "な ん おい うっ “が し ます が "CG 
1790 IF CB= の THEN LK=1 

1800 IF Сб=<@ OR CG»-1000 THENPLAY "сё4д 
64":GO0TO 1780 

1810 LOCATE9,10:PRINT "Li 5 CBS" fü" SC 


C6=20: LO 


1820 IFLK-1THENSCREEN さ 。2。2+LK= の 

1830 FORI-1TOCG 

1840 ONINT (RND (1) #4+1) GOTO 1850,1870,189 
0,1910 

1850 IFY=3ORCH= 1 THEN1 840 

1860 Y=YØ+1:CH=3:GOTO 1930 _ 

1870 IFX=00RCH=2THEN1 840 

1880 X=X0-1:CH=4: GOTO 1930 

1890 IFY=0ORCH=3THEN1 840 

1900 Y-YO-1:CH-1:GOTO 1939 

1910 IFX=3ORCH=4THEN1 840 

1920 Х=Х@+1:СН=2 

1930 ТТ=ТВ(үж4+Х+1) : TB(Yx4+X+1 ) =TB(Y ウ 4+ 
X の +1 ) : TB(Y の Ox4+X の +1 ) =TT 

1940 GOSUB2200 

1950 XQ=X: YQ=Y 

196 の NEXT 

1970 SCREEN 3,2,2:LINE (0,180) - (255,195) , 
BQ, BF 

1980 LOCATES,0:PRINT "2717 NAW"; 

1990 LINE(170,169) -(255,179) , BO, BF 

2000 LOCATE2,14:PRINT "^425 が いう" C8; 
2010 LOCATE2,15:PRINT "nesa pugs Q@";:MC= 
o 

2020 ONSTICK (0) GOTO 2070, 2060, 2090, 2060, 
2110,2060,2130, 2 の 6 の 

2030 A$=INKEY$: IFA$=CHR$ (3) THENSTOP 

2040 IFA$=CHR$ (13) THEN2 フ 6 の 

2050 IF А%="С"ТНЕМЗ@ 

2060 GOTO 2920 

2070 1FY= さ THEN2 の 2 の 

2080 Y-YO*1:GOTO 2150 

2090 IFX= の THEN2 の 2 の 

2100 X-X0-1:G0TO 2150 

2110 IFY= の THEN2 の 2 の 

2120 Y=YQ-1:GOTO 2150 

2130 1FX=3THEN2 ウ 2 の 

2140 X=X の +1 

2150 TT=TB(Yx4+X+1) : TB (Y#4+X+1) =TB(YOX4+ 
X の @+1 ) : TB(Y の 4+X の +1 ) =TT 

2160 GOSUB2200 

2170 XO-X:YO-Y:PLAY "c64g64" 

2180 LINE (176,180) - (255,191) , BG, BF: LOCAT 
E11,15:MC-MC*1:PRINT MC; 

2190 GOTO 2020 

2200 FDRY9=1T ロ さら 6 

2210 Y8-&HE200-(24*(Y*56*Y9-10) #32 

2220 Y7=&HE2ØØ+ (24+(Y の さら 6+Y9ー1 ) ) #32 

2230 FORX9-1TO5 i 

2240 X8-26*(X*5*X9-1) *Y8 

2250 X7-6*(X0*5S*X9-1) *Y7 

22650 POKEX7,PEEK (X8) 

2270 NEXTX9:NEXTY9 

2280 LINE(5SO*X*40,25«Y*56) -(87*X*40,59*Y 
+56) „FQ, BF 

2290 LINE (564+X#40, 3Ø+Y*36) - (B+X*49。 54+Y 
+56) ,BQ, BF 

2300 RETURN 

2310 READA$:POKEI,VAL ("&H"+A$) 

2520 FDRI=&HDD4 の 9TD&HDDD 1 

2330 READA$:POKEI,VAL ("&Н"+А%) 

2340 NEXT: RETURN 

2350 SCREEN 2,1,1:CONSOLE15,1:CLS: INPUT" 
FILE NAME";FL$:FL$=FL$+" " 


S08, FQ: POKE&HESO?9 , CO 

2370 D1-ASC(LEFT$(FL$,1)) 

2380 D2-A4SC(MID$(FL$,2,1)) 

2590 I-&HDD36:POKEI,D1 

2400 POKEI-*1,D2 

2410 POKE&HDD32,6 :POKE&HDD33,229 

2420 POKE&HDD34,244: POKE&HDD35, 17 

2450 PRINT "WRITING "sLEFTS (FL$,2) 

2440 EXEC &HDD4 の : CONSOLEO,16 

2450 SCREEN 35,2,2:RETURN 

2460 SCREEN 5,2,1: CONSOLEO, 16: CLS: SCREEN 
2,1,1: EXEC&HDD7C 

2470 BQ-PEEK (&HESQ6) : РО=РЕЕК (&HESO07) : FÜ= 

PEEK (&НЕ508) : CO-PEEK (*HES09) 

2480 SCREEN 3,2,1:COLOR FQ,BQ,CO:LINE(48 


K Ж? ur ME Ta > 1 Pie 
(ES ТРАС Ey U 


күү, 
EM 


PN 
* 


S ЫЗ | 
AN NA 


КОЕ УА 
ЫЛЕ, БАР T7] 


t: EE e 


pio 


人 


リス ト 1 スク エア パズル ソー ス ・ リ スト 

, 24) ~ (208,168) ,FD,B 

2490 LINE(O,0)—(465,191) , BC, BF 

2500 LINE (0,0) – (254,25) , BO, BF 

2510 1ІМЕ (210,0) - (254,191) 。 BO, BF 

2520 LINE( の 。169) -(254,191) , BO, BF 

2930 SCREEN :35,2,21LOUATES, 1S8: PRINT AN 
スズ ・ キ ー を お す " * 

254@ IFSTRIG(0)-1THENGOSUB3Q030: GOTO 1690 
2550 IFINKEY$-CHR$(13) THENLOCATEO , 0: GOSU 
B190: SCREEN 5,2,2: GOTO 700 

2560 GOTO 2540 

2570 DATA cd,a8,25,06,05,3e,af,cd 

2580 DATA cc,1a,10,f9,21,32,dd,06 

2590 DATA 06,7e,23,cd,cc,1a,10,f9 

2600 DATA cd。 の 6 。 1b 。cd 。 a8 。25 。 1 e 。 9 の 

2610 DATA 2a,32,dd,ed,4b,34,dd,S56 

2620 DATA 23,7b,82,5f,7a,cd,cc,1a 

2630 DATA 0b,78,b1,20,f2,7b,cd,cc 

2640 DATA 1a,c3,06,1b,cd,7a,25,06 

2650 DATA 05,cd,70,1a,fe,af ,20,f7 


|2660 DATA 10,f7,21,22,dd,06,06,cd 


2670 DATA 70,1a,77,235,10,f9,cd,06 

2680 DATA 1b,af,32,58,dd,21,76,25 

2690 DATA cd,cf,30,21,56,dd,cd,cf 

2700 DATA 30,cd,9a,25,2a,32,dd,ed 

2710 DATA 4b,34,dd,1e,00,cd,70,1a 

2720 DATA 57,85,5f,72,25,0b,78,b1 

2730 DATA 20,f5,cd,70,1a,bb,ca,aa 

2740. DATA 1a,cd,aa,1a,21,85,05,c5 

2750 DATA cf,30 

2760 A0-0:FORI-1TO16: IFTB (І) < 2ITHENAQ-1 


0000: AA 
0008: AA 
0010: AA 
0018: АА 
0020: АА 
0028: АА 
0050: АА 
0058: АА 
0040: АА 
0048: АА 
0050: АА 
0058: АА 
0020: АА 
0028: АА 
0070: АА 
0078: АА 


DORBO: АА 
D の BBi АА 
DC の : AA 
D の Ci AA 
0000: AA 


Sum: А@ 


0100: AA 
D108: АА 
D110: の の 
0118:АА . 
D1 20: AA 


| D128: ^A 


D130: AA 
D138: の の 
D1 4 の : AA 
D148: АА 
D150: AA 
0158: AA 
Di 6 の: の の 
Di48: AA 
0170: АА 
Di 78: АА 


D180: AA 
D188: の の 
D190: АА 
Di98:AQ 
D1 AA の: АА 


X ON 


> 「 う る 星 」 は, 原作 アニ メ 共 に 最高 な ん じゃ な いで し ょ うか . 
きん の ファ ン で す . これ か ら も 頑張 っ て くだ きい , P.S. 9 Ноу АА, 住所 が 分 か り ま せん . 
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2770 NEXTI:SCREEN 1,1,1:COLOR 1,1, 1: CLS 

2780 IFAD-OTHEN2900 

2790 LOCATE8,2:PRINT "EÉ*9c**34Z!'''":L OCATE 

9,4: PRINT "の ぶん | かっ て く な さき さい! 

2800 LOCATE2,7:PRINT "+ z^*-zt-* お す と оэ“ 

"Ut cea" 

2810 LOCATE2,9:PRINT "* "ÈS あき ら め た 。 」』 と いろ ひと 

Kik Oa s Gak ŠW 

28 LOCATES,10:PRINT "BLT さい し ょ お ら や りな お し て 
た さい tii " 

2830 LOCATE2,12:PRINT "ж え を お き な お し た いひ と は d 

p-e" 

2840 LOCATES,13:PRINT "BLT <th" 

2850 IFSTRIG( ウ の)=1THENSCREEN 5,2,2:6ОТО 2 

220 


2860 A$-INKEY$: IFA$=CHR$ (15) THENSCREEN 3 


2,2:CLS: 605085100: GOTO 1290 

2870 ІҒаФ="а"ТНЕМ2890 

2880 GOTO 2850 

2890 LOCATEO,0:GOSUB190: SCREENZ,2,2:CLS: 
805085100: 5070790 

2900 LOCATEB,2:PRINT "お めで て さとう 1!!! жж" 
2910 LOCATE9,4:PRINT "へ ん こう OTA; CG; "t" 
2920 LOCATE10,S5:PRINT МС; "お いて て いき まし た "し 
OCATE9,7 | 

2930 IFMC-«CGTHENPRINT "あな た は て ん さい て さす 
2940 IFMC>CB*2THENPRTNT "あな た は と さり ょ く お て さす " 
2950 LOCATE2,9:PRINT "* 「 も うい ちと さす る 。 』 と いろ ひと 
| はり ウーフ キー を" 

2960 LOCATES,10:PRINT "お し て べた ささ いい 

2970 LOCATE2,12:PRINT "+ え を お き な お し た いひ と は d 


リス ト 2 スク エア パズル マシ ン 語 デー タ ・ リ スト 


DIA8:AA АА АА AA 80 の の 00 00: 28 
D1B の : の の の の 00 AA AA AA AA AA:52 
D1E8:AA АА АА AA АА АА АА AA: SQ 
D1C の :B の の の の の QQ QQ QQ QQ 2А: АА 
D1C8:AA AA АА АА AA АА АА AA:50 
D1D の : АА AA AA AA の の の の 00 00: АВ 
D1D8:Q0 00 QQ 2А AA АА АА AA:D2 
DiEQ:AA AA AA АА AA АА АА A8: 4E 
D1EB: の の QQ QQ OO OO QQ 00 QA:QA 
DIFØ:AA АА AA АА AA АА AA AA: 30 
DIF8:AA AA AA АВ の の の の 00 0@0:^& 


ーー ーー ーー ーー — ーー ーー ーーーー ーーーーーーーーーーーーーーーーーーーーーーーーーー — — — — —À — — — 


D2 の の : の の 00 QQ 0А AA АА АА АА: В2 
D208:A44 AA АА АА АА АА AA А0: 46 
p210:00 OO の の の の OO QQ の の 02:02 
D218:AA AA AA AA AA АА AA АА: 50 
D22Ø:AA АА AA 80 の の 00 00 00: 7E 
D228: 00 00 00 の 2 АА AA AA АА: АА 
D23 の :QR AA АА AA AA АА AA 80:26 
D238: の の の の の の の の の の QQ 00 02:02 
0240: АА AA АА AA АА АА АА AA:50 


|р248:АА АА AA の の の の 00 00 00: ҒЕ 


0250:00 00 の の 02 AA АА АА AA:AA 
0258: AA AA АА АА АА AA AB 00: А4 
D260: の の の の の の QQ OO の の の の 00: の の 
D268:AA AA AA АА АА АА AA АА: 50 
D27 の : An AA АВ の の OO QQ во 00:7C 


Dp278:00 QQ QQ QQ АА АА АА АА: АВ 


ーー — — ーー Up ーー 


0280: АА АА АА АА AA AA АВ 00:44. 
p288:00 ØA во の の OO 00 OO @@:8^ 
0290: АА AA AA AA AA AA AA AA:50 
0298: АА AA AØ の の の の 2F 80 の の : ム 3 
DA の : の の QQ 00 QQ AA АА АА AA:A8 
DZA8: AA АА AA АА АА АА AO 00: 5С 
D2BO0:02 BF 80 の の の の QQ OO 00:41 
D2BB:QQA AA AA AA AA АА АА AA: 50 
DECO: AA АА AØ 00 OB FF EO QQ: DE 
D2C8:00 の の QQ 00 AA AA АА АА:АВ 
0200: АА АА АА AA AA АА ^8 00:^4 
D2D8:AF FF EO QQ の の QQ 00 00: 8Е 
DZ2EQ: 2A AA Аа AA АА AA АА A^:DO 
D2E8:AA AA AB ØA FF FF EO の の :E4 
р2ғ0:00 QQ QQ QQ 2А AA АА AA:28 
D2F8:AA AA AA AA ñA AA ^8 2F:D3 


D う の の :FF FF EO の の QQ QQ QQ 20: DE 
0508:2А АА АА AA AA AA АА BF:ES 
D310:AA AA AA BF FF FF EO 00:9B 
D318:00 00 00 QQ 2А АА АА ani28 
D320:A44 AA AA FF AA AA AB FE:FA 
D328:AF FF EO の の の の QQ 00 の の :BE 
0550:2А AA AA AA АА АА АА FF:25 
D338:EA АА AF ЕВ ØA FF F8 の の : 2C 
D さ 4 の : の の QQ 80 00 2А AA АА АА: АВ 
0548: АА АА AA FF FA АА АҒ の iD の 


Z 


A 


UN TEN mo 


TE NU 
ae aue JA Su 

UR ah ir Ad 
Mn RATS jdn А ete 


| キー を " 


2980 LOCATES,13:PRINT "BLT êg" 

2990 A$=INKEY$: IFA$=CHR$ (15) THEN1780 
3000 IFA$="d"THENZØ2Ø 

3010 GOTO 2999 

3020 LOCATED , 0: GOSUR1 90: SCREENS, 2, 2:CLS: 
GOSUB3100:GOTO700 

5050 X9-*HDOOQ:FORY9?-1TO144 

3040 ҮВ=&НЕ2@@+(Ү9+25) #52 

さ の 5 の FORX8-1TO20 

3060 X7=X8+Y8+5 

3070 РОКЕХ9 ,РЕЕК (X7) 

3080 X9-X9*1:NEXTX8: NEXTY9 

3090 RETURN 

5100 X9-&HDOO0:FORY9-1TO144 

3110 YB=&HE2 の の +(Y9+2 く 3) *32 

3120 FORX8-1TO29 

3130 X7=X8+Y8+5 

3140 POKEX7,PEEK (X9) 

3150 X9-X9*1:NEXTXB: NEXTY9 

3160 RETURN 

3170 LINE (0,180) -(255,191) , BO, BF 

3180 LOCATES,15:PRINT "X2";XD/2-24;" Y=" 
; YD-24; : RETURN 

3190 BQ-2:PQ-1:FQ0-3:CQ-2:SCREEN 1,1,1:CO 
NSOLEO,16,0,0: COLOR 2,,1:CLS 

3200 SCREEN 5,2,2: CONSOLEO, 16,0, 0: COLOR 
FO, BA, CQ: CLS: 605085100 

3210 LOCATEO,0:PRINT "ле л“ Є し な いな ら CF"; 
: RETURN я 


D350: の の 
D358: ØA 
0560: FE 
D368: の の 
D370: АА 
D378: 00 


0580: ØA 
D388: FF 
D3970: 02 
0598: AA 
D3^0: の の 
D348: ØA 
DSEQ: FF 
D3B8: BF 
D3C0: АА 


.D3C8: の の 


D3D の : ØA 
D3D8:FF 
D3EQ:FF 
D3E8: АА 
D さ F の : AØ 
D3F8: ØA 


0400: FF 
D408: ØA 
D410: AA 
D418: の の 
D420: ØA 
D428: FF 
D430: の の 
D438: АА 
D44 の : の の 
D448: 0A 
D4S0: FF 
D458: の の 
D460: АА 
D468: の の 
D470: ØA 
D478:FF 


D480: AØ 
D488: AA 
0450: АВ ` 
0458: ØA 
D4AQ: FF 
D4A8: の の 
D4B の 』 АА 
D4B8:FF 
D4C0: 0^ 
D4C8:FF 
D4D0: の の 
D4D8: AA 
D4EQ: BF 
D4E8: ØE 
D4FQ: FF 


イラ スト の 話題 6 最近 多く な り ま し た ね . ば く は な ん と いっ て も 間 上 ら ば 


(ベル シャ が いっ ちゃ ん か わい いと 思っ て いる コタ ツ 獲 ) 


spa 


リリ スト の スク エア パズル マシ ン 語 デー タ ・ リ スト 


0500: AA 
0508: 6F 
D510:FF 
D518iFF 
D520: の の 
0528: AA 
D53 の : SB 
DS538』FF 
D540: FF 


D548:00 | 


0550: АА 
D558: A6 
D560:FF 
D568:FF 
D570: ØA 
D578: AA 


0580: 56 


D588: FF 


рэд: ҒҒ 
DS98sFF 
DIAO: АА 
DSA8: 56 
DSBO: FF 
DSBS: FF 
DSCO:FF 
DSC8: АА 
DSD の :i BF 
DSD8: ҒА 
DSEQ: FF 
DSES: FF 
DSFQ: АА 
DSŠF8:FF 


D6 の の :FF 
0608: BF 
D610: BF 
D618: АА 
D620:FF 
D628:FF 
D630: BF 
D638:FF 
D640: АА 
D648:FF 
D65 の :FF 
D658: 2A 
. | D660:FF 

0668: AA 
D670:FF 
D678:FF 


Sum: SC 


D680: の の 
D688:FF 
D690: AA 
D698:FF 
DAAD: FF 
D6^8: 00 
DABO: FF 
DAES: AA 
D6CO:FF 
D6C8:FE 
DADO: の の 
DAD8: FF 
D6EQ: AA 
DAES: BF 
DAFO: FE 
D6F8: 00 


D700:FF 
0708: AA 
D710: BF 


02: 3D 
FF: 65 
АА: ЕВ 
ВЕ: ВВ 


0718: ҒҒ 
D720: 00 
D728:FF 
07:0: AA 
D738: 2A 
D740: FF 
D748: の の 
D フ 5 の : BF 
D758: AA 
D760: の の 
D768:FF 
D770: 00 
D778: BF 


D780: AA 
D788: の の 
D790: AA 
D798: の の 
D7AQ: 2F 
D7A8: AA 
D7B の : の の 
D7B8: АА 
D7C0: の の 
D7C8:2F 
D7DQ: AA 
D7D8: 28 
D7EQ: AA 
p7E8: の の 
D7F の : ØB 
D7F8: АА 


DB の の : B8 
0808: АА 
D810: の の 
D818: 08 
D820: AA 
0828: BE 
D830: AA 
D838: の の 
D840: 00 
D848: AA 
0850: ВЕ 
0858: AA 
D850: の の 
D858: の の 
D870: AA 
D878: BF 


ーーーーーーーーーーーーーーーーーーーーーー 


Sum: FB 


0880: АА 
0888: の の 
D890: の の 
D898: АА 
D8A0:FF 
D8A8: SS 
DBE の : の の 
DBBB : の の 
D8C0: AA 
D8C8:FF 
D8DQ: 55 


D8D8: 20 . 


DBEQ: の の 
DBEB: AA 
D8FQ:FF 


D8F8: 55 ' 


D900: の の 
D908: の の 
0910: AA 
D918:FE 
D9290: 55 
D928: 00 
D930: の の 
D938: AA 
D940: の の 
D948: 55 


D950: の の 
D958: の の 
0920: AA 
D968: 00 
D970: 55 
D978: 00 


D980: の の 
D?88: AA 
D990: の の 
D9?98: 55 
D9^0: 80 
09А8: ØA 
D9BQ: AA 
D9B8: の の 
D9C0: 55 
D9C8: ^8 
0900: AA 
D9D8: AA 
D9EQ: の の 
D9E8: 55 
D9FQ: АА 
D9F8: AA 


DAO: ^^ 


` DAA: の の 


DA 10:55 
DA18: AA 
DA20: AA 
DA28: AA 
DA30: 00 
DA38: 55 
DA40: AA 
DA48: АА 
DASA: АА 


DAS8: の 2 


DA60: 55 
рАё8: АА _ 
D^70: АА 
DA78: AA 


раво: AA 
DA88: 55 
0490: AA 
DA98: АА 
DAA0: AA 
DAA8: AA 
DAB0: 55 
DABS: AA 
расе: AA 
DAC8: AA 
DADO: AA 
DAD8: 55 
DAEQ: АА 
DAES: AA 
DAQF の s AA 
DAF8: AA 


yd 
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PC-8800 シ リー ズ 


Nsa-BASIC 二 マシン 語 


NIPPY ж 


I/O プ ログ ラム ・ コ ン テ ス ト の 入賞 作品 
*NIPPY” (PC-8001 版 ) を PC-8801 に 移植 
し た の で 発表 し ます . な お , 8001 版 と の 違 
い は “表示 が きれ い ”,“ 璧 の パタ ー ン が 20 
面 分 用 意 さ れ て いる ” TH. 


詳 プ ログ ラム ・ イ ン フ ォ メ ーション 


BASIC 
マシ ン 語 A000—B42F 


さす が コン テス ト 入 賞 作品 。 と い 
Ada (V) 


ЖЕН у 
ERAR 
リス ト 


BASIC (リス ト 1 ) と マシ ン 語 
2) を それぞれ ロー ド す る か 入力 し て RUN 
する と , タイ トル が 表示 る され る の で 


| RETURN | を 入力 し て くだ さい . する と , 


壁 が 表示 る れ て 中 央 に NIPPY が 。 そし て 
CRAZY BALL や HEART が 登場 し ます . 
- プ レイ ヤー は NIPPY を 操っ て BALL に 
ぶつ か ら な いよ うに HEART を すべ て 拾っ 
て くだ きい. テン ・ キ ー の | gl [2| [4] [6 で 
上 下 左 右 に NIPPY, が 動き さき ます, この と 
š, NIPPY が 壁 を 押す と その 筋 に ある も 
の は (2 メメ 2 キャラ クタ 単位 で ) すべ で て を 
の 方 向 に ずれ ます (スク ロー ル す る と いう 
ZEE 

€ し て HEART を すべ て 取る と 手裏剣 が 
3 つ 出 る の で , この 手裏剣 で BALL を パン 
ク る させ て くだ さい . た だ だ し 手裏剣 は 押せ な 
OCOT, BALL を 手裏剣 に ぶつ ける よう に 
NIPPY を 操 ら な けれ ば な り ま せん . 

の よう に LAV BALI RCI ZD 


あちこち に ボー ル が ある か ら 大 変 だ な ぁ 


pa MNE ピー 


ENERGY 


せる と 1 面 終 了 で す . EDS —– 4з 
20 面 分 あり , BALL は 最初 5 個 で す が , 1 
面 終了 ご と に 5 個 ず つ 増 を, 最高 で 20 個 出 
TRET, | 
得点 は HEART が 100 x, BALL が 200 
点 で , 1 面 終了 する と (残り エネ ルギー※ 
10) 点 が ボー ナス 点 に な が なり ま す . そし て 


NIPPY は 10,000 AT 1 つ 増 えま す . 


РЕТИ 


КЎ た 
VET AE TE A ELTE XE 
"Do dE, XE yes 
ク ・ エ リア の 内 容 を 表 1 一 3 に 示し ます . 
マシ ン 語 は A000HーB42FH で す (ВАЗОН 
ーB4AFH は ワー ク ・ エ リア ). ! 
BASIC プ ログ ラム 中 の 670, 680 17 O 
POKE 文 は テキ スト 画面 の アト リ ビ ュ ー 


ト 操作 で す . この ゲー ム で は 仮想 画面 と し 
51 アド レス ・ マ ッ プ 


NIPPY 足 踏み 
NIPPY 死 ぬ 
NIPPY 追 加 

エネ ルギー 

ボー ナス 

ゲー ム ・ オ ー バ ー 

スク ロー ル 上 

スク ロー ル 下 

スク ロー ル 左 

スク ロー ル 右 

CRAZY BALL 

パン ク 

FRR 

グラ フィ ッ ク 表 示 
キャ ラク タ ・ コ ー ド ー 
グラ フィ ッ ク デ ー タ ・ ポ インタ 変換 
高速 グラ フィ ッ ク 画 面 ク リア 
キャ ラク タ 座 標 つ 
G-RAM ア ドレ ス 変 換 
16 ビ ッ ト 乗 算 

サウ ンド 
音楽 ルー チン 
壁 の 表示 


初め て お た より し ます . 私 は , 金星 塵 と いう 者 で あり ます // PiO は 先月 (9 月 な か ら ) は じ め て 読み まし た . 
C, SARA SA Liz, お 友だち な の で す / 
i, О, RG50y7 で か っ と ん で いま す / 


あの 人 は すご い 人 で し て , 


私 は シャ リィ ー に 乗っ つて いま す が ,. あの 人 に は か な いま せん . 
L/ FM-7 の ュー ザー T; サン ダー ワ ォ ー ス を 快 人 きん に プレ ゼン ト し て も ら っ た ん です よ / | 


て テキ スト 画面 を 使っ て いる だ め , 得点 と 
エネ ルギー の キャ ラク タ 部 分 以外 は シー ク 
レッ ト に し て いる の で す .。 な ぜ こ の よう に 
し た か と いう と , 原作 の PC-8001 版 を 最大 
限 に 利用 し た か っ だ か ら な の で す . 


IE ZEE XIE XE E ZE E XIE ХЕХЕХЕХЕ ХЕ ХЕХЕ 
КУК 


ЖККУ kk 
ЖОЕ КК or A ILLAT 
уча TATA 


この ゲー ム で は , 画面 を 押す こと に より 
画面 上 の 迷路 が 変化 する の で 良く 考え ん なけ 
れ ば な り ま せん . また だ , NIPPY の 動き 方 に 
ょ っ て CRAZY BALL の 行動 範囲 が 変わ り 


i+. な お , 手裏剣 の 使い 方 が 難し い の で 
注意 し て くだ ye с: 
表 2 デー タ ・ エ リア Dio 


グラ フィ ッ ク ・ デ ー タ 
音楽 デー ? 


璧 パタ ー ン ・ デ ー タ 


グラ フィ ッ ク ・ デ ー タ の 大 き さ 
G-RAM ア ドレ ス 
NIPPY 死 ん だ か 

NIPPY 追 加 し た か 

ゲー ム ・ オ ー バ ー か 


エネ ルギー キャ ラク タ の X 座 標 

エネ ルギー キャ ラク タ 

NIPPY の 進 も うと する 方 向 の キャ ラク タ 
NIPPY の 進 も うと する 方 向 の アド レス 
局面 数 

壁 デ ー タ ・ ア ドレ ス 

璧 表示 時 に 使用 

CRAZY BALL の タイ マー 

CRAZY BALL の 方 向 

CRAZY BALL の X 座 標 

CRAZY BALL の Y 座 標 


実は 私 は 京都 に 住ん を で いま し 


バイ ク で スピ ー ド 違反 を 2 回 も や っ て , あと 2 点 し か な いと いう 


ょ に が か がく 走り 9 は すご どい./ < ちな み に 私 は 
(愛媛 県 出身 の 金星 塵 / ) 


1 の REM 
+++++ 
2@ REM 
+++++ 
3@ REM 
+++++ 
4 の REM 
+++++ 
50 КЕМ 
+++++ 
6 の REM 
+++++ 
`7@ REM 
+++++ 
80 CLEAR ,&H9FFF:DIM ВХ (25) ,H% (25) ,EX(73 
) 
9 の DEF USR の =&HA の O の DEF USRi1-&HAO20:DEF U 
SR2=&HA の 5A』 DEF USR さ =&HAAC さ 
1 の の DEF USR4=&HQA992』 DEF USRS=&HAAZF 』 DEF 
USR6=&HA の さ F : DEF USR7=&HAAEB 
SHOKI の 
120 HI= の : SCREEN 0,0: CONSOLE 0,25,0,1:WID 
TH 40,25 
130 FOR I=@ TO 25:READ 01%,02% 
140 BZ(I)=VAL ("&H"*D1$) : HZ (CI) =VAL ("&H" «D 
2$) : NEXT 
150 FOR I=Ø TO 73:READ DA:EX(I)=DA:NEXT 
160 DATA 1 の 。1 の 。 日 。B。 の 。 の 。 の 。7 日 1E。 の 。 の 。F の OF 。9 
> の 。FE7F 。F の OF ,0,ЕСЗЕ 。 の 。 の 
179 DATA FE7F 。FCSF 。 の 9 。EC さ F 。 の 。 の 。FCSF 。E ビ さ F 。 
Q,9C3F,0,0,F81F,9C3F,0 
180 DATA 7C3F,0,0,E907,7C3F,0,FQQ0F ,0,0,8 
の の 1 。F の の F 。 の 。 の 。 の 。 の 。 の 。 の 。 の 
19@ DATA 46,8,-1,-1,-769,-759,15600,-161 
29,-769,15600,-16129,-1,—-1,-769,-769 
200 DATA 15612。- さ B41 。-769 。15612。-3B41 。-1 
,71,-769,240,15615,15600,240,15615 
210 DATA 15600,-1,-1,-759,-16129,-769,15 
609,-15129,-759,15600,-1,-1,-769,—-16129 
220 DATA -769,15600,-15129,-759,156090,-1 
,71,-769,240,-781,15600,240,-781,15500 
230 DATA -1,-1,-769,-769,-784,-3841,-759 
,-784,-3841,-1,-1,-769,-769,15500 
DATA -16129,-769,15600,-16129 


+++++ 
+++++ 
キキ キキ + 


+++++ By MAT 


+++ ++ 


++++-+ Machine ($4000 - $B42F) 


キキ キキ 


A-USRO (の) 
SC=0: SE=Q: H = の 
TITLE 
POKE &HE6B4,0:CLS: COLOR 1:А=Ш5К5(0@) 
LOCATE 2,1:PRINT “Nn m 
a m m 
310 LOCATE 2,2:PRINT "1-і H 
к $4 l 
320 LOCATE 2,3sPRINT "FINIH 
ei は 
550 LOCATE 2,4:PRINT "1114-1 
jane ү E ニュ ` 
340 LOCATE 2,9:PRINT " ロト ーー 
(e 2 


550 COLOR 7:LOCATE 7,8: РКІМТ "### CHARA 


CTERS ### 
360 DTABIG*&HB4353: DTAADS=&HB435 


DE. nis 4 M. "e eem 
EC. PRINT E S i Е u E ыз 


ear d > 1 Kar " J wt 5 АИА 
Do eri EE EER ok た SPE T s あら を E EE a 


リス ト 1 NIPPY BASIC リ スト 


570 POKE DTABIG,8:POKE DTABIG*1,4:POKE D 
TAADS,&H38:POKE DTAADS+1 。&HAC _ 
380 QA=USR4(&HD91 の ) 
390 POKE DTAADS,&HF8:POKE DTAADS*1,&HAC: 
n=USR4(&HDB9 の ) 
400 COLOR 4:LOCATE 11,11:PRINT " 
PPY 
410 POKE DTABIG*1,2:POKE DTAADS,£&H38:POK 
E DTAADS+1 , &HAF : A=USR4 (&HE の 2) 
420 COLOR S:LOCATE 11,13:PRINT " 
AZY BALL 
430 POKE DTAADS,8:POKE DTAADS+1 , &HAF : A=U 
SR4 (kHES92) 
440 COLOR 2:LOCATE 11,15:PRINT " 
ART 
450 POKE DTAADS, &H68』 POKE DTAADS-*1,&HAF:1 
QA=USR4(&HEA92 ) 
460 COLOR S:LOCATE 11,17:PRINT " 
GGER 
470 POKE DTABIG,16:POKE DTABIG*1,4:POKE 
DTAADS,&HE8: POKE DTAADS*1,&HBO: A=USR4(&H 
ЕҒ9@) . 

COLOR 6:LOCATE 11,20:PRINT " 


COLOR 7:LOCATE 10,25: РКІМТ "Push RET 
Key !!! を 
POKE DTABIG,8 

POKE DTAADS,&HF8:POKE DTAADS+1 。&HAC 
A=USR4 (&HDB9 の ) : FOR I-0 TO 200: NEXT 
IF INP(1)=127 GOTO 570 
POKE DTAADS,&H98:POKE DTAADS*1,&HAC 
nA=USR4(&HDB9 の ) : FOR I=@ TO 200: NEXT 
IF 1МР(1) <>127 GOTO 510 


IF (SE MOD 4) =1 THEN HT=HT+5』 IF HT=2 
の THEN HT=5 
600 A=USR6 (0) 
610 A=USR1 (0) 
620 POKE &HB432,5 


630 

640 RANDOMIZE (VAL (RIGHT$ (TIME$,2))) 

650 SC-PEEK (&HB446) +РЕЕК (&HB447) «256 
' SCORE 

660 MQ=PEEK(&HB448) 
° NOMAN 


670 POKE を HE6B4 。 1:CLS: PUKE &HE6B4 , O: А=05 


RS (0) 
480 POKE &HF418,70:POKE &HF 419, 2532: РОКЕ 
&HF41A,80: POKE &HF 41B, 136 
490 LOCATE 1,0:PRINT "HI-SCORE : "+RIGHT 
$ (STRINGS (5,48) *RIGHT$ (STR$ (HI) ,LEN(STR$ 
(HI)) -10) *"Q",6) 
700 LOCATE 20,0:PRINT "SCORE : "«RIGHT$( 
PUB DUE HO 
C) -1 +"@", 
710 POKE BUE 1. 2:POKE DTAADS,&HBB:POK 
E DTAADS+1 。&HB の 
720 A-USRA(&HCO48) : LOCATE 37,0:PRINT USI 
NG "#";МА 
730 POKE &HFEEO,18:POKE &HFEE1,232:POKE 


mas TEE 


A. が > あと 
を こい は M NR C je que Aim ra 


` yy кү ГА が の 


/ tf É 
‹ る їг. ©; э. Чч” 
m. + И, o^ da P E a. 
" Ы p эф. 3 ж»: Le 9 у Аз EE 
ЫХ АЛАУ ж: iS ht DTI ИРИ Fo Aa SCO y Aqu 


"Ur ap 7$ Я 1 
ENE БОРАМ 


&HFEE2,80:POKE &HFEE3,168 
740 LOCATE 3,23:PRINT "ENERGY 
750 LOCATE 190,23:PRINT STRING$(12,135):C 
OLOR Q 
760 LOCATE 1,1:PRINT STRINB*( さ 6 。&H95) : LO 
CATE 1 。22:PRINT STRING$(36,&H95) 
770 FOR I=2 TO 21:LOCATE Q,I:PRINT "I":L 
OCATE 37,I:PRINT "1"sNEXT 
780 LOCATE Q,1:PRINT " г": _ОСАТЕ 37,1:PRI 
NT "ы 
790 LOCATE 0,22:PRINT "'":LOCATE 37,22:P 
RINT "4" 
800 LINE (8,11)-(5900,181),1,B 
810 A-USR7 (0) 
820 LOCATE 19,12:PRINT " ^":LOCATE 19,13 
s PRINT "ュー" 
830 POKE DTABIG+1,4:POKE DTAADS,&H38: РОК 
E DTAADS+1 ,&HAC 
840 A=USR4 (%HDE26) 
850 POKE DTAADS,&HF8:POKE DTAADS+1,&HAC 
A=USR4 (&HE の A6) 
BA=(((SE-1) MOD 4)+1)*5 
POKE &HB449,BA 
'NOBALL 
FOR 1=1 TO BA 
X2 INT (RND* さ 5)+1: Ys INT (RND*19) +2 
AD=&HF さ CB+X*2+Yk12 の 
Р=РЕЕК (AD ) 』 IF P<> さ 2 THEN 900 
POKE &НВ460+39+1,Х+1:РОКЕ &HB469+59+ 
' BAN 
) POKE AD,&HED:PUT (X*16,Y*8) ,BX,PSET 
NEXT ` 
POKE &HB44A。HT 
- 'NOHERT 
FOR I=1 TO HT 
X2 INT (RND#35) +1: Ys INT (RND*19) +2 
AD=%*HF3C8+X*2+Y*120 
1 の の の P-PEEK(AD):IF P<>32 THEN 980 
1 の 1 の POKE AD,&HE9:PUT (X*16,Y*8),HX,PSET 
1 の 2 の ВЕЕР 1:FOR J= の TO 1 の 9 の:NEXT』BEEP Q:N 
EXT:FOR J= の TO 500: МЕХТ 
QA=USR さ (の ) : A=USR3 (0) 3LOCATE 0,0 
A=USR2 (Ø) 
IF PEEK(&HB4 さ 9)=1 THEN 1080 
'FOVER 
IF PEEK(&HB437)=1 THEN 610 
'FMADED 
GOTO 570 


LOCATE 37,0:COLOR 4:PRINT "Q":COLOR 


PUT (280,92),EX,PSET 

FOR I=@ TO 5000: МЕХТ 

SC-PEEK (&HB446) +PEEK (kHB447) #256 

'SCORE 

IF SC>HI THEN HI=SC 

LOCATE 12,0:PRINT RIGHTS (STRINGS (5, 
48) *RIGHT$ (STR$ (HI) 。LEN(STR を (HI ) ) -1)*"Q" 
,6) 
1150 FOR 1= の TO 3000:NEXT:GOTO 250 
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リス ト 2 NIPPY マシ ン 語 リス ト 


АЗЕ@ 
АЗЕ@ 


15 


3D 


ЗА 51 B4 FE OC 58 0С 


32 


51 B4 


c9 


ЗЕ 20 DS 


ð 


ld 


l 


м. rea 


dur AM ыы! 


; YA usd. y 
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as sepe iem 
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bu, な ん と 私 , わけ あっ て 香取 信吾 さん の 家 へ 下宿 する こと に な り ま し た . 役 が 占う に は ,。 役 の 88 を 自由 に 使わ せ て くれ る そう で す . や っ 
だ ね / … で も 私 も 受験 生 。 調子 に 乗り 過ぎ る と 米 年 が 雇い ノ 


P.S. 私 は SGC( 洗 中 ゲー マー ズ ・ サ ー ク ル ) の 特別 願 問 な ど と いう 大 それ た だ も 


7 


の を や る こ と に な っ て し まい まし た . ОХА. 恐ろし や あ / ちなみに, 現在 SGC の 会 員 は 20 名 ほど だ そう で す . (る ん っ ノ 任 谷間 三重 子 ) 


ү: hs á 


Де, 


リス ト グ .NIPPY マシ ン 語 リス ト 
Sum: BS 04 7А AA BA 41 32 02 C7 ӨР 80 77 A3 B3 55 DD :E1 


Add +@ +1 +2 +5 +4 +5 *6 +7 +8 +9 +A +B +C *D +E *F Sum 
B1 の の 00 FF АА 00 FF AA 00 FF АА の の FF АА の の FF 55 00 :F8 
B11@ FF 55 の の FF 55 00 FF 55 の の FF АА 00 FF АА QQ FF :4D 
B12 の АА 00 FF АА の の FF 55 00 FF 55 00 FF 55 00 FF 55 :АЗ.. 
B130 の の FF АА 00 FF AA O00 FF AA 00 FF АА QQ FF 55 00 :F8 
B140 FF 55 の の FF 55 00 FF 55 の の FF АА の の FF АА の の FF : 4р 
s АЗ 


k 
so 6 4 E 
&.C хаз (2372 Lh de 
ке HONRA HN. KELÊ RE 
zor (200682. S (acc. 2. Q-C. 
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PC-BODOODU-—AZ 


N-BASIC 二 マシン 語 


ザ ・ リ アク ター 


THE REACTOR. 


bu DENSETSUHANSHIN with SPOCK 


— ——-—-—-— -———-— ОФ ООО О О 9 -—— *-— * О -— ӘӘ ӘӘ — 


CZDD0- 

「 記 録 0 3 7, ポ ボ ・ ア トレ 所 長 に 代わ 
っ て テル ・ ト ヨ ダ が 記録 する . 

Же, 連邦 科学 アカ デミ ー の 一 団 が デル 
- タ パ ヴ ォ ニア 3, カラ ダン に お ける 空間 流 
制御 実験 プラ ント の 試運転 を 見 学 し 始め た 
途 端 , 非常 事態 が 発生 し た . 何者 か が プラ 
ント 上 空 に 現われ , 攻撃 を 開始 し た の だ . 
奴等 は 恐 ろ し く 凶 暴 で 無 差 別に プラ ント を 
破壊 し , 人 間 を 喰 べ て いた 

制御 建屋 は ほぼ 全壊 し , 私 と 数 名 の 所 員 
は 反応 炉 建屋 に 逃げ 込ん だ . も は や 我々 に 
反撃 の 術 は な い . 我々 の な すべ きこ と は プ 
ラン ト を 作動 させ る こと し か な い の だ . な 
ぜ な ら , プラ ント が 作動 し な いま ま , 反応 
炉 が 破壊 され で も し た ら そ の と き … そ の と 
&, 宇宙 は 消滅 す る の だ か ら ン ノ 

だ が 果たし て , 手動 で 作動 さき せる こと な 
ど で き る の だ ろう か . 我々 は どれ が 何 号 炉 
か も 知ら な いと いう の に …」 

(補足 : 空間 流 制御 実験 プラ ント ) 

ケン ジ ・ コ ン ノ 博士 の 提唱 し た 「 空 間 流 
仮説 」 が 実証 され る と 共に 建設 が 開始 され 
5. 


反応 炉 建屋 と 制御 建屋 か ら 成 り , 反応 炉 
建屋 内 に は 1 — 7 号 炉 まで の 自 走 式 反応 炉 
が それ ぞ れ 2 基 ず つ あ り , 複雑 な ベク トル 
計算 に 基づい て 並べ 換え られ る . 対 に な る 
反応 炉 を 同時 に OPEN の 状態 に する と 反応 
を 始め , すべ て の 対 を 反応 させ る と プラ ン 
F が 作動 する . な お , 3 基 以 上 を 同時 に O 


_PEN に する こと は 危険 性 が ある た め 許 され 


て いな い . も ちろ ん 通常 , これ ら の 操作 は 
制御 建屋 内 の コン ピュ ー タ に よっ て 行なわ 
れる . 


т нр U paqa t 


お いて 巨大 な エネ ルギー を 得る こと に な る 
が , 失敗 は その 性 質 上 , 宇宙 消 減 に つなが 
る た め , 反対 の 声 も 大 きい . 

画 プ ログ ラム ・ イ ン フ ォ メ ーション 


| BASIC 
| マシ ン 語 D000~DBA3 


| トラ ンプ ・ ゲ ー ム の 神経 衰弱 の 要 
| 素 を リア クシ ョ ン ・ ゲ ー ム に 取り 
| 入れ た の が 実に 良かっ た . (А) 


ーー の ーー の ーー の ーーー の ーー の ーー の ーー の ーー の ーー の ーー の ーー — T 


(rs » 

AN- RH 
プロ グラ ム は BASIC と マシ ン 語 か ' ら でき て 
いま す . まず リス ト 1 の BASIC プ ログ ラム 
2 に か わい アツ の に キス プル で て だ きい 
次 に リス ト 2 の マシ ン 語 プロ グラ ム を モニ 
タタ か ら 入力 し て BASIC ログ ラム の 後に セ 
し て る きい この も き , 入 力 補 人 を 前 に 
CLEAR 300, & HCFFF を 実行 し て な お いた 
方 が いい で も よう .。 

実行 する と き は テー プ を 巻き 戻し て , 2 
れ ぞ れ 別 々 に ブロ グラ ム を 読み 込み , BASIC 
プロ グラ ム を RUN さ せま す . 


ゲー ム の 説明 


今回 は 今 ま で と 勝手 が 違う の で , 前 置き 
の な っ て しま いま した. 
ST; この ゲー ム の 目的 は マシ ン を 繰 っ て 


А E $ 
Mor ed] cien Te os ir i pac i AS 


З „а КЕ А 
2 8 abr ед, 5 #3} 
x i ua ыйлагы, ыў, ch. こっ un «ъ= 2С: トー テー d} 


を M5 ユー ザー よ , 目覚 め よ ノ 最 近 で は , Q-D や 
言わ れ た M 5 は すっ か り 影 を ひそ め 、 
ユー ザー, 目覚 め よ / 


1 一 7 号 炉 まで の すべ で て の リア クタ ー を 反 
応 き せる こと で す .。 RUN き させ る と ハイ ・ ス 
абы ж ыле) る の で Y か N で 
答え て くだ る その 後 , タイ トル と イン 
ORS Зө EES ы 0M. 
OOT b [RETURN] キー を 押す と ゲー ム ス 
dte RIO. 

四隅 に いる ハー ト や スペ ー ド が モン スタ 
ー で , ラン ダム な 位置 に 現われ る 自 い 太 が マ 
ン で す . тх + +—0 [8] [2] [4] [ée] で を 
れ ぞ れ 上 下 左 右 に 移動 し ます . 

通路 を 構成 する 15 個 の 四角 形 が リア クタ 
に まあ な な ぜ 1o 個 を の か と よい E | 


号 炉 が 2 基 ず つ あ る の に 加え て , 後述 する 


0 号 炉 と いう の が ある か ら で す . 
最初 すべ で て の リア クタ ー は CLOSE の 状 
態 に あり ます . [SPACE] キー を 図 1 の 状態 
で 押す と マン を 挟む 上 下 2 基 あ る い は 左右 
2 基 の リア クタ ー が 反転 し ます (OPEN が 
CLOSE に , CLOSE が OPEN に な る こと で 
位置 が 変わ る の で は あり ませ ん ). 
0226 L p: OPEN て e OE; 


` 
デ (P 


ә A 


マン に 関す る ワー ク 

モン スタ ー に 関す る ワー ク x4 
リア クタ ー に 関す る ワー ク X15 
反応 中 の カウ ンタ 

マン 追加 フラ グ 

クロ ッ ク 値 

|SPACE| キー 判定 フラ グ 


処理 中 の リア クタ ー ナ ン バ ー 
リリ アクター ナンバー の スタ ッ ク х? 


マン の キャ ラク タ ・ カ ラー 

モン スタ ー の キャ ラク タ ・ カ ラー X4 
リア クタ ー の 形 X 2 

文字 デー タ 


R3 サブ ルー チン 


乱数 発生 ルー チン 
BEEPX 3 

10 進 出 カ ルー チン 
イニ シャ ライ ズ 

リア クタ ー ナ ン バ ー 決 定 
初期 画面 

各 キ ャ ラク タ 表 示 
マン 出現 

8 ビッ ト 乗 算 ル ー チ ン 
マン 移動 

リア クタ ー 反 転 
モン スタ ー 移 動 

16 ビ ッ ト 乗 算 ル ー チ ン 
タイ マ ・ ク ロッ ク 
マン 追加 

各種 デモ 


表 4 主 な 変更 点 


マン 初期 スピ ー ド 


モン スタ ー 初 期 スピ ビード ( ツ ひ ② ゐ ④ の 順 ) 
モン スタ ー 弱 る 時 間 の 初期 値 
全体 の スピ ー ド 


HE23E OPEN L т, 別 の 2 基 を OPEN する 
と , 最初 の 2 基 は 自動 的 に CLOSE & й š 
7. 42, 3 の 要領 で 同じ ナン バー の リア 
クタ ー を OPEN の 状態 に する と 反応 し , € 
れ 以降 。 その 2 基 は 黄色 で 表示 され ます . 
また だ 一 度 反 応 き せる と , し ば らく の 間 モ ン 
スタ ー が 青く な っ て 逃げ 出す の で パッ クマ 
ン の つも り 5 て で 人体 当たり し て くだ る 

すべ て の 対 を 反応 きせ る と , 全 リ アク タ 


スー パー イン ポー ズ だ な ど し と 言 う も の が すっ か り 話 題 を 集め , 低 価格 パソ コン 競争 の 火付け 役 
いつ の 間 に か この PiO に も 1 本 し か プロ グラ ム が 載ら な く な っ て し まっ た . そこ で - 
J, あの ゲー ム の リア ル る きると, それ を カバ ー す る 速い 実行 速度 が あれ ば , まだ ま だ 捨て た も の じゃ な い . 
の 名 が 次 く その 日 まで , 皆さん 頑張 っ て いこ うじ ゃ あり ませ ん か ソノ 


E WS だ しゃ "M5 
日 本 中 に M5 
(後藤 裕 生 ) 


ー が OPEN され , ブラ ント 作動 , 
T ずる 

次 に 0 号 炉 で す が 。 0 号 炉 を OPEN し て 
し まう と , その と き , 一 緒 に OPEN し て い 
る リア クタ ー と 位置 が 変わ り 。 全 り アク タ 
だし DOSE し ます ご 注意 を ./ 

上 下 左 右 の 穴 は それ ぞ れ 3 つの 通路 と し 
て つなが っ て いて ,。 ワー フ ' で きま す . 赤い 
モン スタ ー は マン を 追い か ける よう に , 緑 
の モン スタ ー は ラン ダム に 動き , 面 を クリ 
ア す る 度 に スピ ー ド が 速く な り ま す . ま た 。 
青く な っ て いる 時 間 も 短 く な り ま す が , 7 面 
目 か ら は ずっ と 変わ り ま せん . 

得点 に つい て は イン トロ ダク ショ ン を 見 
て くだ さき さい. 7,000 点 を 超 を る と マン が 1 人 
増え ます . 


1 面 ク リ 


プロ グラ ム の 説明 


プロ グラ ム は BASIC& と D000H~DBA3H 
まで の 約 2.9K バ イト の マシ ン 語 か ら 成 っ 


сь 2 LI. 


ЖН xà 


表 4 に 変更 点 を 示し ます . 7 面目 まで は 
全体 の スピ ー ド 以外 の 値 は どん どん 小さ く 
な っ て いく の で , あま り 小 さき な 値 に は し な 
いで くだ る きい 。 学 條 の スピ ー ド も 0 に は し 
な いで くだ きい 、。 

BASIC 部 は 250 行 で E07EH に POKE し 
で る 値 を 楽天 きこ と に よっ て マシ の 数 
を 変え られ ます . また , 200—25017, 460 
ー520 行 以外 の 部 分 は デモ を 見 たく な けれ 
ば 入力 し な く て も 結構 で す . だ ただし, 200 
行 の GOSUB530 は 入力 し な いよ うに し て 
くだ る さい. 


1 面 ク リア て 全部 の 炉 を 表示 


バグ は あり ませ ん の で , すみ ませ ん の コー ナ 
ー は あり ませ ん . 悪し か ら ず . 
この ゲー ム は BASIC の リス ト を 見 て も 
ら え れ ば わか り ま す が 。 何と 8 月 31 日 に 完 
成 し た の で あり ます . あぁ, (mor. 
ゲー ム の 説明 が きる っ ぱり わか りら な いと い 


う 放 も いら っ し や る で し ょ うか эф УЛАШ 
や っ て みて て だ きい 。 や っ て いく 《 う ち に ね 


か る の で は な いで し ょ うか 。 


この ゲー ム の 構想 は ずい ぶん 前 か ら あ っ 
ROTTE, フローチャート まで て 書い な だ 時 
点 で 取り あえ ず 作 り 始 め . まっ だ た く こ ん が 
ら が っ て し まい 。 一 度 は 断念 し た も の な の 
で あり ます . や は り 下 準備 は 入念 に 行なう 
9, d 

空間 流 仮説 は ご 存 知 の 方 も いら っ し ゃ る 
か も し れ ま せん (仮説 と いう より フラ マラ ァ ン タ 
ステ ィ ッ ク な ジョ ー ク と いう 感じ で す が )。 
空間 を の も の が 物質 で あり , WEEEK ^ 
まあ 詳し く は 科学 

次 回 は や は り , も ろ リ アク ショ ン ・ ゲ ー 
ん に よう を 折っ で いま あす: АСИ 


て いま す . 81,2, 3 に ワー ク ・ エ リ E 

ア , デー タ ・ エ リア , サブ ルー チン を 示し 参考 文献 

23. 1) 塚越 一 雄 :“PC-8001 マ シン 語 入 門 ", 
マシ ン 語 の 方 は 今回 , 今 ま で 以上 に スパ 電波 新聞 社 


о о И К О Н. т 
タ を 使っ た の ぞ で 移動 , 表示 な ど は 楽 ど っ た 


bu DENSET 


UHRNSHIN w 


2) “PC-8001 マシ ン 語 活用 ハン ド プ ブック 『。 
秀和 シス テム トレ ー デ ィング 


誌 で も お 読み くだ さい . 


の で す が 。 リ アク ター の 反転 ルー チン に 手 З) BREN + ギャ ラク シア シン 
前 取り 。 ミー ト ソ ー ス ・ ア ・ ラ ・ ボ ン ゴ レン PC-8001 活用 研究 , 工学 社 s 
Е Э ЕЕС ао et に 4) REN : “д-до д”, I/O, '81 
( 何 の コ ユ コッ チャ /./). 10 進 出 カ ルー チン は , dis 
文献 4 の も の を 解析 , 改造 し て 使わ せ て い ぃ いか が で "し だ か >? 今回 は これ と いっ て 
| リリ スト THE REACTOR BASIC リ スト 
° EEE E E E E HE E E E E E HE HEF E E E FF E E ¥ ¥ ¥ ЫГ 480 S1=PEEK(&HE の 7A) : S2-PEEK (&HE の 7B : S5=S 
110 ' * * 340 COLOR6:FORI-6TO16STEP2:LINE(13,1)-(5 1*952*256 
120 ' * THE REACTOR Бы 7,1) ,". ": NEXT 490 H1=PEEK (&HEØ7C) : Н2=РЕЕК (&HEQ7D) : H3-H 
130 ' * * 350 COLOR7:LOCATE13,6: PRINT"® ";:LOCATE2 1+H2*256 
140 * by DENSETSUHANSHIN * 5,6: PRINT" (MAN) "š s LOCATES7,6: PRINT" You 500 IFS さ >H ミ THENPDKE&HE の 7C , S1 : PDKE&HE の 7D 。 
150 ' + with SPOCK * are ."; 52 
160 * * 360 COLOR2:LOCATE13,8:PRINT"€9 Ф ";:LOCAT 510 COLOR7:LOCATE8,11: PRINT" r 
170 * 1984.8. 31 * E25,8: PRINT" (MONSTER 1,2)"::LOCATES4,8:P ーーーーーーーー "3 :LOCATEB, 12: PRINT" I GA 
180 ' * * RINT" Follow you ."; ME OVER 1"; :LOCATEB, 13: PRINT" | HIT 
19 ' JJOO E E EE E E ЭЕ 370 COLOR4:LOCATE13,1Ø:PRINT"® Ф ";:LOCA RETURN TO START I";:LOCATE8,14: PRINT" — 
200 CLEAR5 の の 。&HCFFF : DEFUSR=&HD42D: DEF INT TE25 。 1 の : PRINT" (MONSTER さ 。4)"』:LDCATE5 の 。 1 
A-Z: DIMA$ (11) : BDSUB55 さ の Q:PRINT" Move at random ."; IFINKEY$*CHR$(12) THEN25 の ELSE52 の 
210 WIDTH89,25: CDNSDLE の 。 25,0,1: CDLOR7 。 の 。 380 COLOR1:LOCATE13,12:PRINT"e Ф $ Ф ";: 530 A$(0)-""—WN c m в g —Oc" 
Q: PRINTCHR$ (12) LOCATE25,12:PRINT" (WEAK MONSTER) "; : LOCAT 540 A$(1)=" m © s п " 
220 LOCATE21,12: INPUT"Shall I let HISCOR E42,12:PRINT" NUMBER by SCENE by 1 の pts"s 550 A$(2)=" Ш NL 8... HÀ" 
E zero (y/n) "5Y$ 390 COLOR3S:LOCATE13,14:PRINT"REACTOR ";: 560 A$ (3) =" m | | m ш w" 
230 IFY$«»"y"THEN250 LOCATES1,14:PRINT" NUMBER by 1 の pts"s 570 A$(4)=" (m E] m" mu е 
240 POKE&HE の 7C , 0: POKE&HEQ7D 。 の 400 COLOR7:LOCATE13,16:PRINT"BONUS ";:LO 580 A$(5)=" Ш = Ó. Ro" 
250 PDKE&HE の 77 。 の : PDKE&HE の 7E ,5: РОКЕ&НЕ@7Е CATESO,15:PRINT" SCENE by 1 の 9 の pts"』 に >。 E ii oL ld v g— aqu uc 4 
‚1 : 410 COLORS: ОСАТЕ 10, 18: РКІМТ "< МОМЕ >"; :LO ы cy 7 ш ГЕ" 
260 WIDTH8Ø,25:PRINTCHR$(12):L=1 ë CATE20,18:PRINT" m~  ";:LOCATE20,19:PR 6 の の А%(7)="Ш в m 5 s | 
270 FORI-QTOS:C-RND(1)3*7*1: COLORC: LOCATE INT" H8 ¬"; :LOCATE20 ,20: PRINT" 14 6 1" ” a m | m m" 
. 5, I*3: PRINTR 和 を (1 ) 』 : NEXT s:LOCATE20,21:PRINT" レゴ 2 トー " ョ LUCATE2 の 。 2 610 A$(00-"R  #”' B л RB (BB ш 
280 FORI-&TO11: C=RND (1) #7+1: COLORC: LOCAT AIPRINJ" е-и : B S B SUC Q, 
E15,I+7:PRINTA$(I);:NEXT 420 LOCATE61,18:PRINT"<REVERSE >"; : LOCATE 620 A$(9)="W `K = ~ п mm 
290 GOSUB660 48,19: PRINT" — $5 3LOCATE48,20: п u m mg b" 
300 IFINKEY$-CHR$ (15) THEN46 の PRINT'I SPACE I";:L0CATE48,21:PRINT" || 250 A$(10)="m m | = | m 
310 1IFL<1 の の の THENL=L+ 1 : GDTD さ の の ی‎ f : > m` m а m a" 5 
320 PRINTCHR$(12):L=1 ` , 430 GOSUB660 640 A$(11)="B ва  —2a4 ип п 
330 СО ОК: ОСАТЕ2В,@:РК1МТ"#+## INTRODUC 440 IFINKEY を =CHR を (13) THEN46 の Б ЧЕКЕ 1 = x; J: | m" 
TION ss*"::LOCATE12,2:PRINT"Alert ! Aler 450 IFL»-2000THEN26QELSEL -L +1 : GOTO44Q 50 RETURN 
t ! Monsters invaded our reactor buildin 460 WIDTHAQ, 25: CONSOLEO , 25,0,1: CDLOR7 の 。 660 COLOR7:LOCATE27,24:PRINT"Hit RETURN 
g '";:LOCATE11,4:PRINT"You must stop the Q: PRINTCHR$ (12) key to start !";:RETURN : 
monsters anyhow ! Start the reactors !! 470 U=USR (0) 
` A ` 7 ‚+ E 
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+Е Sum 
DD :Ғё 
18 :B5 
の の :14 
36 :A5 
87 :48 
FE :FØ 
20 :@5 
7Е #821 


を や っ た // N5200 を 買っ た / と いっ て も NEC の で は な い の で す . ZEBRA の な ん で す . 文房具 店 で 60 円 で 売っ て いま し た . 実 を いう w 


ー ル ペン な ん で す . みん な も 近所 の お 店 で 捜し て み ま し ょ う ( あ ー く だ らん ). 


(し ゅ っ 教 の 神 ) 
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リス ト 2 THE REACTOR マシ ン 語 リス ト 


人 @ TRAVEL 


PC-8001 で リア ル タ イ ム ・ ゲ ー ム を 作る と き に 最も 問題 し な る 令 は すべ て DJNZ に な っ て いま すね ぇ え . それ も 3 箇所 どけ で す . 
の が アデ トリビュー ト の 制御 で す . これ まで 多く の ゲー ム で は ROM よく この よう な も の が で きた だ た も の だ と 自分 で 感心 し て し まい まし 
内 の アデ アトリビュート ・ ル ー チ ン を 使っ て いた た だ ため に スピ ー ド が 不 OSSA | 


足す る と いう 問題 が あり まし た た. 中 村 光 一 : “RIVER RESCUE" マ イコ ン ゲ ー ム の 本 4,, 工学 社 
COLOR ル ー チ ン は 一 度 , 中 村 光 一 氏 に よっ て 参考 文献 で 発表 | 
きれ て いま す が 。 残念 な が ら 小 る きる き な バグ が ある らし いこ と と 。 7 アド レス ・ マ ッ プ 
モン プラ を 使わ な けれ ば な ら な いと いう 欠点 が あり まし た だ た. そこ 
で 思い 切っ て , アル ゴリ ズム か ら す べ で て を 自分 で 考え る こと に し X 座 標 チェ ッ ク 
て , か な り の 時 間 を か け て よう や く こ の ルー チン が 完成 し た の で нак チェ ッ ク 
4 ジス タ に 左 位置 , ビレ ジス タ に 右 位置 を セッ ト 
- ла Ыт MB LEM 
この ルー チン の 特徴 は , 左側 位置 サー チ 
@ プ ログ ラム が 短い (200 バ イト ) 左側 位置 補正 
"rub" 右側 位置 サー チ 
Hk C H る ) 
еца ; 右側 位置 補正 
リロ ケー タプ ブル C レ ジス タ の 条件 に よる 分 枝 
⑳ す べべ て レジ スタ 内 で 処理 し て お り , 外部 に ワー ク ・ エ リア を 持 INSERT 
た な い INSERT の アキ を チェ ッ ク 
Sed те | DELETE 
使用 し て る レジ スタ は AF。 BC, D HL と AF レジ スタ DELETE で 開い た 部 分 を つめ る 
CT. な お リタ ー ン し て きた だ た と き の 各 レジ スタ の 値 は まっ だ く 作 アト リピ ビュ ー ト ・ セ ッ ト 
証 き され ませ ん . 高速 化 の た め に そう な っ た だ の で す . 
使用 方 法 は 中 村 光 一 氏 の も の と まっ た だ く 同 一 で あり , A レ ジス レジ スタ の 使い 方 
久 に アト リ ビ ュ ー ト に セット する 値 。 レジ スタ に X 座 標 (0 一 
79, エレ ジス タ に Y 座 標 (0 一 24), D ロ レジ スタ に 指定 する 幅 を セ | 残り アト リピ ビュ ー ト プロ ッ ク 数 カウ ンタ 
ッ ト し て 先頭 アド レス を CALL す れ ば よい の で す . AF レジ スタ を | oe 
壊し て し まう こと に 注意 すれ ば , 中 村 光 一 氏 の ルー チン と 置き 換 


右 位置 


ぇ て 使用 で きま す . 

中 村 光 -- 氏 の ルー チン と の 違い は X, YY 座標 が 画面 内 に あれ ば , 
双 座 標 に 幅 を 加え だ た 分 が 79 を 超え を て いて も 制御 を 行う 点 で す . š 
た だ, 実用 上 は 差し 支 を な い の で す が 。 20 個 目 の ア トリ ビュ ー ト の 
扱い 方 が 違っ て いま す . その 気 が あ れ ば 調べ て みて くだ さい ぃ 

中 村 光 一 氏 の ルー チン を 解析 し よう と し て あま り の わか り に く . 
き に 挫折 し て し まっ た だ ので, この ルー チン に は 簡単 な が ら 解 説 を 
BUUCMWC-tCUSIT. 

この ルー チン で 苦労 し た の は 何と 言っ て も 左 サ ー チ , EWE, 
右 サ ー チ , 右 補 上 正 で し た. これ を 見 る と 私 の マシ ン 語 の 実力 も す 
て だ も の で は だ ない, と 思い 直し ます . や は り マ シン 語 に 限ら ず , 
プロ グラ ミン グ と いう の は いか に 与え られ た 問題 を 的 確 に と ら ぇ 
る か が 問題 の よう な 気 が し ます . | 

あと で 気が付い た こと で す が , こ の ルー チン で は 戻る JUMP 命 


ICOLOR ルー チン マシ ン 語 リス ト 
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LEVELS/MARK5 


BASIC v ÊR 


スラ イダ は 大 変 気 まで れ で す . うっ か り 


し て いる と , 押し つぶ され て し まい ます . 
で も , あま りあ せっ て は な り ま せん ぞ . ま 
ず 気 を 落ち 着け て か ら , 頭 を 使っ て 一 瞬 の 
チャ ンス を 狙わ な いと な か な か クリ ア で き 
な いで す よ 。 | 
圏 プ ログ ラム ・ イ ン フ ォ メ ーション 


BASIC コン スト ラク ショ ン ・ セ ッ ト 
マシ ン 語 5D00—9CBF 
スタ ー ト 9260 


スタ ー を ホー ル に 押し 込む と き に , 
頭 を 使い ます . (V) 


ー ド に し (NEW 
ON 3), CLEAR ЗОО, & HSCFF を 実行 し 
て か ら モ ニタ で リス ト 1 D&H5D00 ~ & H 
MR に か 火 才 て で だ る きい (こう も な いよ 。 
プロ グラ ム が 一 部 破壊 る され ます ). そ し て 入 
カ 後 , PiO "84 年 7 月 号 の チェ ッ ク ・ サ ム 
プロ グラ ム な ど で チ ェ ッ ク ・ サ ム を 確認 し 
か ーー デ に セー ジグ し ます 、 p au Лб» ГУ 
エリ ア を 見 れ ば わか る と と おり, DISK BA 
SIC 上 で は 動き ませ ん . 


の の 
の の a 
6 } 


必ず 40 字 ハイ リゾ ヅ ・ モ 


EXEC & H9260| RETURN | を 実行 する と, 


> n > 2, タイ トル ・ デ モ が 表示 る れ ま す . 
© L < CAPSLOCK | キー の 赤 ラ ンプ が つく 
L, [BREAK | キー で いつ で も ゲー ム が スタ 
ー ト し ます . 735, 一 度 起 動 し た ら BASIC 
に は 戻れ な い の で , 注意 し て くだ さき るい. 


目的 


フィ ー ル ド 内 に ある ハン ド を 操作 し , Ж 
い ブ ロッ ク (スタ ー) елт ОК (Ж 
ー ル ) に 押し 込め る と いう も の で , な る で 
く 早 く 多 く の 面 を クリ アデ し て くだ きい (А 
は 50 面 あり ます ). この と とき, 平均 クリ ア 時 


`Ë. P" / 


間 (AVERAGE) と 一 番 早 く ク リア で きた 
時 間 (LEAST TIME) が 記録 る され ます . 
is, 面 ク リア ご と に 最大 6 つま で の 範囲 
内 で ハン ド が 1 つ 増 えま す . 


スラ イダ 


ハン ド を 邪魔 する キャ ラク タダ と し て スラ 


イダ" (青い デブ ロック) が あり ます 。、 こ の ス 
ライ ダ は ハン ド に 向かっ て 突進 し 。 し か も 
時 間 が た つ に つれ て を その スピ ー ド が 速く な 
の まあ (まん が EEXXAE$otbCcAb uM. - 
の スピ ー ド が ある 程度 以上 に な る と , ハン 
ド が 絶対 に よ け ら れ な いく らい 速く な っ て 
じす よい ます 


高 得点 へ の ノウ ・ ハ ウ 


言い 忘れ まし た が , ハ ンド の 操作 は [5][2] 
13| で 上 下 左右 に 動き ます . 

ST, スラ イダ の 配置 と ハン ド の 位置 に 
4&5, スラ イダ が 突進 し て こない よう な 所 
スラ イダ を どう や っ て お びき 出し まし ょ うか 


СЕИ: 
m 


DIERL HUM 


が あり ます . 
ШШЕ, ТИ この と 
き で も 常に タイ マー が カウ ント る され,。 スラ イ 
ダ の スピ ー ド も 速く な っ て いき ます . 

また, スラ イダ は ハン ド の 位置 を 見 て 突 
進 す る よう に な っ て いて ,。 ハン ド に 一 番 近 
い ス ライ ダ が 突進 し て きま す . も し , ハン 
ド ま で の 距離 が 等 し い 位置 に スラ イダ が い 
くつ か ある と き は 。 ハン ド か ら 見 て 上 下 左 
右 と いう 順に スラ イダ が 突進 し て きま す . 
を のだめ 。 ホー ル の 前 に ある スラ イダ を う 
まく お びき 出す こと た も で きま す 。 


過激 な 遊び 方 や 


S1 を 持っ て いる 人 で , も っ と 過激 に 遊び 
だ た だい 人 人 は, NEW ON 3 を 実行 後 , POKE 
& HFFEB, 2 を ダイ レク ト て 実行 し て か ら 


この よう な 所 で 全体 の 状況 を _ 


THE SLIDER 


プロ グラ ム を スタ ー ト る せ て みて くだ るい 
これ は CPU の クロ ッ ク を 2 倍 に する も の 


uen SS YV ASMH2O Z p x ZU 


り ま す . だ た だし, スラ イダ の スピ ー ド は タ 


イマ FIRQ で カウ ント し な が ら 動 《 く よう に 
か っ て いい で? /60 秒 ご と ど に カウ ント や て い 
る の で , 残念 な が ら 速 く は あり ませ ん . し 
か し , その 他 の 動き は すべ て 2 倍 に な り ま 


これ は 「THE SLIDER, 専用 の コン スト 
ラク ショ ン ・ セ ッ ト で , 画面 パタ ー ン や 各 
種 パ ラメ ー タ を 自由 に 変更 , 作成 で きる ソ 
フト で す . これ に よっ て 多様 な ゲー ム 展 開 
が 楽し め ま す . 

まず , 40 字 ハイ リゾ ・ モ ー ド に し て か ら 
CLEAR 300, &H5CFF2 XíTU i+. 4 
れ か ら エ ディ イタ ・ ブ ログ ラム (リス ト 2) 
ел о пе. も し に て が rt 
ム 本 体 ( リ スト 1) を ロー ド し , RUN UTS 
だ さい 、。 


RUN 後 は ディッ ト ・ モ ー ド に な っ て い 
る の で , パ ラメ ー タ を 変更 し た いと き は [Pl 
キー を 押し て パラ メー タ ・ モ ー ド に し て < く 
だ さき さい. なお, パラ メー タ ・ モ ー ド か ら エ 
ディ ッ ト ・ モ ー ド に 戻る に は [El キー を , E 
ちら か ら で も BASIC に 戻る と き は |X| キー 
を 押し て くだ る い . 


о = s= K 

[c| フィー ルド 内 を クリ ア . 

[p] 指定 シー ン を 表示 . (DIANE, 表示 させ 
だ い シ ジ シーン No. を テン ・ キ ー が から 入力 し 
て くだ きい 。 

[|$| 指 定 シ ー ン を テー に セー プ 。 [S]A n 
後 , 何 番 か ら 何 番 ま で の シー ン を セー プ 
する か 聞い て くる の で , 1 画面 だ け を セ 
ー ブ し だ いと き は その No. を 2 回 入力 し 
て て 7 る い 。 そ a 自分 の 作っ た フィ 
w My Й き は , ゲー ム 本 体 を 
ロー ド し だ た 後に デ ueris 


、 く 考え だ ら 。、 そ りゃ そる 一 だ な (印刷 所 の 方 。 くだ らん こと で すか ら こ こ は 省 いて も いい で す ) と いう こと ょ で, DURAN DURANO 'TIGER- 
ン TIGER)」 は 最高 / (年 賀 状 は が き で 送る TROY-KUN) 


O VY p 初め まし て / ボク TROY-KUN で す . ん 一 と, この 本 を 初め て 買っ た の は 9 月 飼 だ っ た と 思う が , いや 一 内 容 が いい .。 特に 10 月 号 は MZ-700 
Ол \ 


の ゲー ム が 4 つも ある で は な いか …!? ところで, よく みか ける P.S. の 意味 が わか らん か っ た だ の で 漢字 辞典 で 調べ で たら, つい と らん か っ た だ . Z 


( 。 


үр EE! 
А ys 
К?" 

> & 


ー ド し て て だ さい 。 な ゼ モ セーブ する と き 
iz, [|R| で RAM 上 に その デー タ を 格納 し 
сант y: が U^, 

[R] 作 成 し た デー タ を メモ リ に 格納 . O L 
き , デ ー タ が 有効 か どう か を テス ト し , 
合格 する と どの シー ン No. に 格納 する か 
を 聞い て きま す . こ の テス ト の ルー ル は , 
① ホ ー ル は スタ ー の 数 以上 の ② ハ ンド は 必 
ず 1 つ ③ 璧 の 部 分 に は ホー ル し か 置け な 
ЗОЗ, 


パラ メー タ ・ モ ー ド 
[1| ゲー ム ・ ス ター ト 時 の ハン ド の 数 を 指定 . 
[2] ハ ンド の 移動 スピ ー ド を 指定 . 32767 以 


下 の 数 値 を 入力 し て くだ さき さい. 
[3| ス ライ ダ の 移動 スピ ー ド の 指定 . 255 以 


ン の と き , こ の 値 に な る まで スラ イダ の 
スピ ー ド が 増え ます . 

[| と の 面 か ら 始 め る か を 指定 .。 な お な , こ の 
値 を 設定 する と , 回 で 指定 し た 値 が 自 
動 的 に 50 に な り ま す . 

[8| と どの 面 ま で や る か を 指定 . 当然 , [|] で 指 
定 し た 値 以 上 で な けれ ば な り ま せん . 

[@ RESET ス イッ チ を 押す こと に よっ て B 
ASIC に 戻れ る よう に し ます . ゲー ム を 
止め て ,。 ま だ エディ タ を 動か す と き に は 
この コマ ンド を 必ず 実行 し て な いて くだ 
きい . Zi, RESET ス イッ チ を 押し て 


BASIC に 戻り 9 だ た いと き は , テロ ッ プ お 
よび デモ 中 で , 画 面 が スク ロー ル し て い 
ЕЈР ТЕ E. 


て ん や わん や で し た 。 
と ころ で , 最近 の ゲー ム は 大 変 高度 に な 


っ て き て , 割り 込み 技術 を 縦横 に 使い こ な . 


し て いる よう に 思 を た ます. ПОТ ど て も 発 
表 き る れ て いる よう に 。L3 の ワー ク ・ エ リア 
を 解析 を され た 方 々 に 感謝 し つつ , 20 
料 を も と に し て 割り 込み を どん どん 使っ て 
くだ さい 。 いろ いろ と 試し て みる と と で も 


_ 面白 いも の で す よ . 


この ゲー ム が 面白 いこ と を 祈っ て ます / 
また , 最後 まで この 記事 を 読ん で くれ て あ 


pio 


その チャ タダ ズリ ング の テスト や アンド の で 
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下 の 数 値 を 入力 し て くだ きい . こ の 値 を e È り が と う . そし て 樋口 広宣 君 . ご 協力 あり 
x と する と , 60 秒 ご と に 1 コマ 移動 し | d [ が と う . まだ 機会 が あっ た ら ね ノ 
ます . ネン ュ ン ば っ か り い じ っ て いら れ な い . 


[4] ア クモ ル ・ オ フ . スラ イダ が スピ ー ド を ここ で 少々 プロ グラ ム の 説明 を し まし ょ 


増す の を 禁止 し た いと き に 入力 し て 〈 く だ 


た i に は 法律 も 学ば ね ば / 


う . ス ライ ダ は タイ マ FIRQ( 高 速 割 り 込み) 参考 文献 
$ v. を 使っ て 動か し , また ゲー ム ・ ス ター ト 時 1) “ベー シッ クマ スタ ー 活 用 研究 ", 工学 社 
[Эже ド を 増す 単位 時 間 の 指定 に は [BREAK | キー の NMI (緊急 割り 込み ) | 2) "6809 マ シン 語 入門 ", . 工 学 社 
入力 され た だ た 値 を > と する と , スラ イダ は や ゃ や RESET 割り 込み も 使っ て いま す . | | 
ダ 60 秒 ご と に [3] で 指定 し た スピ ー ド よ ょ 私 に と っ て 割り 込み を 本 格 的 に 使っ た の | n 


り 1/60 秒 ずつ 速く な り ま す . 
[@] ア クセ モル ・ ォ フン 時間 指 定 . アク モル ・ オ 


は これ が 最初 どっ た の で , 慣れ な いた だ ため に 

FIRQ が うま く か から な か っ だり,| BREAK 

マン シン 語 リ スト UU Is 
20 08 01 01 01 01 б1 01 01 O1 20 OO OO OO OO OO :50 


ie リスト THE SLIDER 


+ 
O 
+ 
o 


+B +F OO 
OO оо оо оо 10 01 01 01 O1 01 01 O1 01 O1 10 OO OO OO OO OO :29 
оо OO OO OO 10 02 O2 02 O2 O1 O1 02 O2 O1 10 OO OO OO OO OO :2F 
OO OO OO OO 129 | | ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
OO OO OO оо. 10 75 4F 4Ғ ДЕ 4E 54 52 4E 74 10 00 OO 00 OO OO :39 
OO OO OO OO 
OO OO оо OO 
OO оо OO OO +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +ñ +B +C +D +E +F Sum 
оо оо оо OO 10 02 O1 O1 02 O1 O1 O1 O1 02 10 OO OO OO OO OO :2C 
оо оо оо oo 10 02 O1 O1 O4 01 O1 O1 O4 O2 10 OO OO OO OO OO :31 
оо оо оо оо 10 02 01 01 02 01 01 01 01 02 10 OO OO OO OO OO :2С 
оо оо 00 оо 10 02 01 01 01 02 02 02 02 01 10 00 00 00 00 00 :2Е 
) OO 00 00 OO 10 01 O1 O1 O1 O1 O1 O1 O1 O1 10 OO OO OO OO OO :29 
OO оо OO оо 20 01 01 01 01 01 01 01 01 01 20 00 00 00 00 00 :49 
оо оо оо OO 10 10 10 10 10 10 10 10 10 10 10 OO OO OO OO OO 』BO 
OO OO OO OO 10 20 10 10 10 10 10 10 10 20 10 OO OO OO OO OO :DO 
оо оо OO оо 10 01 01 01 01 O1 01 O1 01 01 10 OO OO OO OO OO 1:29 
10 01 01 01 01 01 01 01 01 01 10 00 00 00 00 00 :29 
10 01 02 02 O4 02 02 O4 02 01 10 OO OO OO OO OO :34 
10 02 O1 01 02 O1 01 O1 01 02 10 OO OO OO OO OO 』2C 
10 02 01 O1 O2 01 01 01 O1 02 10 OO OO OO OO OO 』2C 
10 02 01 O1 02 01 01 O1 01 02 10 OO OO OO OO OO :2C 
10 01 02 01 01 02 02 02 02 01 10 00 00 00 00 00 :2Е 
10 01 01 01 01 01 01 01 01 01 10 00 00 00 00 00 129 
10 45 ЗО ZF 39 31 31 33 34 44 10 OO OO OO OO OO :0A 
+0 +1 +2 +5 +4 +5 +6 +7 +B +9 +A +B +C +D +E +F Sum 
10 01 01 OB 01 O1 01 01 01 01 10 OO OO OO OO OO 130 
10 20 10 10 10 10 10 10 10 20 10 OO OO OO OO OO зро 
10 20 10 10 10 10 10 10 10 20 10 OO OO OO OO OO :ро 
10 01 01 O1 01 O1 01 01 01 01 10 OO OO OO OO OO 129 y 
10 O1 O1 O1 O1 O1 O1 O1 O1 O1 10 OO OO OO OO OO 129 
10 02 O4 02 01 O1 O1 01 O1 O1 10 00 OO OO 00 OO :2Е 
10 O2 01 01 01 01 01 01 01 O1 10 OO OO OO 00 OO 12A 
10 02 O1 O1 01 O1 O4 02 02 O2 10 OO OO OO OO OO 130 
10 O2 O1 O1 O1 O2 O1 O1 O1 O1 10 OO OO OO OO OO :2В 
10 02 O2 02 O2 O1 01 O1 O1 O1 10 OO OO OO OO OO 12D 
10 01 01 01 O1 01 01 O1 01 01 10 OO OO OO OO OO 129 
10 01 01 O1 01 O1 01 O1 O1 OB 10 OO 00:00 OO OO 130 
10 20 10 10 10 10'10 10 10 20 10 OO 00 OO OO OO зро 
10 10 10 10 10 10 10 10 10 10 10 OO 00 OO OO OO 』BO 
20 O1 O1 O1 O1 OB O1 O1 O1 O1 20 OO OO OO OO OO 150 
10 O1 O1 O1 O1 O1 O1 O1 O1 O1 10 OO OO OO OO OO 129 
10 81 50 55 4D 54 4F 4D 4D 84 10 OO OO OO OO OO 154 
+0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F Sum 
10 01 O2 O2 O1 01 01 02 O2 O1 10 OO OO OO OO OO 12D 
10 O2 O1 01 O2 O1 02 O1 01 02 10 OO OO OO OO OO 12р 
10 O2 O1 O4 01 O2 O1 O4 01 O2 10 OO OO OO OO OO 132 
10 02 O1 O1 02 O1 02 O1 01 02 10 OO OO OO OO OO 12D 
10 01 02 O2 01 01 O1 02 O2 01 10 OO OO OO OO OO 12D 
10 01 01 O1 O1 O1 O1 O1 O1 01 10 OO OO OO OO OO s29 
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こんにちは , また も 加藤 誠一 郎 で す . 10 月 号 p.72 の 神田 る さん, あり が と う ご ざ いま し た だ . 私 は これ と も う 1 枚 を 出し だ の で すけ れ ど , そっ ち 
は 載っ て いる で し ょ うか ? 先日 、 紫 誌 に ゲロ グラ ム を 投稿 し た の で す が , し っ か り ボ ポ ボツ に な り ま し た だ た. さる て 、 私 は 愛 機 MZ-2000 を すご く か わ 
い が っ て いて 。 PO バザー ル や 1/O パ バザール に を その 名 を 見 て 思わ ず 「 ガ ー ン / 」 と こい て し まう この ご ろ で す .。 PS. 本 屋 に PiO が な か っ た だ 
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PütS!OSOMARK-501—45—C$. S1 に つい て 僕 は 思い ます . MUI TAROUV7NON, 性 能 が 全然 達 う の で す . それ な ら 高 い の 
か と 思え ば , 1 万 円 し か 違わ な い の で す . 僕 は も う 少 し 待て ば よかっ た と , 悔し い 思 い を し て し まい まし た . で も も うぅ 遅い の で 、 僕 は MARK- 
双 、5 で 需 張っ て いこ うと 思い ま +. 2009618 T & ¥ / PS.1 BASIC の リス ト を 80 桁 で 載せ れ ば いい と 思い ます . PS2 きた な い 字 だ . 
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y 僕 は PC-1245 を 持っ て いま す . し か し , 最近 は 使っ て いま せん .。 な ぜ か と うと 。 後 の ネジ が 1 本 な く な っ て し まっ た の で す 。 別に PC に は 
kB rre RS ネジ は 1 本 いく ら で ら いす る の で すか ? 教え て くだ きい, PS. ЕНН, 37: シミ ミュ レー ショ ン ゲ ー ム を し 
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リス ト 1 THE SLIDER マシ ン 語 リス ト 


100 ‘INITIAR I ZEH %4 4 4 1 4 8 6 d 4 0 4 0 8 6 0 ¢ 
105 POKE&HFFD4 。&HB の 

1 の 6 POKE&H81DE,&HO1: STOP SCROLL ` 
110 CLEAR くさ の の 。 kHSCFF : SCREEN, 。 1 』 MIDTH4 の 』 DE 
FINTA-Z1DIMZ (10,10) :01М2% (5) : YOKO=28: TAT 
E=13:G0SUB690: вовиваее: речете: LOCATE28 
s 13: GOSUB40G 

2 の の 

210 COLOR 1:1 ОСАТЕЗ7, 1』PRINT"E" 

220 COLOR 4:1. ОСАТЕЗӘ, 5: PRINT "NOW" s LOCATE 
26,61PRINT"EDITOR MODE"1LOCATEYOKO, TATE 
230 CM$*INKEY$1IFCM$2""THEN2O0OELSECM*ASC 
(CMS) 

240 IFCM»*&H1C AND CM<=&H1F THENGDSUB4 の の 
250 IFCM>=&H さ 4 AND CM<=&kH39 THENSORUR108 
9: 60808400 

260 IFCM$9"C"THENBEEP : GOSUB890: GOSUB499 
270 IFCM$2"D"THENBEEP: 605085000 

280 IFCM$2"S"THENBEEP : 605084000 

290 IFCM$*"R"THENBEEP: 005085000 

300 ІРСМФ= "Р"ТНЕМВЕЕР: GDSUB6 の の の 

510 IFCN も ="X"THENBEEP』 END 

GOTO 2 の の 


YOKOF*YOKO: TATEF=TATE 』 CS=CSRL IN: PS=P 
05(9) 

405 IFCM*&H1C AND PS<37THENYOKO=POS(@) +1 
410 IFCM*&H1D AND Р5>27ТНЕМҮОКО=РОЅ (0) -1 
415 IFCM*&H1E AND CS>12THENTATE=CSRL IN-1 
420 IFCM*kH1F AND CS く <22THENTATE=CSRL IN+ 1 
430 CHARA も =CHR$ (SCREEN ( YOKOF , TATEF ,@) ) 
435 GOSUB450: COLOR CHCOL : LOCATEYOKOF , TAT 
EF: PRINTCHARAS 

440 CHARAS*CHR$ (SCREEN (YOKO , TATE 。 の @) ) 

445 COLOR13:LOCATEYOKO TATE: PRI NTCHARAS 
449 RETURN 

450 

455 IFCHARA$*"e"ORCHARA$*"O"THENCHCOL «2 
460 IFCHARA$»" - "ОКСНАКАФ = " Ж" THENCHCOL =4 
465 ІҒСНАКА%Ф= "Ф" ТНЕМСНСО = 1 

470 IFCHARA$z"'T"THENCHCOL =é 

480 RETURN 


FORI-QTO23: LOCATEO , I: PRINT" 
"3 NEXTI 
RETURN 


А$= ІМКЕҮФ: IFA$2""THENSSS 
IFA$2"E"OR A$2"P"THENSCENE*&HFF : КЕТО 


IFA$«"Q"ORA$»"9"THENSSS 
565 COLOR2:LOCATESS,7:PRINTA$ 

565 B$-INKEY$:IFB$z""THENS6S 

IFB$2"E"OR B$2z"P"THENSCENE -&HFF : RETU 


IFA$»-"65"AND A$«-"9"THEN IF ASC(B$)« 
»&HOD THENSCENE=&HFF : RETURN 

970 IFASC(B$)z&HOD THENIFAS$«»"O"THENSCENM 
E=VAL (ñ$) : RETURN 

571 IFB$«"QO"ORB$»"9"THENS65 

572 IFA$z"O"THENIFB$-"QO"THENS65 

573 IFA$2"S"THENIFB$«»"Q"THENSeS 

574 COLOR2: LOCATE さ 6 , 7: PRINTB$ 

575 C9*INKEY$1:11FC$2""THEN575 

576 IFC$*"E"OR C$2"P"THENSCENE*KHFF : НЕТИ 
RN 

578 IFASC(C$)*&HOD THENSCENE*VAL (A$*B$) : 
RETURN 

589 GOTOS75 

600 ' 

610 COLOR7 

620 LOCATES,0:PRINT" ,——THE SUPER 一 一 へ 
630 LOCATES,1:PRINT"! FIELD EDITOR 1 
640 LOCATES,21PRINT" | FOR | 
650 LOCATE さ 。 さ 』PRINT" — i и 
LOCATED, S: PRINT" ,—— ——COMMAND LIST— 


670 FORI=6T022 
680 LOCATE, I:PRINT" | 

I 
690 NEXTI 
700 PRINT" —— 
710 LOCATE6,3:COLOR 6:PRINT"THE SLIDER 
720 COLOR S:LOCATE1,7:PRINT"LEJ":LOCATE1 
3913PRINT"E4J"1LOCATE1,10: РКІМТ"С5)" 11. ОСА 
ТЕ1,11:РКІМТ" С6Ј":1.ОСАТЕ1, 12: PRINT" 71": 
LOCATE1,13:PRINT"L8J":LOCATE1,141PRINT"C 
91 
738 COLOR4: LOCATE1 。 161PRINT"LCJ"1LOCATE1 
171 PRINT"EDI":LOCATE1, 18: PRINT"LS21":LOC 
ATE1, 191PRINT"LRI"1LOCATE1,21: PRINT "CP" 
1LOCATE1,22:PRINT"CXJ 


1 "№ 


区 初め て 投稿 し ます (載る と いい な …). PiO 8 ) 


け で は あり ませ ん が , で きる 範囲 内 で 楽し め る の で す . ポケ コン 万 歳 / 
殺 は 裏 で 悪い じ こ と を し て いる 人 たち を 衰 で 殺 る と いう 発想 が いい し , あの 殺し の テク ニッ ク も な か な か の も の で す . 必殺 は いい / 


74@ COLOR S:LOCATE5,7:PRINT"= EDITOR MOD 
E"sLOCATE5,9:PRINT"= HALL CHARACTER" 3 し 
OCATES, 10: PRINT "= WALL CHARACTER" : ОСА 
TES,11:PRINT"* HAND CHARACTER" - 
750 LOCATES,12:PRINT"* SLIDER CHARACTER" 
:sLOCATES,13:PRINT"* STAR CHARACTER": LO 
CATES, 14: РКІМТ "= SPACE CHARACTER" 
768 COLOR 2:1 ОСАТЕЅ, 16:РКІМТ"= CLEAR FIE 
Ер": _ОСАТЕЅ, 17: РКІМТ "= DISPLAY FIELD": LO 
CATES, 18: РКІМТ"= SAVE FIELD DATA" 
7708 LOCATES, 19: РКІМТ "= RECORD ON MEMORY" 
:LOCATES,21:PRINT"* CHANGE PARAMETER": LO 
| CATES,22: PRINT" EDITOR END" 
780 RESTORE795:FOR I=Ø TO S:READ CHARA$: 
GOSUB459: LOCATE13,9«-I: COLOR CHCOL : PRINTC 
HARA$1NEXTI 
790 RETURN 
795 DATA O,,7,9,0,: 
890 ' 
810 COLORA4: LOCATE27,12: PRINT WINNIE 
820 FDR1I=1 さ TO021 』 LODCATE27 。 1 5 PR INT" 線 ・・・・・・ 
“++@":МЕХТ1 | 
830 COLOR4: LOCATE27 。 22: PRINT " SINN 
840 RETURN 
9 の の ' 
91@ COLOR7:LOCATESS5,01PRINT" ,—.":LOCATE 
27,1: PRINT"COMMAND?!  I":LOCATESS,213PRIN 
T" — A 
920 LOCATE25,3:PRINT" —MESSAGE——. 
930 FORI-4TO7:LOCATE25, I: PRINT" | 

I" s NEXTI 
940 LOCATE25,8: PRINT" ーー 
950 LOCATE28 。 1 の 』 PRINT" く <FIELD>> 
960 LOCATE26 。 1 1 s PRINT " ーー 
970 FORI*12T0221LOCATE26, I1 PRINT" I"1LOCA 
TES8,I:PRINT" I": NEXTI 
980 LOCATE26,23:PRINT" '—MAY 1984— 
990 RETURN 
1 の の の 
1 の 1 の IFCM$2"4"THENCHARA$2"O" 
1020 IFCM%="5"THENCHARA$=" Ж" 
1030 IFCM$z"5"THENCHARA$2z"T" 
1040 IFCM$2"7"THENCHARA$»"e" 
1050 IFCM$z"O8"THENCHARA$*"&" 
1060 IFCM$2"9"THENCHARA$»" ." 
1070 GOSUB450: COLORCHCOL : LOCATEYOKO, TATE 
: PRINTCHARA$ 
1080 RETURN 
さ の の 9 ' 
さ の 1 の GOUSUB9 の の LDCATE さ 7 , 1: COLOR1: PRINT"D 
3020 LOCATE26,4:COLOR6:PRINT"Please":LOC 
ATE26,5:PRINT"Input SCENE":LOCATE26,61:PR 
INT"end*RETURN" : LOCATE26 , 71 COLOR41 PRINT" 
SCENE No. 7?" 
5050 GOSUBSSO 
3040 IFSCENE*&HFF THENGOSUB9OQ: RETURN 
5045 GOSUB990:LOCATE26 , 4: COLOR1: PRINT "Ји 
st moment":COLOR2: LOCATE28 , SrPRINTSCENE 』 
COLOR6』 LOCATE26 , 51PRINT"No. "1LOCATES31,51 
PRINT"Display" 
5050 FORIs&HOO TO&HAO STEP&H1 の 
3055 LOCATE27*1/&H19,7: COLORS: PRINT"«" 
3060 FOURJ=&H の の TO&HOA 
3070 MEMOURY=PEEK(&HSCS の +SCENE #&НВ@+ 1 +J) 
3080 IFMEMORY*&HO1 THENCHARA$»"." 
3090 IFMEMORY*&HO2 THENCHARA$*"e" 
3100 IFMEMORY=&H の 4 ТНЕМСНАКАФ=" ө" 
3110 IFMEMDRY=&H の OB THENCHARA$-"T" 
3120 IFMEMORY=&H1 の THENCHARA も =" Ж" 
さ 13 の IFMEMDRY=&H2 の THENCHARAS= "О" 
3140 GOSUBASO 
5150 LOCATE27*1/&H10,124-J: COLORCHCOL : PRI 
NTCHARA$ 
3160 NEXTJ,I 
3180 GOSUBA400: 60508900: RETURN 
4000 ' 
4003 BUSUB9 の の: COLOR1: LOCATES7 , 1: PRINT"S" 
4005 COLOR6: LOCATE26 , 4: PRINT"Ready":LOCA 
TE26,5: PRINT"Recording???":LOCATE26,7:PR 
INT"Ok-RETURN" 
4007 A$-INKEY$: ІҒАФ=СНКФ (&HOD) THENGOSUB9 
QOELSE4007 
4008 COLORS: LOCATE26, 7sPRINT"First ?? 


4 の 1 の COLORI:LOCATE37,1:PRINT"S";COLOR3:L 
DCATE26。4:PRINT "FrOm・・・・" 

4020 GOSUBSSQ: IFSCENE=&HFF THENGOSUB990: 
RETURN 

4030 LOCATES4,4: COLORS:PRINTSCENE 

4055 FIRSTADzZ&HSCSO-*&HBO*SCENE 
4058 COLORS: LOCATE26,7:PRINT"Last 


3 { * ` Ix 
fn MC Y e CV AMI гок СУЛА. k: 
PET So E Yam C MES EL に アン | 


b. 


* p.800RAM&ROM Š A, 10 月 号 p.44 の 九 神 純子 きん,、 ぼく も その と お り だ と 思い ます . Ж 


ケ コ ン と いえ ども. ちゃ ん と PiO の 黄 廿 色っぽ い 紙 の 所 に ポケ コン コー ナー(⑫) が 設け て ある で は な いか り AP 


4040 COLORS: LUEATE26 。5: PRINT "エロ ・・・・・・" 
4050 60508550: IF SCENE=&HFF THENG0SUB900: 
RETURN 

4055 LASTAD=(&HS5D の の +&HBgxSCENE ) -1 

4057 IFLASTAD«FIRSTAD THENBDSUB9 の の: RETUR 


4060 LOCATE34,5: COLORS: PRINTSCENE 
4070 LOCATE26,7:COLOR6: PRINT"Now Saving. 


4080 SAVEM"FDATA" 。FIRSTAD 。LASTAD 。&H926 の 
4090 60508900: RETURN 


5005 GBDSUB ワ 9g の 』 LOCATE37 。 1: COLOR1 : PRINT"R" 
zLOCATE26,4:CODLDR2:PRINT"Just Moment 
5005 HALL=Ø: HAND=Q: STAR= の 

5010 FORI-OTO10 

5015 LOCATE27+1 。6』 COLORS: PRINT"«" 

$5020 FORJ-OTO10 

S030 CHARAZSSCREEN(27*J,12*1,0) 

$5040 IFCHARA=&HED THENCHARA=&H2 の 』 HALL=HA 
L し +1 3 GOTOS100: ‘HALL 

5050 IFCHARA=&HFE THENCHARA-&H10:GOTOS10 


‚@: ‘WALL 


5 の 6 の IFCHARA-&HAO THENCHARAS&HOB: HAND=HA 
ND+1』 GBDTDS1 の の 』 ' HAND 

5070 IFCHARA=&HEA THENCHARA=&HO2』BDTDS19 
Ø: ‘SLIDER 

5080 IFCHARA=&HEC THENCHARA=&HO4』: STAR=ST 
AR+1』 60705100: ‘STAR 

5090 IFCHARA=&HAS THENCHARA=&HO 1 : SPACE 
5100 Z(J,I)=CHARA 

5110 NEXTJ,I 

51280 'Ay34------------------------ 

5130 IFHALL く STAR THENGOSUBS999:LOCATE26, 5 
1 COLOR21 PRINT"HALL«STAR" : LOCATE26 , 61 PRIN 
T"HitRETURNkey"ELSES150 

5140 A$=INKEY$: IFAS«CHR$ (&HØD) THENGOSUB9 
の の 』RETURNELSES 1 40 

5150 IFHAND く >1THENBODSUB9 の の 3LDCATE26 ,5: CO 
LOR21PRINT"HAND« »1" 3 LOCATE26 , 61PRINT"Hit 
RETURNkey"ELSE 5170 

5160 A$*INKEY$:1FA$2CHR$ (kHOD) THENGOSUB9 
00: RETURNELSES1 6D 

5170 AREA= の ょ FDRI=27TD さ 7 

5180 A$-CHR$(SCREEN(I,12,0)) 

5190 IFA$«"G"ORA$z"e"ORA$»"-"THENAREA*AR 
ЕА+1 

5200 NEXTI 

5210 IFAREA« »QTHENGOSUB990: LDCATE26 ,5: CO 
LORé:PRINT"CHARACTER IS":LOCATE26,61PRIN 
T"OUT OF AREA"1LOCATE26,7:PRINT"Hi tRETUR 
Nkey"ELSES5230 

5220 A$=INKEY$: ІҒАФ=СНАФ (&HOD) THENGOSUB9 
00: RETURNELSES22 の 

5230 AREA= の FDRI=27TD さ 7 

5240 A$=CHR%(SCREEN(I,22,0@)) 

5250 IFA$=" ®" ORA$=" ¢" ORAS=" - " THENAREA«AR 
EA+1 

5260 NEXTI 

5270 IFAREA<> の THENGBDSUB9 の 9』 LDCATE26 , 51 СО. 
LDR6』 PRINT "CHARACTER IS":LOCATE26,6:PRIN 
T"OUT OF AREA":LOCATE26,7:PRINT"Hi tRETUR 
Nkey "ELSES29 の 

5280 A$=INKEY%$: IFAS=CHRS (HOD) THENGOSUBDS 
00: RETURNELSES2B の | 

5290 AREA= の :FDRT=1 く TO21 

5500 A$*CHR$(SCREEN(27,1,0)) 

5510 IFA$-"G"ORAS-"e"ORAS»" - " THENAREA*AR 
ЕА+1 | 
5320 NEXTI 

$330 IFAREA<>Q@THENGOSUB9Q0:LOCATE26 , 5: СО 
LORé: PRINT "CHARACTER IS":LOCATE26,61PRIN 
T"OUT OF AREA"1:LOCATE26,7:1PRINT"Hi tRETUR 
Nkey "ELSES350 

5340 A$=INKEY$: ІҒАФ=СНАФ (&HOD) THENGOSUB9 
QQ:RETURNELSES340 

5350 AREA*Q:FORI*13TO21 

5360 A$*CHR$(SCREEN(S7,1,0)) 

5370 IFA$»"G"ORA$«"e"ORA$«" - "THENAREAsAR 
ЕА+1 

5380 NEXTI 

5399 IFAREA« > の THENBOSUB9 の 9 LOCATE26 , 5』 CO 
LORé: PRINT "CHARACTER TS"』LDCATE26 。6』 PRIN 
T"OUT OF AREA":LOCATE26,7:PRINT"Hi tRETUR 
Nkey"ELSESA410 

5400 A$*INKEY$:1FA$*CHR$ (kHOD) THENGOSUBS 
00: RETURNELSES4 の の  . 

5410 

5420 GOSUB999: LDCATE26 , 4: COLORS: PRINT"DA 
ТА is OK'":LOCATE26,5:PRINT"INPUT No.to" 
: LOCATE26 , 6: PRINT"record":COLORS:LOCATE2 
6,7:PRINT"SCENE No. ??" 


P.S. PiO10 月 号 号 p.46 の 必殺 高 本 人 きる ん. 僕 も 実は 必殺 ファ ン で す . 必 


Em 


£ 


必殺 で す .。 (ジェ ー ム ス ・ モ ンド ・ 


5450 GOSUBSSQ: IFSCENE=&HFF THENGDSUB9 の の : 
RETURN 


. 5435 GOSUB990: ОСАТЕЗ7, 1: COLOR1: PRINT"R" 


:LOCATE26,4: COLOR 2: PRINT"Now" : LOCATE26, 
S: PRINT"Recording'! '" 

$457 COLOR2: LOCATE28 , 6: PRINTSCENE : COLORS 
:LOCATE26,6: PRINT"No. "3 LOCATES1,61: PRINT" 
RECding" i 
5440 FORI-&HOO TOU&HAO STEP&H10 

$445 LOCATE27*1/&H19,7: COLORS: PRINT" s" 
5450 FURJ=&H の の TO&HOA 

5460 CHARAzZ((I/&H198,J) 

5470 POKE&HSCSO-*&HBO*SCENE + I +J , CHARA 
5480 NEXTJ,I 

54970 GUSUB9 の の 9: RETURN 

6000 ‘CHANGE PARAMETER MODE MAIN 

6 の 1 の 60508500: 6О5ИВ9@@: GOSUBSO000 

6030 COLOR1:LOCATES36,1: PRINT"P": COLORA4:L. 
OCATE27,4: PRINT"NOW": 1 ОСАТЕ27 5: PRINT"CH 
ANGE": LOCATE27,6: PRINT"PARAMETER" : LOCATE 
27 ,7:PRINT"MODE" 

6040 A$-2INKEY$: IFA$-""THEN6040 

6 の 5 の IFA$2"E"THEN BEEP: 60508500: GOSUB600 
: 560508900: RETURN 

6055 IFA$z"X"THENBEEP : END 

6060 IFA$C"1"AND A$»"9"THEN6940 

6070 ONVAL (A$) Б050В2100 , 2200 。 2500 。 6400,6 
‚500,000, 6700 。 6800 , 6900 

6 の 8 の GOTO650350 

6100 BEEP 

6120 GOSUB9QQ:A$="P1":GDSUB6190:COLOR13: 
605087100 

6150 LOCATE26,5: COLORS: PRINT"Please Inpu 
t 


6140 A$=INKEY$: IFA$2"P'"THEN6160ELSEIFA$- 
""ORA$«"2"ORA$»"6"THEN6149 
6150 POKE&HG81ED,VAL (A$)-2 
6160 COLORS: GOSUB7 100: 60508900: RETURN 
6190 ' 
6195 LOUCATE さ 6 。 1: COLOR1 : PRINTA$:RETURN 
6200 ВЕЕР 
6210 GOUSUB9 の の 』 A$-"P2": GOSUB6190: CDLDR1 3: 
605087200 
6250 GOSUB6270:IF FG=1 THEN 6268 ELSE A= 
LEN(HEX$ (PARA) ) :0N А GOTO6255,6255,6260, 
6265 
6255 POKE&HS8BOB, &HO の 』 POKEMHBBO? , PARA: GOT 
06268 
6260 POKE&HS8BOB, VAL (" kH" *«LEFT$ (HEX $ (PARA 
) 。 1 ) ) : PUKE&HBB の 9 , VAL ( " KH" *RIGHT$ (HEX $ (PA 
RA) 。2) ) 380TO6258 
6265 POKE&HS8BOB 。 VAL (" kH" *LEFT$ (HEX$ (PARA 
) ,2) ) s POKEtH8B09 , VAL ( " kH" *RIGHT$ (HEX $ (РА 
КА) ,2)) 
5258 COLORS: 605087200: 60508900: RETURN 
6270 ' 
6275 ONERRORGOTO^290: FG»0:FORI*OTOS: 2% (1 
)z"Q":NEXTI:C-0 
6274 LOCATE26,95:COLORS: PRINT"Please Inpu 
t 
6275 C2C*1:1FC-6THEN6287 
6280 А%=ІМКЕҮФ: ІР A$=CHR$ (&HØD) THEN6287 
ELSE IFA$z"P"THEN FG*1:RETURN ELSE IFA$* 
""OR A$«"O"OR A$»"9"THEN6280 
6285 COLOR6: LUCATE さ 2+ ビ ,7: PRINTA$:2$(C) =A 
%: 60706275 
6287 FORI=1TO С-1:2% (0) =2% (0) +2% (I) : МЕХТ 
Ë ` 
6289 PARA=VAL (Z$ (0) ) i ONERRORGOTOO : RETURN 
6290 LOCATE26, 71COLOR21PRINT"Ov. flow 

": RESUME6270 
6 さ の の BEEP 
6310 GOSUB99Q: A$="P さ "』 GOSUB6190: COLOR1 3: 
808087500: GOSUB6370: IF FG=i TE ELS 
E РОКЕ&НӘ1РО‚РАКА 
6320 COLORS: 508087500: 80508908: RETURN 
6370 ' 
6373 F8*O:FORISQTOS: Z$(I) »"Q"1NEXTI1C90 
574 LOCATE26,51COLORS:PRINT"Please Inpu 
t 
6575 C=C+1: TFC=4THEN6 さ 87 
6380. A$=INKEY$: IF A$=CHR$ (&H@D) THEN6387 
ELSE IFA$="P"THEN FG*1:RETURN ELSE IFA%= 
""ORA$«"QO"ORA$»"9"THEN^6S89 
5585 CDLOR6』 LOCATE324C ,71PRINTA$:12$(C) =A 
%: 807063575 
6587 ҒОКІ=1ТОС-1:29% (0) =2$% (0) +79 (I) 1NEXTI 


PiO な イラ スト 


0%, p e^ 
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シゲ カズ ) 


6389 PARA=VAL (Z$ (0) ) : IFPARA>25STHEN6 さ 9 の 

ELSERETURN 

6390 LOCATE26,7:CDLDR2:PRINT"Dv. flow 
"60702370 

6400 ВЕЕР 

6410 80508900: A$-"P4":G08UB^199:COLOR13: 

905087400: COLORS: LOCATE26 , 51PRINT"Please 
Input":LOCATE26,6:PRINT"120N / 2=0FF 

6420 A$*INKEY$:1FA$2"1"THEN PUKE&HB1E さ 。@ 

ELSE IFA$="2"THENPOKE&HB1E さ 。 1ELSE IFA$-"P 
"THEN64 さ の ELSE642 の 

6430 COLORS: GOSUB7 400: 80808900: RETURN 

6590 BEEP 

651 の 80508900: 4$»"P5"1:G0SUB6199: COLOR131 

GOSUB75900 

6550 GOSUB627980: IF FB=1 THEN6S68 ELSE A=L 

EN (HEX $ (PARA) ) 10N А GOTO&6555,6555,6560,6 

565 

6555 PDKE&HB1E フ 7 НО: POKESHE1E8 , PARA: GOT 

06568 


) , 1)) 13POKE&H81EB , VAL (" kH" *RIGHT$ (HEX$ (РА 
RA) 。2) ) 380TO^6568 

6565 POKE&KHB1E7,VAL ( "kH"+LEFT$ (HEX$ (PARA 
) 。2) ) s POKE&HS1ES , VAL ( "kH"+RIGHT$ (HEX$ (РА 
RA) , 2)) 

6568 COLORS: 805087500: 50808500: RETURN 
“44۵0 BEEP 

6610 650508900: А®="Р&"; BODSUB6199』 COLOR! 3: 
605087200: GUSUB6 さ 7 の 』 IF FG=1 THEN6629 ELS 
E POKE&H81E4,PARA 

6620 COLORS: 805087200: 80508900: RETURN 
6700 BEEP 

6710 GOSUB990: A$-"P7":GOSUB6199: COLOR131 
GOSUB7700 I 
6720 COLORS:LOCATE26,5:PRINT"Pleae Input 
"tLOCATE26,6: PRINT"End9»RETURN" 1 LOCATE26, 
7:PRINT"SCENE No.??":GOSUBSS5O 

6730 IF SCENE=&HFF THEN 6768 

6740 PARAS&kHSCSO-&HBO*SCENE : PDKE&HBF 4B , 5 
Q-SCENE*1 / 

6750 Q=LEN(HEX$(PARA) ) s ON А 80706755 。675 
5,6760,6765 

6755 PDKE&HB 1F 1 。&H の の : POKE&H81F2,PARA:60T 
06768 

6760 POKE&H81F1,VAL ("&H"+LEFT$ (HEX$ (PARA 
) 。 1 ) ) :POKE&HG1F2, VAL (" &H"*RIGHT$ (HEX $ (РА 
RA) 。2) ) 3GOTO6758 

6765 POKE&HB1F 1, VAL ("&H"*LEFT$ (HEX$ (PARA 
) 。2) ) 3POKE&H81F2, VAL "Н" *RIGHT$ (HEX $ (PA 
RA) ,2)) 

`6768 COLORS: 5605087800 

6770 COLORS: 505087700: GDSUB9 の の 』 RETURN 
6800 BEEP 

56810 60508900: А%= "РВ" : 5605082190: COLOR13: 
605087800 

6820 COLORS: LOCATE26,5:PRINT"Pleae Input 
":sLOCATE26,6: PRINT "End=RETURN" 』 LOCATE26 。 
7: PRINT "SCENE No. ??" : GOSUBSSQ š 
6B さ の IF SCENE=&HFF THEN6899 

6840 IFPEEK(&HB1F2) =&H の の ТНЕМРАКАФ= "00" 
ELSEPQARA$=HEX ま (PEEK(&HB1F2) ) 

6850 PARA=VAL ("&H"+HEX$ (PEEK (&HB1F1)) +PA 
RA$) 

` 6860 PARA= (PQRA-&H5C5 の ) /&HB の 

6870 IF SCENE>=PARA THEN COLOR 5: 6050877 
QQ:POKE&HSF 4B , SCENE -PARA* 1 

6890 COLORS: 505087800: GOSUB900: RETURN 
6900 ВЕЕР 


808087998: COLORS: LOCATE26, 5. РАІМТ"Р вазе 
Input":LOCATE26, ё: PRINT" 1=ON / 2=OFF 

6920 AS=INKEY$: IF A$9"P"THEN693SO ELSE IF 

A$2"1"THEN POKE&HB1FE,O0ELSEIFA$*"2"THENP 

OKE&HB 1FE 。 1ELSE6929 

6950 COLORS: 805087900: 80808900: RETURN 

7100 LOCATES,9:PRINT"START HAND" 

7118 PARA*PEEK (kHG1ED) +2 

7128 LOCATE290,9:COLOR 6: РАІМТОВІМО "#09" ; 

PARA 

71 さ の RETURN 

7200 LOCATES 。 10: РКІМТ "НАМО SPEED" 

7210 IFPEEK(&kHBB の 9 ) = の THENPARA$= "の 9 の "ELSE 
IFLEN (HEX$ (PEEK (&HGB09) ) ) =1 THENPARA$= "Ө" 

*HEX$ (PEEK (&H8B09) ) ELSEPARAS*HEX$ (PEEK (k 

HBB の 9 ) ) 

7216 PARA*VAL ("&H" *HEX$ (PEEK (KHBBOB) ) +PA 
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6560 POKE&HB1E7 , VAL ("&H" +LEFTS (HEX $ (PARA 


K Sa Yd Ya Я Pu TL "wa 
RS ея Л о КГУ е 


КАФ) 

7220 LOCATE18。 "——— 
"ЗРАКА 

7230 RETURN 

7500 LOCATES。 121PRINT"SLIDER SPEED" 

73108 PARA=PEEK (&HB1FD ) 

7320 LOCATE29@ 。 1 2 COLOR é:PRINTUSING" ###" 

I PARA 

7338 RETURN 

7400 LOCATES,13:PRINT"ACCEL ON/OFF C J 


7410 COLOR6』LDCATE19 131 IFPEEK (&H81E S) = を 
HOO THENPRINT" ON" ELSEPRINT"OFF" 


| 7420 RETURN 


7500 LOCATES 。14』PRINT"ACCEL TIME" 

73510 IFPEEK (kHG1E8) =@ТНЕМРАКАҘ= "00 "Е ЗЕ 
IFLEN (HEX$ (PEEK (&H81EB) ) ) »1THENPARA$»"g" 
*HEX$ (PEEK (kH81EB) ) ELSEPARAS$*HEX€$ (PEEK (& 
H81EB)) 

7515 PARA*VAL ("&H" *HEX$ (PEEK (kH81E7)) +РА 
КАФ) 


7520 і ОСАТЕ 16, 14: COLOR 6: PRINTUSING" #444 


4"; PARA 

75:30 RETURN 

7600 LOCATES,15:PRINT"END SPEED" 

7610 PARA*PEEK (&H81E4) 

7620 LOCATE29 。 15: COLOR 6: РКІМТиБІМО" #96" 
3 PARA 

7630 RETURN 

7700 LOCATES,17:PRINT"START SCENE No." 
7710 IFPEEK(&HB1F2) =&H の の THENPARA$*"QO" 
ELSEPARA$=HEX* ま (PEEK(&HB1F2) ) 

7715 PARA=VAL ("&H" *HEX$ (PEEK (kHG1F1)) +PA 
RA$) \ 
7720 
7730 
PARA 
7740 


PARA= (PARA-&HSCSQ0) / «Нва 
LOCATE290 。 17: COLOR6: РКІМТОБІМО" #06" ; 


RETURN 

7800 LOCATES,18:PRINT"END SCENE No." 
7810 COLOR 5: GOSUB7 700: РАКА=РАКА+РЕЕК CkH 
8F 4B) -1 

7820 LOCATE20 。 18:COLOR6:PRINTUSING"###"; 
PARA 

7830 RETURN 

7900 LOCATES,20:PRINT"RESET ON/OFF L J 
" 


7910 COLORé1:LOCATE19,20: IFPEEK (&HB1FE) =& 
HOO THENPRINT" ON"ELSEPRINT"OFF" 
7920 RETURN 
вәдә ' 
8010 COLOR4:LOCATES, 1 1 PRINT" CHANGE 
— "I LOCATE3, 2: PRINT” ‘PARAMETER MODE 
ر‎ 
8020 COLOR2:LOCATEO, 4: PRINT" ,————COMMAN 
D LIST——À 
8050 FORI«STO 22 
8040 LOCATEO, I1PRINT" | 

| 
8050 NEXT1 
8860 PRINT" — — ——— —— 
8070 LOCATE9。BPRINT" I——————— — ə—n > 
— 
8080 LOCATE の 。1 1』PRINT" ーー 
ーーーーー] : 
8099 LOCATEO, 16: PRINT" I.——— — — — —— 
پس‎ 
8095 LOCATEQ,21:PRINT" i 
ーーー ゴ 
8100 COLOR 3:LOCATE1,6:PRINT"LEJ EDITOR 
MODE":LOCATE1,7:PRINT"LPJ CHANGE PARAMET 
ER"1LOCATE1,9:PRINT"C12":LOCATE1, 10: PRIN 
T"EL21"1LOCATE1, 12: PRINT"C 31" 1LOCATE1, 13: 
PRINT"L41":LOCATE1,14:PRINT"L51":LOCATE1 
,15:PRINT"[61 
811@ LDCATE1 。22 CDLDRS』 PRINT"[X] EDITOR 
END 
8200 COLORS:LOCATE1,17:PRINT"£7J"1LOCATE 
1,181 PRINT"L8J" :LOCATE1 ,20: PRINT"[9] 
8210 COLORS: GOSUB7 100: COLORS: GOSUB7290:C 


OLORS: 505087500: COLORS: 505087400: COLORS: ` 


905087500: COLORS: GOSUB7600: COLORS: GOSUB7 
709: COLORS: 5605087800: COLORS: 605087900 
8220 RETURN 
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ER CRANE CA 


Ў act 1 


Ns8-BASIC キ マシ ン 語 


オリ ジ ナ ル ・ ゲ ー ム を 作ろ うに も アイ デ 
ア が 浮 ば ず , また も や 移植 に 手 を 出し て し 
まい まし た . 今回 も PC-8001mkII か ら の 移 
植 で す . 

PC-8801 は PC-8001mkII に 上 比べ て キャ ラ 
クタ の デー タ が 2 倍 必 要 で , し か も V-RAM 
を 2 枚 使 っ て いる た め ス ピー ド が か な り 落 
ち ま す . そこ で , キャ ラク タ 表 示 ル ー チ ン 
を 少々 改良 し , 敵 ミ サイ ル を 出 や すく し ま 
し た . お か げ て で 結構 難し く な っ て いま す . 
リス ト も それ ほど 長く な い の で , 頑張 っ て 
入れ て みて くだ さい 、. 

画 プ ログ ラム ・ イ インフォメーション 


| | BASIC 
| | マシ ン 語 B000—C22F 
> > > 


} 


BASE VÑ, ミサ イル の スピ ー ド 
配分 が あま り よ く あ り ま せん . Š 
| の 点 は オリ ジ ナ ル の 方 が よく で き 
| て いま し た よ . 


+++ ++ +++ Ч +, 
++ ++ ++ + ++ ++ ++ + + +4 
аана + +,+,++,+,+,+,+ ++ +++ + ++ ++ ++ 
++ ++ + +++ +++ +++ F4 
++ ++ ++ + ++ + ++ +4 + + + 
++ ++ ++ ++ ++ + + + + + ++ 
++ ++ + + + +++ + + +i ++ 
"ass +++ S s +k tt t pol ik a 
++ ++ + + + ++ + ++ + + + + 
++ ++ + + + + ++ + ++ ++ 44 
++ ++ + + + +i + ++ + + + T +++ 
MA ула FUN PQ G NB Sw Kk sh. Ж n + f bob 4 + ёр + 
+,+,+,+ ++ +++ +,++,+,+,+,+,+ +++ ++ +++ +++ 
- A s + Күк utt eh 4+ + + ҮЕ u* att uv ut ut ut Ap 4 art tut at x 
++ ++ + + + + + + + 3 раги 3 3 ++ + + +i + + ++ + 4 


の 
> 
の 
С) 
N 
H 
ざき 
хи 
+ 
% 
H 
| 
- 
х 
を 2 


N 
くだ るい. あと は 自動 的 に マシ ン 語 を 
ド し て オー ト ・ ス ター ト し ます . 

ゲー ム の や り 方 は 簡単 で す . [4] と [6] の 
キー で BASE を 左右 に 動か し , [SpACE| > 
ー で ミサ イル を 発射 し て 敵 を 全 減る きせ て くだ 
る さい 。 これ で 1 面 ク リア で す . 途中 で ボー 
ナス 船 "BON" が 下り て くる の で 同じ よう に 
撃ち 落と し て くだ さき さい. 撃ち 落と し た 高き 
に より 1.000 点 , 50053, 200 点 が 得点 に 加算 
きれ むれ ます 。 た だ た だし, これ は ある 高き まで 下 
り て くる と “NON" に な っ て 左右 に 逃げ て 
いき ます . 撃っ て も 敵 の 通常 得点 し か 入り 
ませ ん . 

5 面 ク リア する と ボー ナス ・ ス テー ジ に 
な り ま す . 前 方 か ら 6 宇宙 イ オン が 突っ 込ん 
で くる の で ひだ すら よ け て くだ さき さい. RR 
議 な こと に UNIT が 増え て いき ます . 

UNIT が 500 に な れ ば クリ ア で す . それ ま 
で に ぶつ か れ ば , その と き の UNIT の 量 に 
応じ て ボー ナス 点 が 加算 きれ ます . IO 
り 返 し が 4 回 あり , 敵 の 数 も 増え て きま す . 


4 


b. M e MT て 2 
"n бт Oba i 


PC-8800 シ リー ズ 


表 1 アド レス ・ マ ッ プ 


キャ ラク タ の DATA 
キャ ラク タ 表 示 (32X16 ド ッ ト ) 
高速 画面 クリ ア 
キャ ラク タ 表 示 (8 X8 F F) 
タイ トル 表示 
座標 っ アド レス 変換 
キー スキ ャ ン 
BASE 移 動 

BASE ミ サイ ル 移 動 
BASE ミ サイ ル 発 射 
乱数 発生 

英 の 初期 化 

LESE 

i š サイ ル 移 動 
Bn 

MEM 

PON GAL FE 
MATT 処 理 
ZOOG 処 理 

VEGA 処理 

DAIL 反 転 
DAIL 形 決定 

DAIL 処 理 

10 進 出力 

得点 加算 


に な る と 再び 1 面 に 戻り 9 ます. 
ボー ナス ・ ス テー ジ で パー フェ クト に クリ 
ア す る と ベー ス が 1 機 増 えま す . 


+ + ЫЕ 
ЕЕН 
EE EEE EE EE rr rrr rrr rrr 
KERF ЕЕ + + CC CC + 
Tat re ratae ta EERE E З 
キト あい Vetere 
Tete eet. eg ertt 
Тын чим EE P Pio V a e d 
ЖЕ ЫЕ FERRE E 
RA e 4 T4 t ET dtt 
at ttu rutru rre rn rr 
ЕЕЕ 


h o n Р sn Ра gia و‎ рг dha is Pia pG АРА Sis Pq ah О id КЫТ, 
毎度 の こと な が ら 5 種 類 い ます . 1 面目 
は “PONG” て 左右 に 往復 す ぁ だけ な の で 
楽に クタ リア で きま す . っ 2 面目 は “MAIT" で 
ジグ ザ グ に 落下 し て きま す 。 当たら な いよ 


うに よ け な が ら 撃 ち 落 と た し て くだ きい .。 か 


な り 手 強い 面 で す 。 

3 面目 は “ZOOG” C+. BASEOT € E 
の 段 か ら 出 現し て 斜め 上 に 上 が つて いき ま 
+. な か な か 当たり に くい の で , UNITY 

BON を 逃し て NON に な っ て し まっ た 


UNITS 382 


守る ジーク: りり 


BASE X 座 標 
BASE ミサ イル 存在 
BASE ミサ イル X,Y 座標 


BASE 死 亡 フラ グ 
敵 ミ サイ ル 状 態 | 
敵 ミ サイ ル 座 標 J 
BASE の 数 
BON 状態 
BON 座標 
スコ ア 
残り ユニ ッ ト 
文字 列 用 

EI47 | BASIC リ ター ン ・ フ ラグ 


x 8 


れ に 注意 し て くだ さい . 4 面目 は “VEGA" 
で 終 め に 落下 し て きま す が , BASE の 直前 
で は ね 返っ て 反対 方 向 に 上 が っ て いき ます . 
ミサ イル と 重なっ て 落ち て くる こと も あり 
ます が , そう 難し い 面 で は あり ませ ん . 

5 面目 は “РАП” で クネクネ と 動き な が 
ら 体 当たり し て きま す . まる で ゲ ウ リム シ 
の 培養 場 に で も いる みな だ た だ いで, 人 に よっ て 
は 気分 が 悪く な る か も し れ ま せん . 


++ +4 
RE 26 
жн + oe 
iuuenem eet TED Te 
- + + + + + + + + ++ + + ++ ++ + 3 


トキ すす + ` ا‎ Ту M 13 
… と 言っ て も 別に に これ と いっ て 優れ た ル 
ー チ ン を 開発 し た わけ で も な く , 特別 に 説 
明 す る こと も な い の で , 主 な ルー チン だ け 
表 に し て お きま す . 


HHHH ++ ++ ++ ++ +++ 


+ СОЗУУ Ч 
キキ 圭二 二 二 キ 二 キキ キキ キキ 圭二 キキ キキ エキ オオ サオ 
teet yt yt eu ЕЕ ЕЕ КЕЕ EC ECC pt qu ККЕ 
ュ っ も キキ キキ キキ キキ キキ キキ キキ キキ キト も 
u EE ЫЕ КК ЧЕЧЕК e К ЕЕЕ 
Ste enit tart at Pa yo Sedi rS ph 
pete pea Н ata E ТҮ 
CC で су ifto s Fina e 

qi t her ht ny ЖЕКЕ ЕЕЕ 
Aet ЕК PEN トキ 
EE E E E SE amat ga genad SE SEE a EES 
ЖЕЕ E E E E E E E E E FE SE De a PS 


xS SS SES. + 
も も すそ キ キキ キキ キキ キオ キキ Buaya pt + мыз, 


や は り DMA を ON に し た まま だ と 動き が 
鈍く て いけ ませ ん . も し , F S: U Ç S a 
で き な い 人 人 が い だ ら OUT 81.0 と で も 入力 
し て くだ きい . スコ ア や 77 な ど は 消え ます ・ 
D, 動き は ずっ と スム ー ズ に な り ま す . 

る さて, この デブ ログ ラム 作成 の 途中 で , 7 
ドレ ス の 入力 ミス に より 5 作り か け の この プ 
ЭАТ U 205 ku. 5 *uw»* 


TE 
E 
+ 
73 
+ 
$ 
+ 


今 , 超 ビッ グ ス ケ ー ル の ゲー ム を 制作 中 , どう ご 期待 P.S.1 めぞん 最 


O (O) O (O) p PiO に PC-8001 用 の アド ベン チャ ー が な いと お 嘆き の あな た に ノ 
QA QA 2 i^ Р.5.2 松任 谷 由 美 最高 P.S.3 阿部 エ = 一 見 て る か ーー, 多田 クン だ ぞ . (多田 裕司 ) 


gu 


pio 


マー に と っ て は 致命 的 と も いえ る ミス を 犯 


し て し まい まし だ (私 は DISK を 持っ て いな 
СОСТ). し か し , それ で も 私 は あき ら め 
る こと が で きず , カセ モ セット か ら デ ー タ を 直 
接 読み 出す プロ グラ ム を 作り , 復活 させ る 
о: 

L2' L, 20»^7-rz7i-:495Ngs -BA 


E;F 


BASIC 


M フロ グラ ム の 入力 | 


で は 早速 BON ・BON の 入力 を 始め まし ょ 
う . まず , リス ト 1 の BASIC プ ログ ラム を 
入力 し ます . BASIC プ ログ ラム の 入力 は 。 
リス ト と 同 し よう に キー ボー ト か ら 打 ち 込 
む た け な の で 問題 な いと 思い ます . と に か 
<, で きる た け 間 違え な いよ うに 入力 し て 


くだ た さい . fb. この 時 点 で ブ プログ ラム は 


絶対 に RUN し な いで くだ た さい. 


BASIC 


Е フロ グラ ム の セー ブ 


BASIC プ ログ ラム の 入力 が 終わ っ た ら カ 
セッ ト ・ テ ー プ に ブロ グラ ム を セー ブ し ま 
す . この と き の フ ァイル 名 は な ん で も 構い 
ませ ん . | 

テー プ に セー ブ し た ら 必 ず ベ リフ ァ イ を 
取り まし ょ う . $U, テー ブ プ に キズ が 付い 
て いた りす る と .. 二 度 と 再生 で き な く な り , 
それ まで の 努力 が 水の泡 と 消え て し まい ま 


す . 
єк チェ ッ ク サ ム ・ 


プロ グラ ム の 入力 


ET, 次 は いよ いよ マシ ン 語 の 入力 で す 
Ў, その 前 に チェ ッ ク サ ム ・ ブ ログ ラム と 
いう も の を 入力 し て も らい ます . これ は マ 
シン 語 が 正しく 入力 され て いる か と うか チ 
ェ ッ ク す る た め の も の な の で , 面倒 くさ が 
ら な いで 間違い な く 入 力 し て くだ た さい . 


チエ ッ ツジ ワサ ム ・ 
プロ グラ ム の テス ト 


チェ ッ ク サ ム ・ ブ ログ ラム を 入力 し た ら 
テス ト の た め 一 度 RUN し ます . 

この ブロ グラ ム は RUN す る と まず “Top 
address?” と 聞い て きま す . ここ で は 一 
応 BOOO| RETURN | と 入力 し て くだ さい . さ 
ら に "End address?" と 聞い て きま す . 


ここ で は BOFF RETURN | と 入力 し て くだ さ 


Vy. 


< EE Wy mer 
^ ap od ñ 


M Км A WOW. VEN UR ; 
ГРАД NNI w... が まり f T s LS ж Й TS a š 54 à 1 
OT MT o s NI DELE ACRI N DS LU ce D IN ES M dp teg г EN Mod LK Rud 2 
UP BU geli, «iio cr Е sehe WE aur S CONTULI E ES 


a? 
A 一 , aS ・ 
今月 か ら マ シン 礎 の 入力 方 法 る まだ 知ら な い 人 の た め 


(=, ВН 7 本 の BASIC +7 м7 п У УА #10, 
実践 約 に 入力 方 法 を 説明 する こと に し まし た . 


SI じ が どう いう 形 で マシ ン 語 を モー グ し て 
いる か が の わかり, つい に マシ ン 語 で モー 
し だ プ ブログ ラム を マシ ン 語 の ロー ダー に よ 
on--FT$ Ubs5, а се Д е 
と に 成功 し まし だ 、。 こ れ で "マシ ジン 語 ロ ー ド 
最 中 に いろ いろ や る こと が で きま す . ol 
の プロ グラ ム に は ぜひ 採用 し だ た いと 思っ て 


この 企画 


ブ プログラム が 正しく 入力 され て いれ ば 。, 
この よう に 入力 する と リス ト 2 の マシ ン 語 
リス ト と 同じ し よう な 形 で 画面 に 数 字 が た く 
さん 表示 され ます . これ を チェ ッ ク ・ サ ム 
付き マシ ン 語 ダン プ ・ リ スト と 言い ます ( 略 
し て マシ ン 語 リス ト )、. 

画面 に 表示 され る リス ト と リス ト 2 と で 
は 数 字 の 内 容 は 異な る は ず で す が , 表示 さ 
れる 形式 は 同じ に な る は ず で す . こ こ で は , 
同 し 形式 で 出力 され て いれ ば , チェ ッ ク サ 
ム ・ ブ ログ ラム は 正しく 入力 され て いる も 
の と し ます . も し , 同 し 形式 で な か っ た り 。, 
エラ ー が 出 た ら も う 一 度 プ ログ ラム を 見 直 
し て くだ さい 、. 
" マシ ン 語 リス ト の 

簡単 に マシ ン 語 リス ト の 見 方 を 説明 し ま 
す . マイ コン に は メモ リ と いう も の が あっ 
<, ここ に デー タ の 読み 書き が で きる と い 
うこ と は ご 存じ た と 思い ます (ROM は 読み 
出し の み ). PC-8801 の 場合 ,.1 つの メモ リ 
に 読み 書き で きる デー タ は 16 進 数 2 桁 の 数 
字 と いう こと に 決ま っ て いま す . 数 字 で 表 
わす と 00~FF に な り ま す . 
さて 。 こ の メモ リ の 1 つ 1 つ に は 16 進 数 
4 桁 の 番地 が 付け られ て いま す . で すか ら 
ある メモ リ を 指す 場合 . た と えば B028 番 地 
の メモ リ と いう 言い 方 を し ます . 

で は チェ ッ ク ・ サ ム 付 き マ シン 語 ダ ンプ ・ 
リス ト 出 力 例 を 見 て くだ さい . これ を 見 て 
も ら え ば それ ぞ れ の 数 字 の 意味 が よく わか 
る と 思い ます . 要する に メモ リ の 番地 , х 
モリ の 内 容 . チェ ッ ク ・ サ ム , の 3 種類 の 
数 字 が ある わけ で す . チェ ッ ク ・ サ ム に つ 
いて は あと て 説明 する と し て , ここ で は 何 
番地 の メモ リ の 内 容 が 何で ある か と いう 見 
方 を 説明 し ます . 

で は B028 番 地 の メ モリ の 内 容 を 見 て み ま 
し ょ う . #Ў, リス ト の 左 の “Adgd* の 下 で 
"B020" を 捜し ます . この 横 の 列 に は B020 
ーーB02F 番 地 ま で の メモ リ の 内 容 が 表わさ れ 
て いま す . 次 に リス ト の 上 に ある “+8” 
を 捜し ます . そし て “B020”" の ある 横 の 列 と 
“+ 8 "の ある 縦 の 列 が 交わ る と ころ を 見 る 
と “28" と いう 数 字 が 見 つか る は ず で す . C 


ガイ / ダ ンス 
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大 な いや , と 言わ あず, し っ か り 腕 ん で て ださい. 
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PC- 


れ が B028 番 地 に 入っ て いる 内 容 で す . 
マシ ン 語 リス ト の 


АШ. 


いよ いよ マシ ン 語 を 打ち 込み ます . マシ 
ン 語 の 入力 に は 機械 語 モ ニタ と いう も の を 
使い ます . 機械 語 モ ニタ は PC-8801 の 場合 。 
BASIC イ ンタ ー ブ プリ ンタ と 同じ よう に 初め 
か ら 持 っ て いる の で 特に 用 意 す る 必要 は あ 
リ ま せん . 

機械 語 モ ニタ を 動か す に は , BASIC モ ー 
ト (電源 を 入れ た と き の モ ー ド ) で MON 
| RETURN | と し ます . そう する と “h] "と 表 
示さ れ て 機械 語 モ ニタ ・ モ ー ト に な り ま す . 

機械 語 モ ニタ の 詳し い 使い 方 は ,PC-8801 
の ユー ザー ズ ・ マ ニュ アル に 載っ て いる の 
T, そちら を 見 て も ら う と し て , ここ で は 
マシ ン 語 の 入力 に 必要 な 最少 限 の こと た け 
を 説明 し ます . | 

マシ ン 語 の 入力 に 使え る コマ ント は S と 
E が あり ます が , ここ で は 基本 的 な S コマ 
ンド を 使い ます . で は まず , SBOOO|RET_ 
URN | と し て くだ さい . 

"B000 jn 一 "と 表示 され て , その 後に カー 
ー ソ ル が 点 減 す る は ず で す (nn は 16 進 数 2 
HORF). これ は B000 番 地 の 内 容 が nn で 
ある こと を 表わし , この 値 を どの よう に 変 . 
える か 待っ て いる 状態 で す . сога, [0) 
~19| お よび [Al 一 |F| の キー を 使っ て 16 進 
2 桁 の 数 字 を 入れ て [| SPACE | キー を 押せ ば , 
その 値 を B000 番 地 に 入れ る こと が で きま 
す . 
で は 実際 に BON・BON の マシ ン 語 リス ト 
を 入力 し て み ま し ょ う . まず リス ト 2 を 先 
ほ と の マシ ン 語 リス ト の 見 方 の 要領 で 見 ま 
す . B000 番 地 の 内 容 は “00” で すね . この _ 
“00” は “B000 nn 一 "と 表示 され て いる と き 
に 00| SPACE | と し て 打ち 込み ます . 同じ 
よう に し て B001 番 地 か ら も “00” を 打ち 込 
み , B00F 番 地 は “00”", 下 の 段 に 行っ て B 
010 番 地 は “00”. B011 番 地 は “0F”, B012 
番地 は “F0”… と 打ち 込ん で いき ます . b 
し 途中 で 入力 ミス を し た ら , その まま 続け 
て 正しい デー タ を 打ち 込ん で くだ さい . 2 
桁 以 上 入力 し た 場合 は 最後 の 2 桁 が 有効 に 
な り ま す . 


リピ ギ リナ リーズ |・| カ ガイ | タン | ス 


ББ. | 知 キ ー を 押す と 1 つ 前 の 番地 へ 戻 
U, デー タ を 入力 し な いで | SPACE | キー を 
押す と , 1 つ 先 の 番地 へ 進み ます . 必要 に 
応じ て 使っ て くだ さい . 

マシ ン 語 リス ト を 全部 入力 し た ら ,|RET 
URN | キー を 押し て くだ さい . S コ マン ド 
か ら 抜 け ま す . さ ら に この と き .|CTRL| + 


ー を 押し な が ら [B| の キー を 押す と BASIC 
イン ター プリ タ に 


戻り ます . 
ナチ エッ ジュ サム 


マシ ン 語 リス ト を 全部 入力 し た 状態 で , 先 
ほど 入力 し た チェ ッ ク サ ム ・ ブ ログ ラム を 
RUN さ せ て くだ た さい 、. 今度 は “Top addr 
ess?” に は BOOO| RETURN | と “End add 
ress?” に は C22F| RETURN | と 入力 し ま 
す . 

リス ト が 順に 出力 され , B000 352^ 5B 
OFF 番 地 ま で が 表示 され た ら | CTRL | キー を 
押し な が ら |S| の キー を 押し て 一 時 出力 を 
止め て くだ さい ( 再 ス ター ト は | SPACE | + 
ー な と を 押す ). 

正しく 入力 させ て いれ ば 。 今度 の リス ト 
は リス ト 2 の 形式 , 内 容 と も まっ た く 同 じ 
に な る は ず で す . 要 は この よう に し て , 本 
紙 の リス ト と チェ ッ ク サ ム ・ ブ ログ ラム の 
出す リス ト を 比べ て 同じ に すれ ば いい わけ 
で す . も し , ここ で 違っ て いれ ば その 箇所 
を 調べ て 控え て お き 。 あ と で また 機械 語 モ 
ニタ で 正しく 入力 し て や り ま す . 

だ て あて, この よう に し て プロ グラ ム が 
正しく 入力 され て いる か とう か 調べ る に は 
入力 する の に 必要 な 時 間 と ほぼ 同様 の 時 間 
が 必要 に な り ま す . そこ で 登場 する の が チ 
my た な て ます, 

チェ ッ ク ・ サ ム と は マシ ン 語 リス ト の 一 
部 を 合計 し た も の で , PiO で は 縦 と 横 の 列 
に つい て 出し て いま す . リス ト 2 の 場合 た 
€, B010 番 地 の 横 の チェ ッ ク ・ サ ム は 00 二 ` 


OF+F04+:: +00 =38D の 下 2 桁 を 取り 8 
D と な っ て いま す . 縦 に つい て も 同 し よう 
に 計算 され ., 右 下 の 79 は この ブロ ッ ク 全 体 
の 合計 と いう こと で す . 

tu. B010 番 地 の 00 を 01 と 間違え て 入力 
し て いた と し た ら と うな る で し よう. MM 
その 合計 で ある チェ ッ ク ・ サ ム も 1 多い 数 
に な り ま す . TORE., 横 の チェ ッ ク ・ サ 
ム で は 8E に な リ り , リ スト 2 の 8D に は な り ま 
tA. さら に , ブロ ッ ク 全 体 の チェ ッ ク ・ 
サム も 7A に な り ., 元 の 79 よ り 1 多い 数 に な 
リ ま す . 


この 場合 . 逆 に チェ ッ ク ・ サ ム を 見 れ ば 


その ブロ ッ ク の 中 の 入力 ミス を 見 付け られ _ 


る と いう こと で す . 長い マシ ン 語 リス ト の 
場合 . こ の よう に チェ ッ ク ・ サ ム た だ け を 見 
れ ば , 簡単 に 入力 ミス の 箇所 を 捜し 出す こ 
と が で きま す . 


マシ ン 語 


プロ グラ ム の セー ブ 


正しく マシ ン 語 リス ト が 入力 で きた ら 
プロ グラ ム を カセ ッ ト ・ テ ー プ に セー ブ し 
ます . や り 方 は まず AON| RETURN | で モニ 
タ に し て ,W:M.BOOO.C22F| RETURN | と 
いっ た 具合 で す . M の 部 分 は ファ イル 名 な 
DT, 特に M で ある 必要 は あり ませ ん . 


以上 で BASIC リ スト . マシ ン 語 リス ト と 
も 入力 が 済み まし た . ここ で RUN テ スト を 
し ます . 一 度 電 源 を 切っ て か ら (チェ ッ ク 
サム ・ ブ プロ グラ ム は 別 の テー プ に で も セー 
ブ し て お いて くだ さい ), BASIC, ç > > 
語 ブ ログ ラム を ロー ト し ます . ちな み に マ 
シン 語 プ ログ ラム の ロー ト 方 法 は WON|IR_ 
ETURN | RI RETURN | と し ます . 


BASIC, マシ ン 語 と も ロー ト し た ら , B 


チェ ッ ク サ ム 付 き マ シン 語 ダ ンプ ・ リ スト 出力 例 


入力 する 部 分 


+0 +1 A2 +3 +4 +5 TTA 
の の の 01607 оз 04 
E 1 の 11 12 13 14 
26 21 22 75 24 
B 30 31 32 33 54: 
| 4 の 41 42 43 44 

"so 51 52 53 54 
BO60 50 61 62 63 64 
670 79 71 72 73 74 

089 во B1 82 83 84 
90 90 91 92 93 94 

0 AO A1 А2 AZ A4 
Be Bi B2 BZ B4 

` Co C1 C2 СЗ Са 
о ро Di D2 D3 ра 

EO EO E1 Е? ЕЗ E4 
Fo F1 F2 ЕЗ F4 


ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー — ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー- ーー 


во 9 の ао BE Со Dd 


メモ リ の 番地 の 上 位 3 
桁 . 4 桁 目 は 常に 0 


縦 の チェ ッ ク ・ サ ム 


B028 番 地 の 内 容 は 28 


раа Ыы: 
‚ JR-100 で だ れ か が アドベンチャー ゲー ム 作 っ て くだ さい . 
ら 私 も 作り ます か ら 。 だ れ で も いい か ら お 願い だ よさ よー. 


メモ リ の 番地 の 416B. ZO Efi 3 桁 の 番地 に この 
値 を 加え る と いう 意味 


+8 +9 +A +B +C +D +E +F 
09 OA eB ec ØD ФЕ OF :78 
19 1А 1B 1С iD 1E 1F 778 
29 2A 2B 2С 2D 2E 2F 78 
39 ЗА: 8 
49 4A 
59 5A 
69 ФА 
79 7A 
89 BA 
99 9A 
A? AA 
B9 BA 
C9 CA 
D9 DA 
E9 EA 
F9 FA 


ーー ーー ーー — ーー ー~ — — ーー ーー ーー ーー ーー ーー ーー n Oi 


10 20 : 


横 の チェ ッ ク ・ 


この プ ブロック 全体 の 
チェ ッ ク ・ サ ム 


COGIT HA~. JR ユー ザー の 皆さん 頑張 っ て くだ さい (私 も JR ユー ザー で す ). 
私 も 作ろ うと 思っ て いま す が , 
Р.51 みな が なみ りょう こる ん の ファ ン が 多い で すね ー. 


ASIC モ ー ド に し , RUN し て や り ま す . あ 
と は 遊び 方 を 読ん で その と お り に 動作 すれ 
ば ブロ グラ ム の 入力 は 終わ り で す . tv. 
エラ ー が 発生 し た り , 暴走 し た り , 何 か お 
か し な 動作 を し た 場合 は , BASIC ブ ログ ラ 
ム を 見 直し . チェ ッ ク ・ サ ム を も う 一 度 確 
め て くだ た さい . 


CLEAR 
命令 に つい て 


チェ ッ ク サ ム ・ プ ログ ラム の 100 行 に は 
CLEAR 300, & H9FFF と いう 命令 が あり 
ます . この 命令 は BASIC イ ンタ ー ブ リ タ が 
動く と き に 使う メモ リ の 範囲 を 限定 する も 
DT, この 場合 . BASIC イ ンタ ー ブ プリ タ は 


_A000 番 地 よ り 後 の メモ リ は 使い ませ ん . 
この よう に 通常 は BASIC と マシ ン 語 の 領 
域 を は っ きり 分 け て 使い ます . BON・BON 
の 場合 は B000 以 降 が マシ ン 語 な の で , BA 
SIC の 領域 を 最大 に と る に は CLEAR 300, 
&HAFFF (U ZF の 10 行 参照 ) と し て . 
PUSET, 


" 完成 


以上 で プロ グラ ム の 入力 は 終わ り で す . 
プロ グラ ム を セー ブ し た テー プ は 大 事 に 保 
管 し て お きま し ょ よう. 

今回 . マシ ン 語 の 入力 に は 機械 語 モ ニタ 
の S コ マン ト を 使い まし た が . 実際 に は E 
コマ ント の 方 が 使い や すい と 思い ます . ユ 
ー ザ ー ズ ・ マ ニュ アル を 読ん で . こち ら も 
使っ て みて くだ さい. 

チェ ッ ク サ ム ・ ブ ログ ラム は BASIC の も 
の を 使い まし た が , РіО, 8459 B3, p 
180 に は も っ と 高速 で 動く マシ ン 語 の チェ ッ 
クサ ム ・ プ ログ ラム が 載っ て いま す . マシ 
ン 語 リス ト の 入力 方 法 が わか っ た ら , 次 回 
は この プロ グラ ム を 入力 し て 使い まし ょ う . 


PC-8001mkII&PC-8801] 用 チェ ッ ク サ ム ・ ブ ロク ラム 


100 REM #### PC-8ØØ1 mk2 & PC-BB の 1 CH 
ECK SUM #### 

110 CLEAR 30Q,&H9FFF:DIM SUM(15) 

120 DEF FNCH$ (E, P) =RIGHTS (STRINGS (Е, ' '@") 
*HEX$ (P) ,E) 

130 INPUT "Top address" ; S$: S=VAL ("&H" «LE 
FT$(S$,LEN(S$)—-1)+"@") 

140 INPUT "End address";E$:E=VAL ("&H"+E$ 


) 

150 FOR A=S TO E STEP 16:SUM=0@:IF RIGHTS 
(HEX$ (A) ,2) =RIGHT$ (HEX$ (5) *"Q",2) OR A=S 
THEN GOSUB 190 

160 Р%=ҒМСНФ (4,4) +" " | 

170 FOR 1=@ TO 15:0=РЕЕК (1+4) 1РФ=РФ+ҒМСН | 

$(2,D)«" "1+ SUM=SUM+D: SUM (1) =SUM (1) +D: NEX 

т 

180 P$=P$+": "+FNCHS (2, SUM) :GOSUB 250: МЕХ 

T:GOSUB 210: END 

190 IF A=S THEN 200 ELSE GOSUB 210 

200 P$-CHR$(13)*"Add ":FOR 1=@ TO 15:P$ 

=P%+"+"+HEX%(I)+" ":МЕХТ:Р%=Р®Ф+"5ит":ӨОТ 

0 230 | 


210 P$zSTRING$(57,"—-")1GOSUB 230 


220 P$z"Sum:":SUM-Q:FOR 1=0 TO 15:P$-P$« 
" "4FNCH$ (2, SUM (І) ) 1 SUM=SUM( I) *SUM: SUM (I 


)zQ:NEXT:P$zP$-" : "+FNCH$ (2, SUM) *CHR$ (10 
) *CHR$ (10) : 50М=0: GOTO 230 
230 PRINT P$:RETURN 


あっ そう を 
や っ だ こと が な い の で 作れ な い の で す . を うし た 
P.S.2 PiO10 月 号 の p.42 の 若 


いや ま び こ лл ЖИ t RR P.S.3 JR ユー ザー は JUFC に 入る っ きゃ な い ( 迎 夢 快 人 る ん 早く 返事 くだ E そう 
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リリ スト 1 BON・BON BASIC リ スト 


200 DEF USR-&HBA48: A=USR (の) 

210 FOR I=@ TO 1 の の の 』NEXT』GDSUB 410 

220 A=USR1 (0) : COLOR RND*6+1』CLS 

230 DEF USR=&HBBFD』 A=USR (0) :POKE &HE19 の 1 。 
@ 
24@ LOCATE 31,@:COLOR 6』PRINT "LEFT":LOC 
ATE 1,@:COLOR 5: РКІМТ "SCORE" 

250 LOCATE 14,0:COLOR 4:PRINT "Hi-SCORE" 
:LOCATE 36,0:COLOR 7』PRINT HEX$ (BA) 

260 LOCATE 7,0:PRINT " 0" LOCATE 23, 
@:PRINT USING "##HHH#"3HS*10 

270 DEF USR-&HBECD: A=USR (Ф) 
280 LOCATE 28,24:РКІМТ "UNITS 500"; 

290 FOR 1=@ TO 1 の の 』PSET(RND*6 さ 9。RND* 199) 
, 1:NEXT: CDLDR=( 1 。 RND*6+1 ) 

300 POKE &HE146,1:POKE &HE11F,255:POKE & 


16 CLEAR ,&HAFFF:DEFINT A-Z:GOSUB 620:HS8 
= の 

20 WIDTH 8@,25:CONSOLE ,,9,1:COLOR 6,0,0 
„ 7: SCREEN 0:GOSUB 410 

3e DEF USR1=&HBB49』 A=USR1 (0) : R=RND (- VAL ( 
RIGHT$(TIME$,2))) , 
46 LINE (@,@)— (639, 199) ,RND*6+1,B:L INE (44 
4.20) -(579,100) , RND*6*1,B 

50 LINE (9@, 3@)— (561,90) ,RND*6*1,B: DEF US 
R=&HBBD の 』 A-USR (RND*7) 

60 C-RND*6-*1:D-2INT (RND*4) +2+1:11МЕ (120, 3 
9)-(519,80) ,C, B: PAINT (320,60) ,D,C 

70 LOCATE 27,13:PRINT "HIT RETURN KEY TO 
START": DEF USR-&HBB89O0rA-USR(O) : 

8@ LOCATE 15,17:PRINT "BASE PONG MAI 
€ 2006 VEGA DAIL BON" 


0: NEXT 

460 BA-BA-1:RETURN 

470 IF (E AND 4)=4 THEN A$-"PERFEC 
T ! !":GOSUB 510: BA=BA+1 | 
480 M-PEEK(&HE108):POKE &HE108,M¥2 

490 SC-SC*1:IF SC>23 THEN SC=9 

500 FOR I-0 TO 2000:NEXT:DEF USR-ZK&HCO621 
A=USR (9) : GOTO 186 

510 COLOR RND*6&*1:FO0R J=@ TO 1000: МЕХТ:Е 
OR I=1 TO 3 

520 LOCATE 20-LEN(A$)/2,7:PRINT SPACES (1. 
EN(A$)):FOR J=@ TO 500: МЕХТ 

530 BEEP 1:LOCATE 20-LEN(A$)/2,7:PRINT ñ 
$: BEEP @:FOR J= の TO 500: МЕХТ: МЕХТ 

540 FOR I=@ TO 500:NEXT:RETURN 

550 FOR I=@ TO 500:NEXT:COLOR 7:LOCATE 3 


90 LOCATE 23,19:PRINT " —— BASE || HE147。 の 6,0:PRINT "o" - 
i м, x” 310 POKE &HE13E,244:POKE &HE13F,1:POKE & 560 A$="G AME OVE R":GOSUB 510 А 
100 LOCATE 25,20: РКІМТ " 1 4 1 4 MOV HE 1 48, の 570 FOR I=@ TO 5000: МЕХТ: 55=PEEK(&HE 1 3C) 
E165 1 T 320 DF= の 』 DEF USR=&HC1F 1: А=05К (ө) *FEEK (НЕ 1 3D) *256 : 
110 LOCATE 23,21:PRINT " "wes uf 330 E ビ =PEEK(&HE 1 47) 』 IF CA=6 THEN 470 IF SS<=HS THEN 20 
м y 340 IF (E AND 1) =1 THEN BA-zBA-1:DF-1 COLOR 4:LOCATE 11,18:PRINT "H I S 
120 LOCATE 23,221PRINT " ーー ニー テー 3506 IF (Е AND 4)=4 THEN IF DF= の THEN GOS F Еж! 
анну ar UB 449 FOR I=@ ТО S%@@@:NEXT:HS=SS:GOTO 20 
130 LOCATE 23,23:PRINT " SPACE M 3606 IF BA=0 THEN GOTO 559 d : 
ISBILE— 2 370 IF (E AND 2) =2 THEN SC=SC+1 ELSE 210 IF PEEK (&HB906€) 6 AND PEEK(&HC の の 9 ) =1 | 


ТНЕМ RETURN | 
A$="R"+CHR$ (13) +СНКФ (2) +CHR$ (9) : | 
WIDTH 40, 25:РКІМТ "2273" ü-h^*i9?. un | 3 
オフ コチ クタ “サイ " に | 
A=VARFTR (A$) +1: РОКЕ &HFO03,FEEK.(A):P 
HF O04, PEEK: (A+1) 

> POKE &HE6CE 。 1: МОМ: РОКЕ &HE6CE 。 9: КЕТО 


140 CULUR=(D。RND#7) 

150 IF INP(1) く >127 THEN 140 

160 POKE &HE198,&H1F:POKE &HE1 3C, O: POKE 

&HE13D, の 』 SC=0: BA=3 

170 WIDTH 40:0$-"S T A R T ! !"rGOSUB 51 
9 

180 EM=SC¥6+4: CA=SC MOD 6*1:1F CA=6 THEN 
EM=7:ñ$="** BONUS STAGE **":GOSUB 510 

190 POKE &HE105,CA:POKE &HE1906,EM:POKE $ 
HE107, EM 


380 GOTO 180 

390 WIDTH BQ:COLOR 7:END 

400 ° 

410 FOR I=@ TO 7:COLOR=(I,I):NEXT:COLOR= 
(6,7) 

420 FOR I-0 TO 23:POKE &HE120*I,0:NEXT 
430 RETURN 

440 FOR I=@ TO 5@@:NEXT:COLOR 2:LOCATE 1 
1:42 

456 PRINT "== NO UNIT ==":FOR I=@ TO 200 


pio 


リリ スト 2 BON・BON マシ ン 語 リス ト 


20 E1 ө 28 06 23 10 F7 :54 


р 3 ~A, PC-6001 買 っ て 1 年 に な る の に プロ グラ ム す ら 作 れ な い / (ES と ころ で , お ら も 最近 や っ と 運 が 向い て きた . 9 月 号 の p. 
50, 10 月 号 と PiO PiO に 載っ た (イラ スト は な ぜ か ボツ だ っ た が …) / 話 は 変わ っ て , ぼく は 迎 夢 快 人 きん の ファ ン で す . きっ と その うち JR- 
100 を 買っ て JUFC に 入り ます ( ま 一 1 年 は アト だ な …). だ か ら , その と きま て 僕 を みす て な いで ネ / P.S.1 ЧН eii f H &PC-6001 
最高 / P.S.2 だ れ か PC-6001 に ザ が ・ コ ッ ク ピ ッ ト 名 走れ ノ ス カ イラ イン 移植 し て くれ 一 . | рб 
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リス ト 2 BON・BON マシ ン 語 リス ト 
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リラ ー」 観 覧 希望 者 に は , 抽選 で 入場 券 ( ペ 
ア 券 ) を お 送り し ます . 官製 は が き で 下記 
まで お 申し 込み くだ さい . 
《 申 し 込み 先 》 
#%]00 千代 田 区 有楽 町 1-9-3 

ニッ ポン 放送 営業 促進 部 映画 


キャ ノン 販売 で は アッ プル IIc の 発売 を 
記念 し , 新 感覚 派 映像 作家 の 手塚 真 氏 を コ 
ーー ディオ ホー タデ に 務 え 1 月 は まり F a: 
ャ ノン 販売 が 贈る アッ プル コ ユ コンピュー タス 
ペ シ ャ ル 一 神出鬼没 映画 祭 一 」 を 主催 し 
ます . まだ , 司会 ・ 進 行 役 は 声優 の 小山 菜 
美 る さん が あたり ます . 

さらに, 神出鬼没 映画 祭 フ ィ ナ ー レ の 「 ス 


神出鬼没 映画 祭 


シネ マテ ン (AER) 


スケ ジュ ー ル 予定 


中 野 文化 セン ター (中 野 ) 

"ウォー ター シ ョ ッ プ ダウ ン の うさ ぎ た ち " 
本 多 劇 場 (下北 沢 ) 

“ウェ スト サイ ドス トー リー" 

シネ マテ ン (ЖЖЖ) 

"過去 を 持つ 愛情 ”" 


icr i-re 
"スリラー" 


“エイ ジア in エイ ジア " 


| 1 月 7 日 ( 水 ) | >: 
22:00 開 映 “ ジ ギ ー ス ター ダス ト ”" 
=»! МАТОВ (+) ヤマ ハ ホ ー ル (銀座 ) 
“| 18:30 開 映 パリ の 恋人 " 
| 。| 11 月 16 日 (£) 日 経 ホ ー ル (大 手 町 ) 
"| 19:30 開 映 “オズ の 魔法 使い " 
11 月 17 日 ( 土 ) スタ ジオ ・ ア ル タ (新宿 ) 
14: 30 開 映 "ak Bk a8 ШУ” 
11 月 19 日 (B) 中 央 会 館 ホ ー ル (東銀座 ) @ 
18:30888 “未知 と の 遭遇 " (特別 編 )" 
-11 月 28 日 (Ж) AER (大 手 町 ) 
18 :30 開 映 “ジョー 
7| 11 月 29 日 (Ж) シネ マテ ン (ЖЖЖ) 
^| 22:00 開 映 “野性 の 蘭 " 
a 2 月 1 日 (+) - 
~a! 12 月 4 日 (X) 
| 12 月 5 日 (Ж) 
| 22:00 開 映 
| 12 有 16 日 (B) 
15:30 開 映 
19:00898. 
Он, 手塚 真 ・ 小 山菜 美 が 出席 し ます (予定 ) 
開場 は , 30 一 40 分 前 の 予定 と な っ て お り ま す . 


(映画 マク ロス の エキ セ ド ル の 上 顔 を 見 て あせ り ま くっ た 大 怪獣 ) > 


は tr v * 1 > + <% 
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котят, ^. 
デー タダ ショ ウ 開 催 

デー タ シ ョ ウ '84 が 9 月 26 日 ( 水 ) か ら 29 日 
( 土 ) ま で の 4 НА, 東京 ・ 晴 海 展示 場 で 開 
催さ れ ま し た -. | 


デー タ シ ョ ツウ は 毎年 秋 の 情報 処理 月 間 に 
行なわ れ て いる コン ピュ ー タ お よび 関連 機 
器 を 展示 ・ 実 演 す る ショ ウ で す . 春 に 開催 
る れる マイ コン ショ ウ や ビジ ネス ショ ツウ と 
Ж, この ショ ウ で は ビジ ネス 向け の 製品 
が 主体 で ある の が 特徴 で す . 16 ビ ッ ト ・ ズ パパ 
ソコ ン の ほか , ワー プロ な どの OA 機 器 が 
多数 展示 る され, 多く の ビジ ネス マン で に き ぎ き 
わい まし だ 。 

ih. УУЛУ О? — xC y hE 
し ん だ I(EN, ポケ ュ コン の 新 製 品 を 手 に 
取っ て 試し だ たり し て いる マイ コン ・ フ ァ ン 
の 次 も 見 られ まし た . 会 期中 に は 10 万 人 以 
上 の 見 学者 が 会 場 を 訪れ , 盛況 の うち に 幕 
を 閉じ た 今年 の デー タ シ ョ ウ で し た . 


ロー ドラ ン ナ ー が 発売 され た 頃 か ら で し 
ょ うか . よく 考え な けれ ば 面 を クリ ア で き 
な い ゲ ー ム が 市 場 に た くさ ん 出 回 わ る よう 
に な っ た の は . それ まで に も これ に 似 た よ 
うな も の が な か っ た わけ で は な い の で す が , 
考え れ ば 有利 に な る と いう だ け で , 考え な 
けれ ば クリ ア で き な い と いう も の で は あり 
EATUS: 

РіО で は この よう に , よく 考え な けれ ば 
クリ ア で き な い (解け な い ) ゲー ム を パ バズ 
ル ・ ゲ ー ム と 呼ん で いま す . パズル ・ ゲ ー 
ム を 作る と き に は , これ と いっ た 決ま っ た 
テク ニッ ク が な いい ので, 今月 は その バズ ル ・ 


ゲー ム を 発想 する ヒン ト み た いな も の を 考え 
て みよ うと 思い ます . 


安直 に パズル ・ ゲ ー ム を 考え る な ら , 既 存 
の パズル を その まま シミ ュ レ ー ト する の が 
いい で し ょ う .。 と 言っ て も 何で も か ん で も 
と やう わけ に は いき ませ ん | 

ズル に も いろ いろ あっ て , “決め られ 
た 数 の マッ チ 棒 で 四角 形 を で きる だ け 多 く 作 
5" と いっ だ も の で は , わざ わざ パッ ンコ ユン 
で シミ ュ レ ー ト する 必要 は あり ませ ん . で 
ТА РАР АЫ Ы а 2. k taya 
る と ,“ お も ちゃ 屋 る さん に ある も の " と 言う 
だ ので" き ます 。 

お も ちゃ 屋 る ん に は , ジグ ソー パズル や 
スク エア ・ バ パズル の 他 ,。 新作 の パズル な ど 
いろ いろ あり ます . これ ら は 絵 や 動き を 楽 
し め る も の が 多く , パパ ソン コン 向け だ と 思い 
iT. まだ た だ, パズル その も の で な く て も , 
以前 あっ た “チク タク ”" の よう な お も ちゃ 
な ども 大 い に 参 考 に な る は ず で す . 


シン キン グラ ビッ ト の “倉庫 番 " と いう 

ゲー ム が 大 ヒッ ト じ まし だ た ね.。 あれ は 2 パン コ 
xB i E られ か た 2 パス ルル で :。 ЭЕ ШОРТ? УУ 
ント So Ж жй ЧА: Ма Др. Ж чш УЙ 


QUE LE A Sir mH EO» LÀ. 
新しい パズル を 考え ん る の も いい と 思い ます . 
ッ * ズ ル を 考え 出す こと 自体 が パズル みた だい 
で 面白 い の で は な いで し ょ うか .. 

> パソ コン で パズル を 作る 場合 は 。 ブロ ッ 

пн, P7, 部 屋 自体 な ど を 動か す 対 象 
に し て , その 動き の ルー ル を 考え て や る と 

GEMUCST. を し て 。 1 つづ の 動き 
が 単純 で も , 複数 の も の を 互い に 動か す と 
意外 と 難し い パ ズル に な り ま す . 


パズル の 中 に 住人 \!? 


と りあ え ぇ え ず 。 ノ パソ ンコ ン 用 に パパ ズル を 考え 
Ju U あの bt だ けけ で は る き ラー の タ も の 胡 
な い 気 が し ませ ん か ? 何 か チ ョ コマ カ 動 
くも の が 。 パン ソン コン らし 人 訪 を 出す だ た め に も 
ほし いで すね . 

を そこで, パズル の 中 に 住人 を 住ま わせ る 
わけ で す .。 id, パズル を する 人 (ブレイ 
ヤー) を 何 か か わい い キ ャ ラク タ で 作っ て 
әр, 次 に それ を 邪魔 する 敵 き ん を 適当 な 
アル ギリ ズム で 動く よう に し て 入れ て や り 
ЖУ... 

こん な 要素 が 含ま れ だ ゲーム が dB ソフ 
ト の “フラ ッ ピ ー" で す . この よう に すれ (ば, rfi 
白き が 何 倍 に も ふく れ 上 が り ま す . 


タン ダム ウス 信 区 1 の ゲー ム で | チェン 
ジャ ー” と いう の が あり ます . この ゲー ム 
も や は り パ ズル ・ ゲ ー ム で す が 。 他 と 違う 
と ころ が 敵 る ん も プレ イヤ ー と 同じ よう に 
バ パターン を 変え て し まう と ころ み 。 これ など 
ょ アイ デア 賞 も の で , 敵 自 体 も 動く パズル 
ば が らち も まっ て で る わり で す 。 


みん な で パ ズ 2 う 1 


2*3)v cus ム を 作っ た だ たら 。, 画面 エディ 
タ も 一 緒 に 作っ て や り ま し ょ う . と いう の 
は , だ いて い の 場 合 パ ズル ・ ゲ ー ム で , 面 
の 構成 が 面白 $ を 左右 きせ る か が から で す . € 
LC, そう いう ゲー ム に は いろ いろ な 面 が 
考え られ , これ が 多い と いう こと も 面妖 き 
ンチ が な の すり ます : 

を そこで , だ くさ きん の 面 を 考え て や る わけ 
で す が , これ が 意外 と 地味 で 大 変 な 作業 で 
4. こん な と き に ,。 エディ イタ を 作っ て 友達 
に あげれ ば , その 人 は 面白 が っ て 1 つく ら 
い 新 し い 面 を 作っ て くれ る に 違い な いと い 
うわ け で す . 多少 あま い 考 え で す が , Au 
に 1 人 で 面 を 作る の は 大 変 な の で す よ . 

を それ で は 楽し い パ ダズル ・ ゲ ー ム の ご 投稿 
を お 待ち し て ます . 


PC-BOOO 


N-BASIC+ マ シン 語 


Double De 


画 村 田 仁 志 


西暦 2000 年 , 我々 に 対し て 敵 宇 宙 人 は ま 
た も や 攻撃 を し か け て きた . 早速 コス モ ・ 
TTA ee RT TEES LISSE 再 
U “ダブ ル ・ デ ン シ テ ィ ” で の 戦い が 始め 
られ た . と いう わけ で , L3 か ら PC へ の 移 
植 版 で す . 

ШУР УЛ イン フォ メー ショ ン 


(| 単なる 移植 な の で イマ イチ . 今度 


IF | は 頑張 っ て , ぜひ オリ ジ ナ ル を 作 
||] っ て (だ さい . A AA 


I/O 83 年 5 月 号 の "Double Density" を 
PC に 移植 し まし た . 

L3 版 と 同じ く ,. ひ だ すら ハイ ・ ス コア を 
伸ばし て いく の で す が 。,。 原作 を や っ た こ 
が な い の で , 自分 が な り に 作っ て み ま し た 。 

この プロ グラ ム は , BASIC と マシ ン 語 
書か れ て いま す が , ゲー ム 本 体 は マシ ン 語 
で 行なっ て いま す . 

プロ グラ ム を 解析 する と き に は , 381 ~ 
3 を 参考 に し て くだ さん 


id, BASIC 部 を 間違い な 〈 入力 し , v 
ー ブ し ます . 次 に マシ ン 語 部 (DOO0H—E 
79FH) . を 入力 し , チェ ッ ク ・ サ ム で 確認 し , 
間違い な けれ ば セー ブ し て くだ る 


この ゲー ム は や り 過 ぎる と ひら 目 に な る ぞ !? 


SCORE LEFF SEENE 
E8058 2 


ООШ Е DENGETY 


リー ズ +PCG 


ダブ ル ・ デ ン シ テ ィ 


nsity 


プロ グラ ム を 走ら せる と , 
明 が 出 ま す . £42» G “AMA”, “NOR”, 
“PRO" と レベ ル を 聞い て く экы, 自分 に 
合っ た 番号 を 押し て くだ るい. 入力 する と 
ゲー ムカ 始ま ke 
eni. 

シッ プ ' は [1 | と [5| で 上 下 に 動き , 
は [Z| と |X| で 左右 に 発射 し ます . 

初め の うち は , めちゃ くち ゃ に 撃っ て も 
мо ер", 少 だ で な っ ら で て る を 
な か だ な か > 当 だ P T それ に 3。 4 
飛ん で 来 だ た とき は , 前 か ら 狙 わな いて 逃げ 
E 
ぃ いと 思い ます 。 シッ グ は 進む に つれ て どん 
どん 増え ます が 。 か な り 貞 し くく なり ま す . 


ビー ム 


初め て の マシ ン 語 プロ グラ ム で 。 それ に 
半年 も か け て 作っ だ た ので,。 ひど い プ ブロ グラ 


し っ か り 動 《 の て 遊 
音楽 は PiO パ ー ツ (6 


ム に な っ て いま す が 。 
ん で みて くだ る さい 。 


H9) を 使わ せ で を る らい ま も な 。 ЭЖЕШ 
を 使わ せ て べべ れ な た 畠山 君 , Thank you. 
参考 文献 

1) 藤原 至誠 “Double Density”, I/O, '83 
年 5 月 号 

2) 湯川 伸彦 : “PCG オ プシ ョ ン ”", マイ コン 
ゲー ム の 本 [1| 

3) 河野 義宣 “ASTEROID WARS", テク 
ノ ポ リス , '834F 8 Н >, 徳間 書店 


BCORE 
000310 


3 
«^ 


ЕЕЕ 


DOUBLE DENSITY 


キー イン (シッ プ , 


コン ボ イ 移 動 
敵 攻 撃 (決定 , 移動 ) 


乱数 


敵 ミ サイ ル (決定 , 移動 ) 
星 移動 
10 進 出力 サ プ 


ビー ム が 英 に 当たっ た か の 判定 


ビー ム が ミサ イル に 当たっ た か の 判定 


シッ プ 爆 発 の 判定 
メイ ン 

ー 面 終了 の 決定 
クロ ッ ク 

爆発 処理 

初期 設定 

初期 画面 

ミュ ー ジ ッ ク 
文字 表示 
PCG デ ー タ 転送 


Er 
eoa —— 


E01C~E01D 


E0E1—E0E2 
E0E3—E0E9 
E0EA~E0EB 


7.0 s G 1) A 


シッ プ 

ビー ム 
"PELLE 
敵 攻 撃 決定 フラ グ 
音 出し カウ ンタ 
乱数 
コン ボ イ フ ラグ 群 
敵 攻 撃 フ ラグ 群 
面 数 

ミサ イル フラ グ 群 
星 カ ウン タ 

スコ ア 
残り の シッ プ 
カウ ンタ 
サブ 呼び 出し カウ ンタ 
一 面 終 了 カ ウン タ 
残り の 敵 と フラ グ 
カウ ンタ 

シッ プ 爆 発 

カウ ンタ 

ハイ ・ ス コア 


デー タク. エエ リア 


FLY デ ー タ 
ET? 
初期 設定 デー タ 
初期 設定 デー タ 


ぐー サック デー タ 
文字 デー タ 
文字 デー タ 
和 キャラ クタ ャ デー タ 


SCENE 
3 61-1 


ビー ム 移 動 ) 


100 CLEAR さ の の 。 &HCFFF 

110 MIDTH4 の 。 25: CONSOLEQ 。 25 。 の 。 1 

120 DEFUSR=&HDFC1 : DEFUSR 1 =&HE3CD : DEFUSR2 
=wHE さ F 4 

130 PUKE&HE の FE ,@: PUKE&HE の FF , Ø 

140 OUT15, 54: А=05К2 (0) 


150 COLOR7,0,0: PRINTCHR$ (12) : A=USR1 (0) 
160 COLOR4: LOCATE1S, 4: PR INT " エ カ ス ャ ае" 
170 СО ОК2:1 ОСАТЕ 10,6: РКІМТ"х T "; : СООК 
ZIPRINT 10 Ky. S" 

180 COLORS:LOCATE10,8:PRINT"Z 3 ";:COLOR 
7:PRINT" 30 トナ я 80 hr" 

190 COLOR6: ОСАТЕ 10, 1б: РКІМТ"ж Y ";:COLO 
R7:PRINT" 5Ø トナ л" 

200 LOCATE21,7:PRINT"Z":LOCATE21,9:PRINT 
"я": COLORI 

210 LOCATE13,12:PRINT"49*7 ュ シ オ ェ サー カオ " 

220 COLOR7:LOCATE24,13:PRINT"" 


っ て だ り … 腹 た ち ま す よね , あー いう の 見 る と . 
の メメ メシ ー ン で カメ ラ の 音 が 鳴り , RA y LALO, 
か くく の シ ー ン だ っ だ の に …。 


| リリ スト 1 Double Density BASIC リ スト 


25@ COLOR2:LOCATE12,14: PRINT"5?*41I";:COLO 
R7:PRINT" zii 

240 LOCATE11,15: PRINT""$: : COLORS: PRINT" 
"ss COLOR7: PRINT"" 

250 | ОСАТЕ10, 12: РКІМТ"Л2ХЕ ";:COLORS:PRI 
NT" "; COLOR7 

260 LOCATE11,17:PRINT" 1 

270 LOCATE19,18:PRINT"" 

280 し = リィ エイ ニキ シコ ッ 1":GOSUB290:L$-2"377-tT22 
y 2": GUSGUB2 つ 9 の: し =" キキ ケ カ = ニキ コッ 3":GOSUB290:G 
DT0280 š 

290 COLORA:LOCATE11,23: PRINT " ウ ャ ス ャ ウ ";:;СО 
LOR6: PRINTL$:FORI-QTO120: GUSUB3 の の : NEXT:R 
ETURN 

300 I$-INKEY$: IFI$2"1"THENL-AQELSEIFIS$-z" 
2"THENL-20ELSEIFI$-'"S"THENL-SELSERETURN 
310 POKE&HDD42,L: COLOR7,0,0: PRINTCHR$ (12 


320 HS-PEEK (&HEQFF ) *2564*PEEK (&HE の FE 〉 

330 LOCATE3, 2:PRINTUSING"#####0" ; HS: LOCA 
TE35,2:PRINT"7"; I$: A-USR (0) 

340 SC-PEEK (&HEQDF ) *255*PEEK (kHEODE) 

350 IFSC^HSTHENZ&OELSE370 

360 H=PEEK(&HE の DE ) : 5=РЕЕК (&HEQDF ) : POKE&H 
E の FE ,H: PUKE&HE の FF , S 

370 COLORé:LOCATE12,10:PRINT" ョ イエ ャ カス ャ ケリ 


380 ҒОКІ=0702000: NEXT: GOTO1 50 
390.” 

400 ' Double Density 

410 ' For PC-8001 + PCG-8100 
420 '84,8,26 By H.Murata 
430 Machine DOOQ-E79F 


p 10 月 号 p.114 の まさ か の 大 怪獣 さん ノ 僕 も マク ロス 見 に 行き まし た . 開門 1 時間 前 に 行っ た ら 。 もう 10 一 20 人 いま し た . 中 に は カメ ラ を 持 


それ に シャ ッ タ ダー 押す 場面 どっ て 決ま っ て ん だ か ら グ で , ここ か ら な ん で すす . あの ミン メイ 
そう で す , 誰か が フラ ッシュ だ い だ ん で す . 真っ 哲 で 見 えん か っ だ …' せ , せっ . 


(2 nd T.b の CAT'S・ICE) 


оо 


リス ト 2 Double Density マシ ン 語 リス ト 


51 


9i0 


リスト 2 Double Density マシ ン 語 リス ト 


ЕЕ =p p s ーーーーーーーーーーーーーーーーーーーーーー デ ーーーーーーーー テ ーー デーー 
س س‎ — — — — — — — — — — — — — sS 4 


————— — — — — — — — — — — — — — — — — — —À — — — — — — — — — — — — — — — — — —— — — — — — ——À——À —À—À— —À — 


PiO10 月 号 の ご めん な さい PiO11 月 号 の ご めん な さい 
オリ ン ピ ッ ク ゲ ー ム p.166 


ダイ レク ト 入 力 する 文字 変数 の VER リス ト が ぬけ て いま し た . PC-1350 の 解析 p.168 


| 表 2 に お なお いて, アド レス が 違っ て いま し た . E 
Ë し い 表 を 載せ て お きま す . 


= 有 HDLES 表 2 画面 エリ ア ・ ア ドレ ス 
= ñ アド レス エリ ア 番 号 アド レス 


LISTY 
жаз VAR LIST 


2 7000—701D 741E—743B 
YRR: 46 PRO: 1528 7040—705D 745E~747B 
701E~703B 7600~761D 

A$ =JHVELIN 705E~707B 7640~765D 
B£ де THPOH 7200—721D 761E—763B 
d Р 7240—7250 765E—767B 

L 721E—723B 7800—781D 
zB = 725E~727B 7840~785D 


y 7400~741D 781E~783B 
E$ =FINE ! 7440~745D 785E~787E 


(°) 0) 近ごろ プロ グラ ミン グ を し て いる と いき づま り ま す . 私 が BASIC し か 知ら な いか らい け な い の だ が , スピ ー ド の 遅 き に は ほとほと 上 弥 っ て い 
QA QA i. 自 機種 は FM-NEW7 で す . Р.5.1 友だち は PC-8801mkII モ デル 30 を 買い , また 別 の 友だち は MZ-1500 を 買い ます . СЬ, 僕 は FM 最高 

だ と 思っ て お りや す . Р.5.2 FLAPPY の 200 面 が や っ と 解け まし ただ. まあ X1 ユ ー ザ ー 三 好 に 助け て も らい まし た が (だ が 。 僕 だ っ て 半分 
S2 ©; ` 以上 は 解い た ぞ )、. (遠山 の 銀 さ きん) 


j 


PC-BOOO» 


Neo-BASIC+ マ シン 語 


夏 の 夜 , 部 屋 の 中 を 飛び 回 る 典 , か , 7). 
パソ ン ソン コン を 目 の 前 に し て プロ グラ ミン グ し 
て いる と き に , 耳元 へ 近づか れ た り し た ら 
た まっ た も ん じゃ ご ざい ませ ん . 

この 由 の バケ モノ KANS を や っ つけ る の 
が この ゲー ム で す . 
онг: イン フォ メー ショ ン 


。 j 政 を 手 で 挟む と いう アイ デア が 非 
| 常に いい . あと も う 少 し 変化 が あ 
| っ て , 完成 度 が 高けれ ば “PiO な 

| ゲー ム " に な っ た だ ろう な . (A) 


リス ト ど お り 入 力 し て くれ れ ば 結構 で す . 


だ だ し マシ ン 語 の D600H 一 D800H まで は 
RI じ な て を 構い ませ ん (と いう より 大 
方 で きい ん た で すね : (まく UR 知り ませ ん 
ESE 


16K で も 動き ます . これ は 16K で も 走る 
も の を 作る と いう 目的 で 始め た だ たから で て です. 
プロ グラ ム の 前 半 は どの プロ グラ ム で も 
使う も の , 後半 に いく ほど この ゲー ム に 関 
連 す る プロ グラ ム で す . 

神経 質 に スタ ッ ク を 使っ て いる の は , バ 
グ が 出る と すぐ で ぐ スタック の せい に する か ら 
T3. 


16K で ペー ジ 数 を 2 と 指定 し て くだ る さい. 
BASIC 部 を 読み 込み 。 RUN す る と マシ ン 
語 を ロー ド し て , ゲ ー ム が 始ま る は ず で す . 


わく の 中 で 飛び 回 る KANS を 手 で は きみ , 
わく 内 を は ね 回 る ボー ル で つぶ す ゲ ー ム で 


リー ズ 


表 1 


手 の ス ピー ド 
ボー ル の スピ ー ド 
HREF 

ボー ル の 最大 出現 数 


※ そ の 他 は BASIC で 設定 し て いる 
避 を 捕まえ た と ころ . この まま つぶ し た い が … 


四 の や っ つけ 方 と や られ る 場合 


こん な 場合 は 手 が 
OO 


SL 
e 


す (В). 

1 匹 や っ つけ る と ボー ル が 1 つ 増 える 可能 
性 が あり ます (前 の ボー ル と 重なる 場合 が 
ある ). 

手 が ボ ー ル と ぶつ か る か , KANS に 手 の 
甲 を 食わ れる と や られ ます . 手のひら は 食 
われ ませ ん . KANS は 1 面 で 8 匹 い ます . 全 
部 や っ つけ る と 1 面 終了 で , この と き 出 現 
し て いる ボー ル 数 ※500 点 の ボー ナス が 出 ま 
+. な お , KANS は 1 匹 30 点 で す . 

KANS た だ たち を 一 度 に 数 匹 殺 すこ と が で き 
ます か が, 掛け 算 で 処理 し て いる だ め ,3 匹 以 
上 は 比例 し た 点数 が 入り ませ ん . 

3, 000 点 以上 と る と 手 が 1 つ 増え ます . 


Kans Hold Ball 


カン ス ・ ホ ー ル ド ・ ボ ー ル 


掛け 算 
乱数 
表示 

ブロ ッ ク (GD) 
左手 GD 
右手 GD 
097171 GD 
45472 GD 
RAM 計 算 
壁 を 描く 
Ж 初期 1 
w 表示 

クリ ア GD 
クリ ア ・ ル ー チ ン 
両手 初期 
gra à 
E) HA 2 
зап? 
Wy 5 +L7- 0" ? 
手 移動 
手 表示 
は さま れ た か 

ボー ル 移 動 
人 に 当たっ た か ? 

エイ リア ン に 当たっ た か ? 
ボー ル 出 現 

ボー ル (GD) 

ボー ル 初 期 

スコ ア 表示 

10 進 加算 

スコ ア > ト ッ プ か ? 
メイ ン ・ ル ー チ ン 

台 増 える 
各 サ ウン ド 
KANS ワー ク 
ボー ル ・ ワ ー ク 


手 の 操作 法 は , カー ソル ・ キ ー 宮 各 方 向 , 
[SHIFT] キー で 手 を 開き , [SPACE] キー で 手 
を 閉じ ます . 間 に KANS が いて も 手 が 閉 ま 
る の で 注意 し て くだ さき さい. また だ , 両手 が ひ 
っ くり 返っ だ と き は , どちら か の 端 に よっ 
TCR ELS 


キャ ラク タ 数 も 少な く С, ゲー ム が 単調 な 
の で すぐ 飽き る か も し れ ま せん が , 遊ん で 


や っ て くだ さい . その 代わ り と て も 難し い ゲ 
ー ム で す . 慣れ な く て は トッ プ は と れ ま せ 
A. 難し すぎ る と いう 人 は 変更 点 を 書き 換 
A CRTE ЧУ. 

最近 ゲー ム ば っ か り し て いて BASIC + 
ら 知ら な いと いう 人 が いま すね . iu x4 


S3 


piO 


年 目 に し て や っ と 今年 の 春 , 中 古 の PC-6001 
(320) 2 万 円 で 買い まし た 。 マネ コン 
は 自分 の 思い どおり に 動い ひ て も ら っ だ た とき 
が 一 番 感動 する し, マシ ン 語 単位 な ら ゲ ー 
APEEF タタ 次 も 4 Р k. 

ハン ド ・ ア セン プル だ し , フロー チャ ー 
ト も 書か ず , 


REM2t3 3 3 3c c 3€ 3c € Je 3c e 3 3€ € 3€ 3€ € 3€ 3€ 


1 

2 REM* KANS HOLD BALL * 
ӘКЕМЕ 1904.9. 9 » 4 
4 
5 


REMX Ву Т. YAMAMOTO * 

REM? 3t 3 3c 3 3c 3e 3c C J- ЗЕ 3 3€ 3 3€ ЭЕ ЗЕ Je ЗЕ ЗЕ 

RESTORE 550: Б050В 500 

10 SCREEN 3,2,2: COLOR ,2,2: CLS8:C 

ONSOLE,,,0 

20 EXEC&HD140: KD-z&HD4A9: POKEKD , Ø 

:EXEC&HDAAO: POKE&HD214,7:F1 

30 LOCATE 5,9: COLOR 1:PRINT"KANS 
HOLD": LOCATE6, 6: COLOR 3:PRINT" 

BALL." 

40 LOCATE1,10: COLOR 4: PRINT"Push 
[yl key!'" 

20 RESTORE 450: Б050В 400 

60 A$-INKEYS$:1IF A$="y" THEN 100 

70 GOTO 60 

90 REM?d 333 3 M € 4 4€ € X ЭЕ 4 € € C € 

100 SC-&HDA3SQ:FOR I=@ TO 2: РОКЕ 

SC*I,0: NEXT: POKE&HDBOO , 0: POKES&HD 

АЗЕ ,5 

110 POKEKD,8:REM-----------—---- 

120 SCREEN ,2,2:CLS: А=РЕЕК (KD) :Р 

OKEKD ,0: EXEC&HD2CO: EXEC&HDAAO 

130 LOCATE 5,10: COLOR 3:PRINT"Ra 

Qy t tP 

140 RESTORE 460:GOSUB 400 

150 LOCATE 5,10: COLOR 2:PRINT"Ra 


`0 


DØD: B7 
D の の 98: に 1 
р010:Е5 
00218:Ар 
DØ20: C9? 
DØ28: C4 
DQ30:ES 
DØZ8: 21 
DO40:16 
D048: D9 
D の 5 の : CS 
D の Si DD 
D の 6 の : の の 
DØ68: DD 
D の 7 の : 33 
D078: 22 


D の 8 の : 57 
DO の 88i 73 
разе: DS 
DQ9?8: CD 
D の QA の: 45 
D の ABiF6 
рово: SE 
DOB8: 55 
ресе: 45 
DOC8:F6 
DADO: SE 
DOD8: 55 
DØEO: CS 
DOES: C1 
DØFØ: DD 
DØF8: 20 


Sum: CB 


D 1 の の : 30 
D108: CD 
D1 1 の : の 1 
D118:26 
D120: DØ 
D128:CD 
D130:CD 
Di 38: 05 
D140: 21 
D148: の の 
D150:C9 
D158:10 
D160: 10 
D168:01 
D170:05 


は 変換 表 を 見 な が ら ダ イレ クト 入力 し だ た た だ 
b, ムダ ダ が あり ます よ . 参考 に し な い ほ う が 
いい で すす よ 。 この 《 6 らい の ゲー ム なら, 3 
wu ОХЕ АЛС, FID, 

今度 は , 6502 か 6809 の パー ユン を お 人 金 が 
だ まり 次 第 買い だ た いと 思い ます (も ちろ ん 
中 古 . か た の 古い も の の 方 が 安い し な アァ ). 


dy!'":POKE KD; A 

160 EXEC&HDAAO 

170 А=РЕЕК (ED) z IF QA= THEN 300 
180 RESTORE 470: GOSUB 400 

190 М=РЕЕК (&HDA3F):NzN-1: POKE&HD 
3F,N:IF N-Q THEN 210 

200 GOTO 120 

210 LOCATE 3,10:COLOR 1: РКІМТ "ВА 

ME OVER” 

220 RESTORE 490: 50508 400 

230 GOTO 10 

300 EXECšHDB20:LOCATES, 10: COLOR 
1: PFRINT"Bonuse" 

310 RESTORE 480: GOSUE 400 

320 EXEC&HD140:POKEKD,8:PxP*1:IF 
P5 THEN FOKE&HD214,3 

330 GOTO 120 

400 READ A$,B$:PLAY A$,B$:FO0R Im 

の TO 1000: NEXT:FOR I=@ TO 6』 SOUN 
DI, Ø 

410 NEXT:RETURN 

450 DATA "viS110t200o4cdedcdedcd 
efggg","v1407110t200cdcdcdcdcdgd 
ccc" 

460 DATA "ao4cceefgccffeeaaccbecc 


465 DATA "o7cdfecdfecdfeccfecccc 


470 DATA"o3ccdffddcegecdccc","02 


参考 文献 
"Z80 命 令 表 "。 І/О, "81 年 4 H 5 


リス ト 1 Kans Hold Ball BASIC リ スト me 


ccdffddcegecdccc" 

480 DATA"oScccceeegggffedceedcee 
dceeccecc" 

485 DATA"o8fedcfedcfedcccdcfedcf 
edcccdcdd" 

490 DATA"o4cdcdcdcdcdfgacddddd" 
495 DATA"oSccegccegcdcdcdegccc" 
500 REMd«333d 399 р 1 33 3 3 ЭЕ ЗЕ 4 4 4 9€ 
S10 GOSUESSQ 

920 EXEC£&HF87C:RETURN 

S30 FOR I-£&HF878 TO &HF8D1 

540 READ АФ: РОКЕІ, УА ("&H"*4$) :N 
EXT: RETURN 

550 DATA 1a,c3,06,1b,cd,9a,25,06 
;05,cd,70,1a,fe,af,20,f7,10,f7,2 
1,32 

っ 6 の DATA f8,06,06,cd,70,1a,77,23 
;10,f9,cd,06,1b,af ,52,38,f8,21,7 
6,29 

970 DATA cd,cf,30,21,36,f8,cd,cf 
;350,cd,7a,25,2a,32,f8,6d,4b,34,f 
8,1e,00 

580 DATA cd,70,1a,57,853,5f,72,23 
;,9b5,78,b1,20,f3,cd,70,1a,bb,ca,a 
а, іа 

390 DATA cd,aa,1a,21,85,035,c3,cf 
‚20 


Kans Hold Ball マシ ン 語 リス ト НЕ 


B7 28 14 の 1 FD:4C 


DS の の : CD 
D208: 10 
D210: 3A 
D218:FD 
220: 01 
D228: 56 
D230: CO 
D238: 02 
D240: CD 
D248: FE 
D250: D2 
D258: D2 
D260: 73 
D268: 02 
D270:21 
D278: DO 


D280: FD 
D288: 50 
D290: B7 
D298: 56 
D260: 02 
D2A8: DO 
р2во: C3 
D2B8:FF 
D2CØ: FD 
D2C8: 06 
р2ре: DD 


D2D8: 01 
DSE の i DD 
D2EBs 1 の 
D2F0:C9 
D2F8: 00 


D3 の の : 26 
D308: の の 
D310: S6 
D318: 52 
0520: А7 
D328:D2 
D330: 60 
D338:10 
340: 2А 
D348:C2 
D350: 32 
D358: の の 
D36 の :FD 


D380:CD 
D388: 00 
D390:D4 
D398:C4 
D3AQ: CB 
D348:90 
D3BQ:D4 
D3B8:FE 
DSCO: CA 
D3C8:ES 
DZDØ: CO 
D3D8: CD 
D3EQ: の の 
D3E8:A2 
SFO: D4 
D3F8: ØA 


D400: E1 
D408: の の 
D410:CD 
D418: RQ 
D420: 2A 
D428: A7 
D430: 1 


P825 DTD, C-64 は USA SOFT を どっ か の 会 社 が 輸入 し て さえ くれ れ ば ぱ , 完全 に ベス ト セ ラー 機種 に な る と 思い ます . 日 本 で は アッ 


価格 も 日 本 で は 9 万 円 代 た と . アッ プル より も 安い . コモ ドー ル さ ん , C-64 は FM-7 に も 負け な いで らい の いい 機種 で す .、 だから,、 も っ と C-64 を 


P.S. 日 本 の C-64 や 


EE 
* 
OO ee プル ソフ ト は すご いと 言わ れ て いま す が 。 その アッ プル ソフ ト よ り も 追 力 の ある ゲー ム が C-64 に は た くさ ん , 沢山 、TAKUSAN あ り ま すし . 


盛り 9 上 げ る よう に 努力 し て あげ て . そう すれ ば 我 が VIC も 少し は 盛り 上 が る か も … と 思っ て いる の は 僕 だ け だ ろう か . 


PiO 


| リスト 2 Kans Hold Ball マシ ン 語 リス ト 


D438: A2 さ D6E の : さ の 20 30 20 30 30 44 42:96 Sum: DS 
D440: 21 22 2 2 D6E8:46 38 20 20 3 の 20 Z0 50:7Е 
D448: D4 D6F の : 2 の 30 30 20 30 30 20 50:50 D980: OC 
D450: 21 22 ° D56F8:30 20 44 42 46 38 20 20:44 D988:33 3 
р458:01 2; š の: _ || ————— ħi D990:30 32 
D460: 21 22 Ж : Sum: FE D6 EQ D4 10 E? DE 10:68 D998:30 33 33 3 
D448: D4 7 DIAD: ØC 
D470: 21 2 22 D7 の の: うり の 20 30 30 20 3 の 30 20:50 D94A8: 00 
DA78:D4 = D708:20 50 20 30 20 30 30 44:84 0980: 5Е 
D710:42 46 38 20 30 30 20 50:50 D9B8: 23 
D718:30 20 30 30 20 3 の 50 20:50 D9CO:33 | 
D720:44 42 46 38 20 30 30 20:44 poca: の の 
D480: 21 pz 22 А: D728:30 30 20 30 30 20 30 30:60 D9DO: 21 
DA88:D4 3 D730:30 30 44 42 46 38 20 30:B4 D9D8: 07 
D490: 21 22 22 4 D738:30 20 30 30 20 さ の 30 20:50 D9EQ:21 
DA98:D4 3 р740:44 42 46 38 20 30 3 の 20:44 D9E8:07 
DAAQ:FF D748:30 この 20 30 30 30 30 44:84 D9FQ:21 
D4A8: の の 7 D750:42 46 38 20 30 30 20 50:90 D9F8:0Z 
DABA: 2А D758:20 20 44 42 46 38 20 20:44 
DAES8:01 2 3 D750:20 20 30 30 30 30 44 26:7A Sum: C4 
раса: 2А D768:68 96 20 30 42 46 31 44:4B 
DACS8: 01 ; x ; D770:30 3O 30 44 42 46 30 44:DØ радо: 21 
D4D0: C? . D778:20 30 Z0 64 62 66 Z0 64:50 DAQ8:21 
D4DB: の の OO 00 OO OO の の QQ 00:00 || ------------------------------- DA10: OC 
D4EQ: の 6 Sum: 84 66 24 SC 32 62 D5 2A:FD DA18: DD 
D4E8: 00 DA20: 02 
DAFQ:FD 2:7 D780:30 30 30 95 20 20 96 723:6F DA28:CD 
DAF8: CD D788:73 96 20 50 42 46 51 44:56 DA30: 00 
D790:30 30 30 44 42 46 30 44:DO DA38: 00 05:55 
D798:20 30 30 b4 62 66 20 64:50 DA4Q:FD 27:B4 
D7A の : さ の 30 30 96 20 20 96 73:6F DA48: FD 22 10: B2 
D5 の の : 19 と D748:73 78 20 44 42 46 58 29:2F DASQ:F2 00:99 
0508:ЕВ D7B の : さ の さ の 20 30 50 20 30 50:20 DA38: 00 
р510:21 ; : D7B8:20 30 20 20 ご の 30 20 20:50 DA60: 06 
D518:FD 2% D7C0:30 20 30 30 20 30 30 50:20 DA68: 21 
D520: の の D7C8:30 44 42 46 38 20 30 30:B4 DA70: の の 
D528: 3A 3 D7DO:20 30 30 20 30 SQ 20 50:50 DA78: D4 
D530:FD D7D8:30 20 30 30 20 30 26 68:8E 
D5:8:02 D7E の : 96 20 30 42 44 51 44 50:15 
D54 の : 28 っ 。 D7E8:30 30 44 42 46 30 44 30:DO 
D548: EE D7F0:30 ZØ 54 62 66 30 64 30:50 раво: の 6 
D550:E1 f D7F8:3Ø さ の 96 20 20 96 73 73:B2 DA88: 38 
D558:82 : Z [||] ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー DA?Ø: FD 
D560: CA Sum: CC 92 90 64 82 9F 4A 4D:ØA DA98: 00 
D568:7D радд: ср 
р570:СА DB の の :FF FF FF FF FF FF FF ЕЕ: ЕВ DAA8: CD 
D578:FD D808:FF FF FF FF FF FF FF FF:F8 раве: ра 3 
D81 の :C5 рр 21 の の DC DD 7E QQ:FA DAE8:D4 
D818:FE @Z 20 12 DD SE Qi DD:4D DACO: 78 
D820:56 02 EB FD SE の 1 FD 56』F2 DAC8: ØE 
D828:02 А7 ED 52 CC 40 D8 DD:A9 DADO: 30 
D830:23 DD 23 DD 23 10 DE C1:D2 DAD8: 60 
D8Z8:C? の の OO OO OO OO OO O0:C9 DAEQ: ZA 
D840: 3A AA D4 3C 52 AA D4 AF:53 DAE8: B7 
D848:DD 77 の の CD SD D8 ZA 09:79 DAF Ø: DB 
D850:D4 ZD 32 A? D4 CD CØ DB:28 DAF 8: 00 


D858:C? の の の の の の QQ QQ DD ES: 8E 
D860:FD ES CS FD 21 40 DC Q6:E7 
D868:09 FD 7E の の B7 20 1E FD:76 


D870:73 の 1 FD 72 02 FD 36 @@:18 DB00: の の 
D878:02 CD 30 рі B7 28 FA FD:A6 рвов: 3F 
D5D8:70 D3 24 の 8 D2 25 47 EDs の の  — || ------------------------------- DB10:32 
р5Е0: 52 ; Sum: 34 72 B 2F F8 5E の 5 E7:C7 DB18: 00 
DSE8:ED ; DE20: OE 
DSFQ:25 D880:77 05 CD 30 рі B7 28 ҒА:21 DE28: DD 
DSF8: C9 D888:FD 77 04 18 Q9 D5 11 05:84 DB3 の : の 5 
D890:Q00 FD 19 Di 10 D3 Ci FD:88 DE28: の の 
0898:Е1 DD El C9 の の の の QQ 00: 48 DE40: 02 
D8A0:56 95 5A AS bA A9 bA 89:F0 DBA48:F1 
DADA: FF D8A8:AA A2 BA А2 BA АА AE AA:64 DESO: 09 
D6 の 日 :FF DBB の :7Q A? 6B A9 5A AS 54 95:21 DES8: A1 
Dé12: 21 D8B8:FF FF FF FF FF FF FF FF:F8 DB6 の : D3 
D618:FF 3 5 3 D8CO:21 4 の DC の 6 50 AF 77 23』BC DB68: ZE 
D620:D3 C: ; D8C8:10 FC 21 40 DC 36 の 1 22:462 DB70: ЗЕ 
р628:ЕВ DBD の : 56 の 4 23 36 10 23 36 FF:FB DB78: ZE 
D630: 01 D8D8:22 CD 20 01 77 C9 QQ 00:51 
D638:01 DBEQ:FD ES DD ES D5 ES FD 7E:D9 
D64 の : の 1 DBEB: の の E6 ØF CD 10 D9 Ер 7E:2 
D648:16 93 DBF の :』 の の E6 F CB ЗЕ CB 3F CB:B5 DB80: E6 
D650: 01 D8F8:ZF CB ЗЕ CD 10 D9 FD 22:1F DB88: ZE 
D658:FF 26 ~ || ------------------------------- DB9Q:F1 
D66 の 』 рь Sum: 94 BC B4 68 2E 89 48 F2:60 DB98:FF 
D668: 39 DBAO: D9 
D67 の : 44 D9 の の : 10 E4 E1 рі DD El FD Е1:42 DBA8:FF 
D678: 20 D908:C9 の の OO OO の の OO の の QO:C9 рвво: 02 
D910:0E 07 CD 00 DO SF 16 00:27 ревв: рз 
Sum: 58 9 З D918:DD 21 30 D9 DD 19 ES 11:F7 DBCO: CS 
D920:07 の 1 CD 30 DO E1 25 C9:44 DBC8: DB 
D680:30 : ; D928: の の の の の の OO OO OO OO の の : の の рвре: рэ 


0588: の D930:5D 77 77 77 77 77 5D SD:6A DBD8:EE 
D690: Z9 D938:7D 5р 5р 5р 5р 7F 5р 77:44 DBEQ:F2 
D698: 20 D940:57 57 5р 75 7F 5D 77 57:24 DBE8: 20 
DAAD: っ | D948:5D 57 77 SD 75 75 77 77:60 рвғо: 20 
DAAB: ZØ : 0950:7Е 57 57 7F 75 7D 57 57:4C 
DABO: 30 D958:77 5D 5D 77 75 7D 77 77:88 
DABS: 42 D969: 5D 7F 77 57 5D 5р 5D SD:1E 
DACO: 59 D958:5D 77 77 5р 77 77 5р 50:50 
D&C8:z0 7 i D970:77 77 5F 57 77 5D 55 55: 
DADO: 46 D978:55 55 55 55 55 55 55 55: 


рьрв: 20 за 2 5 の 3 の 2 の 50:50 || ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 


VIC ユ ー ザ ー で も USA SOFT を 持っ て いる 人 が いる けど , どう や っ て 手 に 入れ だ の ? (PB&VIC USER) 


55 


吾 が 輩 の 飼っ て いる ヌー タ 君 は , 最近 
ちょ っ と 太り ぎみ . #2 СЕА (55 —– 5 
君 を スリ ム に させ る た め , ある 減量 作戦 を 
決行 する こと に し た の で す . 

それ は , 巨大 な ボー ル の 跳ね 回 っ て いる 
部 屋 に , ヌー タ 君 を 閉じ 込め て し まう 
ちょ っ と 危険 な 減量 作戦 な の で す . 

ST, その 戦果 は いか に … 

画 プ ログ ラム ・ イ ン フ ォ メ ーション 


2 (入力 時 は 1 ) 


| N60-BASIC 
| マシ ン 語 A000~B2DA 


| ゲー ム 自 体 は 単純 な の で す が , 完 
| ү (А) 


まず 。 ペー ジ 数 を 1 に し て , BASIC プ ロ 
グラ ム を 入力 ,。 モー ブ し て くだ さい 。 次 に 
マシ ン 語 を セ モ ニタ , PiDO モ ニタ な ど で 入 力 
し て BASIC プロ グラ ム の すぐ で 後に モー ブ 
LC а ha east 


E 


ペー ジ 数 は 2 C+. BASIC を ロー ド 後 。 
RUN す れ ば マシ ン 語 を 自動 的 に 読み 込ん 
で スタ ー ト し ます 。. 


遊び 方 


い だ っ て 簡単 で す . 3—2 B Ziko TEk 
ね 回 っ て いる ボー ル を 撃ち 落と し て 《 だ る 
Uv 

デモ 中 に |SPACE キ 一 また は トリ ガー ボ 
タン で ゲー ム ・ ス ター ト と な り ま す 。 ジョ 
イス ティ ッ ク を 使う と き は No.1 の 方 に 差 
し 込ん で くだ きい . ヌー タ 君 は 8 方 向 移動 
で き , 8 方 向 に 別 を 撃つ こと が で きま す . 

ボー ル を 撃っ つと 小 き な ボー ル 2 個 に 分 裂 


し て いる 方 が ベス ト だ と 思い FM に し まし た . 


L, その ボー ル を 撃つ と る ら に 小さ る な ボー 
ル 2 個 に 分 裂 し ます . そし て 一 番 小 る な 
ボー ル を 撃つ と 消 減 し ます . この よう に 
ボー ル を 次 々 と 撃ち 落と し て くだ さい. 
すべ で て の ボー ル を 撃ち 落と せ ば 1 面 ク リ 
ア で , 残り 9 タイム が ボー ナス と な り ま す 。 
ボー ル は 4 面 ま で 1 個 ず つ 増 えて いき , 
5 面目 で まだ 1 個 に 戻り ます . この よう に 
1 一 4 個 を 繰り 返し て いき ます が , スピ ー 
F ド が だ ん だ ん 上 が っ て いき ます . 

ヌー タ 君 は ボー ル に 当 だ る か ,。 タダ タイム が 
0 に な る と 死に ます . な お ぢ お, 5,000 点 で ヌー 
タ 君 が 1 人 増え ます . 

ゲー ム 中 に | STOP キー と [ESC キー が 効 


〈 く よう に な っ て いま す 。 


702550 


BASIC の 方 で ワー ク 関 係 の 初期 化 を 行 
な っ て いま す .。 ワー ク ・ エ リア 表 の 方 と 見 
くら さて も ら え ば , と どこ で 何 宮 し て いる か 


すぐ わ か る の で いろ いろ いじ っ て 見 て くだ 


さい. 
な お, BGM は SOUND を 使っ て 出し て い 
ます . 

表 1 アド レス ・ マ ッ プ 


キャ ラク タ ・ デ ー タ 
メッ セー ジ 用 デー タ ① 
BGM デ ー タ 

メッ セー ジ 用 デー タ (② 
デモ 用 デー タ 

ヌー タ 動 か す 
ヌー タ の 弾 

ボー ル 動 か す 
ヌー タ 死 判定 

数 字 出力 
SCORE 表 示 

文字 出力 

ワー クエ リア ・ 
初期 画面 
ヌー タ 死 処理 
面 数 表示 

TIME 
SOUND 関 係 

BGM 

各 メ ッ セ ー ジ 表示 
デモ 1 

デモ 2 
メイ ン ・ ル ー チ ン 


分 裂 し た ボー ル が た く さん 跳ね 回 っ て パパ ニック./ 


誰 で も 楽し め る ゲー ム と いう こと で 作っ 
て みた ん で す が , い か が な も ん で し ょ うか . 
単純 だ けど 結構 面白 に と 思い ます よ . ま あ , 
や っ て みて 〈 く だるい 。 

最後 に 。 MUSIC, BGM を 作っ て くれ だ 
Mr.X に 感謝 し ます . 
*# 3 XR 

ペー ッ パ ウェア PC-6001 


OQ ウー ク ・ エ リア 


ヌー タ 方 向 フ ラグ 

ヌー タ 足 フラ グ 

ヌー タ の 弾 フ ラグ 

ヌー タ の 弾 方 向 フ ラグ 
ヌー タ の 弾 x, y 

SCORE 

加算 用 

HIGH 用 

ヌー タ 生 死 フ ラグ 

面 数 

ボー ル 総 数 

ヌー タ の 数 

ヌー タ 表 示 用 x, y 
TIME 

ヌー タ が 増え た か チェ ッ ク 
HIGH チ ェ ッ ク ・ フ ラグ 
ヌー タ が 増え た と き の 表 示 用 
X, y 

スピ ー ド 

DAA 用 面 数 

TIME が 0 か チェ ッ ク フ ラグ 
BGM 用 

各 ボ ー ル 用 


初め て お 便り いた し ます . ÆA, 私 は FM-NEW 7 を 購入 し まし た . S1 を … と も 思っ た の で す が , パソ コン は や は り ハ ー ド , ソフト 共に 充実 
買っ て みて , や は り 0FM は よい マシ ン で し た だ た. 早く この マシ ン を 100% 使 え を る よう に な り だ いで 
ЕЮ +. PSI PiO10 月 号 pb.52 の CREAM SODA さ きん, 自分 の マシ ン の ソフ ト が 増え る こと を 喜ぶ の は 結構 で す が , 他人 の マシ ン の ソフ ト が 減る の 
D と 富 示 の は 関心 で き な い ん じゃ な いで すか ? 


(田舎 者 だ と バレ て し まっ た 堀 僧 快 ) 


СС - 


19 GOSUB 420:EXEC&H FCOO: KEYS, "К 
UN20" *CHR$ (13) 

20 CONSOLE,,,0:POKE&H FFE1,&HC3 
30 SCREEN 4,2,2:1COLOR 1,0,2:CLS8: 
EXEC&H AEB89:GOTO 220 

40 EXEC&H AFOS:POKE&H DAOF,4:POK 
E&H DA19, &H10 

50 EXEC&H AFC2 

66 FOURKE&H DA12,&H10: POKE&H DA13, 
O:EXEC&H BOS8:EXEC&H ADCE 

70 ЕХЕСҰН B179:FOR І=0Тт0500: NEXT 
s GOSUB 146 

Во FOKE&H рА@2,@: POKE&H DAOC, 1: Е 
XEC&H B2921:EXEC&H AE99:POKE&H DA 
1E。 の 

90 IF PEEK(&H DAOF)-0 THEN EXECS 
H AEG6F:GOTO 176 

100 IF FEEK(&H DA1B)-1 THEN FOKE 
кН DA1B,O0:EXEC&H AF4F: GOSUB1406: 6 
OTO 150 

110 GOSUB 140 

120 IF PEEK(&H DAOE) く > の THEN 79 
130 EXEC&H AFF1:M-2: GOSUB2401: GOS 
UB 140: БОТО 50 

140 LINE(@, 31) — (256, 192) , O, BF: RE 
TURN 

159 EXEC&H B179:FOR 1= の 9 の TUBO の 9』 NEX 
T: GOSUB 140 

1606 POKE&H DA12,8&H10:POKE&H DA13 
, 0: GOTO 99 

176 GOSUB 140:EX 


350 GOSUB 270: RETURN 
3560 A$-"sOom9000t250180Sedcdef":B 
$-"l4ggag2.":C$-2"g4f2." 

370 FLAY A$-B$:GOSUB 276:PLAY A$ 
*C$:0$-"18fdefdfecdece":B$z"d2.1 
4gab" 

380 GOSUB 2760:C$-2"18gfefgag4":PL 
AY A$-B$:GOSUB 270:PLAY C$-*4"g2." 
*C$ 

390 GOSUB 270:FLAY "+2. "+A%+"do4 
gaboScdc2.":GOSUB 270: RETURN 

400 FLAY "t256s8m16000005c20a4.b- 
805c20f218gab-oScob-4a4g2.r4 

410 FLAY "ab-oScdc4c4f2c20b-4agg 
4. ff2.r 4" 3RETURN 

420 FOR Is&H FC99 TO Н FC48: REA 
D A$:POKE I,VAL("&h"*A$) 

436 МЕХТ: КЕТОКМ 

446 DATA 06,904, 21,05, fe, 56,00, 23 
„10, #Ь,са, да, 25,11, af, 05 

450 DATA са, 4е, 25, 21,са, fe, 06,06 
,cd,70,1a,77,23,10, 19,21 

460 DATA 76,25,cd,83,25,2a,cd,fe 
,ed,Sb,cf,.fe,cd,9?a,295,cd 

470 DATA 70,1a,77,80,47,23,1b,7a 
,b3,20,f4,cd,70,1a,b8,cd 

486 DATA aa,1a,c8,21,85,03,c35,cf 


eTOSOo6: NEXT: GOSUB 146 
180 IF PEEK(&H DA15)=1 THEN EXEC 
&H AEC4: M=5: GOSUB 240: GOTO 200 
190 EXEC&H B182: M=1: GOSUB240 

200 Н1=РЕЕК (Н DAOA) : Н2=РЕЕК (SH 
DAOB):EXEC&H AEB? 

210 FOKE&H DAOA, H1:POKE&H DAOB,H 
2: CLS 

220 EXEC&H B1F9:EXECšH B2140:M-31 
GOSUB 249』CLS 

230 EXEC&H B194:M-4:GOSUB 240: CL 
S:GOTO 220 

240 EXEC&H 1BB3:0N М GOSUB 290,5 
00,320, 360,400 

2506 IF PEEK (&H FD1B) く > の THEN 25 
の 

260 SOUND 1,0: RETURN 

270 IF STRIG( の 9)=1 OR STRIG(1)71 
THEN CLS:EXEC &H1BB3:GOTO 40 

286 RETURN 

296 FLAY"ti160s8mi50600180S5ccobal4 
edrccl8o4cco3bal4edrcc": RETURN 
300 FLAY "ti13eo6s8mS5ooolióoSccccog 
gaboSccccdcdef # # ffdefggggagab 
510 FLAY "m25eo0006c2": RETURN 

3260 A$-2"s9móó00t2201806coS5goó6coS 
goócoSgoó6defcfcfcedcoSg 

ささ の B$z"oócoSgoécoS5gbagdgdgdab": 
C$="oé6dcoSbgaboé6c4'": PLAY A$ 

340 GOSUB 279:PLAY B$:GOSUB 270: 
PLAY A$: GOSUB 270:FLAY C$ А 
€ АКР マッ ド ・ ボ ー ル г? U Z F; _ 
A180: ФЕ 
A188: 39 
A190:0F EC 1F ЕВ 39 FC ЗЕ F8:7E 
A198:1F FC ЗЕ FE 1F F8 ЗЕ 7C:29 
n1QO』 ФЕ の 2 の の OO OO OO 1F ЕВ: 28 
A1A8: 30 OC 1F F8 の の の 9 OO 00:53 
^A1BO61:57 FO IF ЕВ ЗЕ 9C 1F FC:34 
A1B8:3F ЕВ 7F FC 1F F8 ЗЕ 7C:85 
Ai1Ce:oF 92 37 EC IF F8 19 98:FC 
A1C8:19 98 IF F8 1F F8 EF F7:C5 
A1DO:E7 


AGOA: OF š 
aa998』1F ОВ iF D8 
Q919k の 7 EO 1F РӨ 
A@18:7F ЕВ 6F FO 
ae20:0F 92 07 EC 
A028:1B F8 1B ЕВ 
Qn93 の 9 の 7 EO OF ЕВ 
A038: 1F FE ӨР Рё 
aeo4o0:0F 02 37 EC 
AQ48:1F ЕВ iF F8 
QOS の 1 の 7 EO 1F FB 
QA の 5 7F FE 6F Fó 
AGOGO: OF 42 37 EC 
4258: 19 98 19 98 
Q の 7 の 3 の 7 EO 1F F8 
AO78: 7D 


Sums 64 


AZOB: AA 
A310: AA 
A318: 2۸A 
A320: A8 
A328: АА 
A330: の の 
A338: の 2 
A340: EO 
A348: 99 
A3509: 66 
А558: 66 
A360: 99 
A368: の 6 
A370: 00 
A378: 7F 


AGBO: OF 
A088: 1F D8 1F D8 
A0970: 07 EO 1F РӨ: 
A@98:FF F8 ӨР F8 
aeae:oF o2 07 EC 
AO6AB:1B F8 1B F8 
Q の B の 97 EO OF F8 
AOB8:1F FF 1F FO 
aece:orF 02 37 EC 
QA の CBi 1F ЕВ 1F F8 
A@D@:@7 EO 1F F8 
A@D8:3F FE ӨР Fó 
AOE: ØF の 2 37 EC 
АФЕВ:1Р F8 1F ЕВ 


A200: FE 
4208:02 00 OO の 1 40 25 59 15:6D 
64210174 15 7C 55 5D 55 55 55: B6 
A218: 5D 55 55 55 55 15 54 135:2F 
5220154 05 5© の 1 40 OE 02 00: ҒА 
4228: 00 02 86 ФА AO 2А ЕВ 2А: 8 
А250: ЕВ АА BA АА AA AA ВА АА: ВЕ 
04258: АА АА АА 2А АВ 2А AB 2А: АС 
4240: 40 02 BÖ OE 02 ©0 00 06: 38 
4248160 19 98 26 64 19 F8 66112 
4250: 7Е 99 99 &6 66 99 99 66:14 
А258: 56 19 98 26 64 19 98 06:58 
A260160 16 05 の の OO OO OO 00:79 
a2658100 00 FF OO ӨЗ FF CO OF:DO 
Qn の 2F の 9 の 7 EO 1F ЕВ A270:FF Fe IF FF 38 ЗЕ FF 9C:1F 
АФЕВ: 7F FC ФЕ FO A278: 7F 


Sums AC Sumi 89 


А580: ЕЕ 
А588: FF 
AZIO: FF 
A398: FF 
АЗА: FF 
АЗАВ: FF 
ASBO:FF 
AZB8: FF 
ASCO: FF 
ASC8:FF 
aA3De: OF 
А508: 99 
ASEQ: の の 
АЗЕВ: DO 
АЗЕ: рео 
АЗЕВ: 54 


А280:ЕЕ FF FF FF FF FF F7 РЕ: Ғе 
A288:FF F7 FF FF FF FF FF FFiF の 
429017F FF FE 7F FF FE ЗЕ FF:36 
A2981FC 1F FF ЕВ OF FF FO 03:13 
A2AOIFF CO の の FF の 9 16 ӨЗ O0:D7 
А248: 00 の の OO дд OO OO 55 00:55 
A2B6101 55 40 065 55 5o 05 55:98 
A2BB81DO 15 55 F4 15 55 74 15:21 
A2Ce155 74 55 55 55 55 55 SD:CF 
A2C8:55 55 5D 55 55 55 55 55:B0 
aA2DO6:55 55 55 55 15 55 54 15:27 
A2D8:55 54 15 55 54 Ө5 55 50:11 
А2Е0: 05 55 50 の 1 55 40 の 9 55:95 
A2EB8:00 16 O3 の OO өө OO OO 00:19 
A2FO:00 OO AA OO O2 AA BÖ の QiE の 
A2F8: АА | AB E8:5C 


A100: OF ・ 
A198:19 98 19 98 
QA11 の の 7 EO IF F8 
A118:7D 3C 6D BO 
0120:0F 02 37 EC 
0128:19 98 19 98 
A130:07 EO 1F F8 
A138: 3D ЗЕ ØD вё 
0140:0F 02 00 OO 
A148: 30 ӨС 1F F8 
01501:37 EC IF F8. 
A158s3F FC 7D ЗЕ 
А160: ФЕ 02 дө の の 
A168:39 ӨС 1F F8 
A170:37 ЕС 1F F8 
A178:3F FC 7F FE 


82 


A420: 74 
A408: S4 
4410: 54 
A418: 54 
A420: 50 
A428: 40 
A430: の の 
A438: ФА 
A440: AA 
A448: AA 
A450: AA 
A458: AA 
A4460: АА 
4428: АА 
A470: АА 
4478: АА 


Sum: 


57 


pio 


リス ト グ の マッ ド ・ ボ ー ル マシ ン 語 リス ト 


A480: АА AA AB 02 АА АА Аб 92:Р4 || ーーーーーーーー ニ ーー ニー ニー ニー ニー ニー ニー ニー ニーーー ニ ーー ニーー ニ ーー A948: B1 
A488: AA AA AO OO AA AA 80 Фо: Св Sum: EC DE B2 36 ED D1 29 A4:3D 
A492: 2A4 AA O00 の の OA AB Өө 18:9E 
^498:04 00 の 6 560 OO OO 19 98:1B A700:12 10 11 FE 1C ӨС 18 1B:8C 
А440: OG ©0 66 66 90 O1 99 99:FF 4708: ФЕ FE FE FE FE FE @@ FE の 2 
А4248: 80 06 56 7E 20 09 99 Е: ов A710:FE iC OC 18 1B OE FE ҒЕ: 25 
AABO:9B8 O6 66 67 EO 19 99 99:96 A718:FE FE FE ӨӨ FF 1C 1D OA:3C A980: の の 
A4B8:98 の 6 bb bb 64 19 99 99:19 A720:10 ОЕ FF 1D 12 16 OE FF:6F A988: CB 
A4COÓ:98 26 66 66 66 19 99 99:58 А728:1© OA 16 OE FE 18 1F OE:81 6990: 28 
AACO:FB 26 66 66 66 19 99 99:90 A730:1B FF 17 12 OC OE 24 FF:80 A998: DA 
n4D の 9 26 66 66 66 19 99 99:3B A738:1D 12 16 OE FE OB 18 17:8B 0940: 28 
A4D8: 98 Ob 66 66 64 09 99 99:09 A740:1E 1C 29 Өө өө OO өө 00:53 AŞAB: FE 
A4EO0:98 06 66 bb 60 O1 99 99:FD A748:FE 19 18 12 17 1D FF 9F:13 Q9B の 』 28 
A4E8: 90 02 66 66 60 @@ 99 99』F の A759: BD 9F BD 9F BD ӨӨ ВЕ B3:B6 A9BB8: の 1 
A4F9:89 ©0 66 bb O00 OO O9 9B:ED A758:8E B3 8E B3 ӨӨ 9F 77 9F:37 QA9C の 』 өө 
A4F8:00 OE 02 OO OO 27 EO 1F:16 A760:B3 BD B3 9F ӨӨ 9F BD 9F:BD A9C8:12 
EOS ais: cot URDU oio D Ne ein SDS B aA a ^768:BD 9F BD 60 BE B3 BE B3:9B A9De: 7D 
Gum: 9A 9E B2 DD 58 94 1C 69:38 A770:8E Bš дө 9F 77 9F Bš BD:66 
^4778:D5 EF до o0 бө до OO @69sC4 
8500109 01 ЗС 66 6E 6E 7E 7E:84 || —— n 
4508:76 66 3C 09 O1 38 78 78:44 Sum: AE Dé 57 ©1 27 28 9E 44:00 
A510:18 18 18 18 18 3C 09 O1:BE 
4518:3C 66 66 66 OC 18 30 66:C8 0780:1B OE ФА OD 22 24 FF 15:9A 
4520:7E の 9 の 1 3C ó 66 O6 1С: В2 788:18 1C 1D FE 1р 12 16 OE:4A2 Sum: B7 
4A528:06 66 66 3C 069 の 1 дь OE:2C 790:24 FF ФЕ OF OF 18 1D FE:82 
A530:1E 36 46 7F の 6 の 6 дь 09:54 5798123172 17 FE 1D 11 OE FE 17178 AAGO: ра 
A538:01 7E &6 60 60 7C дь @6s 2D A7Ad:QE 21 1D 26 26 FF OB 22:С4 56508: 22 
A54@:66 3C 09 の 1 3C 66 66 60:14 А7АВ: РЕ 1C 18 17 18 14 12 26:AD AA10: CD 
4548:7C 66 66 66 3C 09 O1 7E:72 A7BO:OB 18 22 FE の 1 09 O8 04:59 6618:51 
AS550:66 66 дӧ OC 18 18 18 18:3E ^7B8:FF 1D 11 OE FE 16 ФА OD:66 QA2 の s 2A 
A558:09 @1 3C 66 66 66 3C 66:160 A7CÓ:FE OB OA. 15 15 FE ӨС 11:58 AA28:FE 
A569:66 66 3C の 9 O1 3C óó 66:140 А7С8: ФА 1B ФА OC 1D OE 1B 1C:9D QA の s FE 
A568:66 ЗЕ の 6 Øb 66 3C O9 O1:5C 7D の s24 FF 26 26 26 17 1E 1D:E7 AA38: CE 
A570:18 3C 66 66 66 7E 66 66:D6 A7D8: 0A FF 26 26 26 11 OE 15:AF AAAG: FE 
A578:E7 09 の 1 FB 64 ób 44 78:8F A7E0:15 FE OB ФА 15 15 FE 03:53 6548: 65 
HIE sucks Br аа LGB S n А7Е8:00 19 18 12 17 1D FF 26:9C AA5gs DB 
Sum: 92 FA 83 2А BF 2C 3B 57:66 ^7F0:26 26 OB OA OD FE FE 0B:75 A558: 7D 
А7Е8: ФА 15 15 FE 02 бө 19 18:5 AALO: ов 
AS 64S 66:64 FP. ӨЗ. の 3 SU 261082: | p|. an pana P Me qr im lt M л rh ibt ipi A668: 02 
А588: 66 60 bO 60 66 66 3C 09:97 Sum: FA 28 SE 11 55 F2 Сё ЗС: ВА 6676:DA 
a590101 F8 64 66 66 bG 66 ё: 5B 66578: DA 
4598:64 FB 09 @1 FE 66 60 50:8A a860:12 17 1D FF 26 26 26 16:CD 
А5АФ: 7С 4O0 6 の 66 FE 09 @1 ЕРЕ: АВ А808: ФА OD FE FE OB ФА 15 15:52 60:42 
A5A8:66 560 60 7C 60 60 50 F0: B2 A810:FE の 1 OO 19 18 12 17 1D:76 
А5ВФ: 99 O1 ЗС 66 bb 60 60 6F』 41 AB18sFF 19 1E 1C 11 FE 1C 19:96 AABO: за の 4』 9E 
ASB8:66 66 ЗА 09 O1 E7 66 66:C3 0820: ФА ÖC OE FE 18 1B FE 1D:70 AASB: DA 03:71 
QA5C の 』 66 7E 66 66 66 E7 99 01:07 A828:1B 12 10 10 OE 1B 24 FF:99 AAŞ?: ра Cé: 88 
АБСВ: 5С 18 18 18 18 18 18 18:E4 4830:01 の 1 дё ©1 05 O1 05 01:15 ^498:01 CB: 67 
A5DO6:3C 69 の 1 OF O66 O6 Øb O5:5D 4838:01 01 の 1 の 1 FE 02 O1 04:09 AAAS: ФЕ 38:36 
ASD8:F& 66 66 3C 09 ©1 E7 66:55 QB49』 の 1 05 ©3 05 o5 FE 02 02:15 AAAS: D2 CB:10 
Ө5ЕӨ:&С 7C 78 С 6C 66 E7 @9:8E 4848:02 02 04 05 04 O6 FE 02:17 AABO: 57 38:1F 
ASEB:01 FO 60 60 50 6@ 60 66:37 A850:03 43 04 05 04 O6 FE 02:19 AAB8:C2 CB:FC 
ASFO:66 7E 09 O1 E7 6E 7E 7E:3F 4858:06 04 O1 の 1 O1 O1 O1 04:15 AACO: SF FE: DB 
ASF8:66 66 bb 66 E7 O69 O1 E7:70 QB69』 の 6 FE 02 Øb 04 05 O4 O6:1F AACS: 18 DA: 6F 
ーーーーーーーーーーーーーーーーー ニ ーーーーーーーーーーーーーー AB68:FE ©2 06 ©4 05 04 の 6 FE:17 дарё: ФЕ 47:55 
Sum: 8D 32 93 ФС BF 26 Z9 51:Ср 4870:02 66 04 O5 O4 05 FE 01:19 AAD8: 26 
6878:01 01 04 O1 01 02 O1 O1:0C ААЕФ: 95 
8600186 75 72 76 6E &E GE EJIFO9 , || ーー エーーーーー ニ ーーーーーーー マ ーーーーーー ニ デー アヘ ーーー AAES: 28 
A608:09 ©1 3C 66 66 66 bb 66:44 Sum: 53 73 7А 62 9F 94 9E 92:05 AAFO: 09 
人 Q61 の 』 66 66 3C の 9 01 FC 66 bb: DA ААЕВ: 28 
A618:6& 7C 0 60 60 FO @9 O1:FC А880:035 の 1 の 1 02 01 01 の 1 O1:0B 
作ら の の を る に G5 65.66 65 656 7E 6651 ЛЕ QBBBs の 1 FE FE の 1 の 1 の 1 の 1 01:02 Sum: 4C 
A628:3B 09 の 1 FC bb bb 66 7C:EF nB ワ 9 の 』 の 6 の 1 O4 O6 FE O2 O4 04:19 
A43078 éC 66 E7 99 ði 3C ъё: DD A898:0:3 05 дё FE O2 05 02 05:18 人 QB の の ョ 71 
A638:66 69 3C O6 56 66 3C 09:19 ABAe:02 бё FE 02 04 Q3 ӨЗ 2:16 ABOB: до 
8640:01 FF DB 99 18 18 18 18:D4 АВАВ: 06 FE O02 O1 01 O1 04 01:0Е АВіё:р5 
А648: 18 3C 99 01 E7 66 66 66:77 ABBO:rOI 01 01 O1 02 O6 FE O2:0C AB18: 29 
A656: 66 66 bb 66 3C O9 01 E7:C5 A8B8:04 05 O5 02 O6 FE 02 05:19 AB20: の の 
A658:66 66 66 66 66 66 3C 18s BB a8Coó:02 o5 02 д6 FE 02 04 05:16 AB28: 13 
Ад: 09 の 1 E7 6 ム 6 66 66 66 7E:07 ABC8:05 02 04 02 O4 FE @1 01:11 AB36113 
A668:7bE ФЕ E7 09 の 1 E7 66 66:909 RBD の 3 の 1 の 1 O1 05 01 01 ӨЗ O1:0C AB38:EB 
A670:3C 18 3C 7E 66 E7 09 011:65 ABD8:061 の 1 の 1 の 1 O1 の 1 の 2 01:09 AB40: D5 : 
A678:E7 66 66 66 3C 18 18 18:9D RBE の O+ の 1 の 1 の 1 FF ӨӨ 00 бө 00:02 AB48:19 
Se i ше on iii OR Da n E eA A ША АВЕВ: д0 の の の の の の OO OO OO 09: 00 АВ50: 21 
Sum: 1F 88 77 4D 1А 2С 47 7F:77 RBF の 1 の 9 OO дө OO OO OO OO өө:өө AB58: 00 
QBFBi の の の の の の の の OO OO OO 99: 00 ABAO: DD 
^ae: JC 09.01 JE 4. 0C OD HA SA E E RT E AOS АВВ: AC 
A688: 30 50 66 7E 99 O1 18 18:7E Sum: 24 15 18 18 13 13 1B 1BsC5 ^B70111 
2990: 18 18 18 18 бө 18 18 09:99 AB78: 05 
Q69 コ の 1 ооб 18 18 の の оо бо 18:49 А900: ФЕ ӨЗ 21 02 19 ES 21 02:55 
A6A0:18 eo o9 の 1 OO OO OO 20:22 A908:n00 79 А7 28 @7 11 20 00:20 
A648:18 18 ©0 の の OO 09 O1 дө: ЗА A910:41 19 10 FD 22 2C А9 E1:3F 
A6BO0:18 18 18 7E 18 18 18 Ф0:0Е A918:ES 16 ӨӨ SC 26 Өө 29 29:CF AB86:1E 
A6B8:09 ©1 00 の 9 OO OO 7E 00:88 А920: 29 29 29 29 29 29 19 11:20 ABB88: 7C 
АСФ: до の の の の O9 O1 OO の の 99:94 ^928:00 E2 19 11 62 Аб 06 OF:23 AB90:09 
A6C8:7E 060 7E QQ OO OO 00 OO:FC А950:С5 066 02 EB 4E EB 7E 49118 АВ98: 18 
Q6D@』1C 19 15 ФЕ 17 OD 12 OD:9B 4938:77 23 13 10 Fé DS 11 1E:B7 ABAe: の 1 
^6D8:24 FF 20 18 17 OD OE 1В:А8 94 の 3 の 9 19 рі Ci 10 ЕА El C9:4F ABAB8:7D 
Q6E の の F 1E 15 24 FF 22 18 1E:BD A948:CD 060 A? дё өө ЗЕ O1 CD:88 ABBO: 18 
A6EB:1B FE 1C ӨС 18 1B OE FE:80 А550: Аё 1C B7 28 IF 47 Её 10:FD ABB8: BÓ 
A6FO0:12 1C FE 11 12 10 11 FE:6E Rn ワ SB の 7 07 07 OB 78 07 07 47:EA ABCO:BB 3€ 
AG6F8:1C ӨС 18 1B ФЕ 24 FF 11:9D A960:E6 ЗӨ OF 4F 78 E6 3© 07:09 ABCB:01 


p Hallo./ 初め まし て , 僕 は 中 学 1 年 の FM- 7 の ユー ザー で す . PiOIZAGEIM S оро Co i+. まだ 未熟 で F_BASIC は よく わか らん . 
だ か ら , 人 か ら ゲ ー ム を 借り て や っ て いま す . UE, まあ いずれ 打 と うと 思っ て いま す . 突然 , PiO10 月 号 p.52 の CREAM SODA 3A. みゆ 
き は むなしく 終わ っ だ たね, タッチ に か け よ う . PS1 俺 も プロ グラ ム 打 と 一 . P.S.2 僕 の 友だち の K 君 は 。 みな みり ょ うこ きん の 友人 の A き 
ん より ひど く ,。 PiIO の こと を 「 ば お 」 と 言っ て おり, な な る さる ない ギ ャ グ や ろ 一 だ / (Prothect Proglam ) 


KA SAO 
до 


| リリ スト の マッ ド ・ ボ ー ル マシ ン 語 リス ト 


QBD9』 ヨ 5 AC Ср D5 AA Сі 11 04:53 AE38: 29 BOAO: OF 
ABD8: Фе DD 19 16 8C C9 AF 32:3C AE40: D1 BOAB8: 09 
QBE の 9 20. DA 21 26 ра 11 21 ра: 21 AE48: 52 BOBO: ЗЕ 
ABE8:01 DF Өө ED BÖ ZA OD DA:9E AES5S0: C5 BOBS: 38 
ABFO:FE 45 38 ©8 Dé 94 FE 05:20 АЕ58: 77 Bece: の 5 
ABF8:Z8 02 18 FB 21 20 ра 4FsB4 AE69』 Dó ВСВ: 9F 
——————— AE68: 10 BODO: 97 
Sum: 99 7E ЗА 76 СВ 67 53 C3rAC AE70: 32 BOD8: FF 
AE78: 2A BOEO: ЗЕ 
ACG9 の 9 ョ 47 11 04 @9 72 23 14 3E:4C BOEB: 00 
ACOB:28 77 23 ЗЕ 04 77 23 7B:19 Sum: 39 BOFO:3E 
QAC19sC6 04 77 SF DS 11 19 00:9F : ВОЕВ: OA 
AC18:19 рі 10 ЕВ 41 AF Có 07:9F АЕВФ: ED 
АС20:10 FC 32 ФЕ DA DD 21 20:44 AE88: C9 Sum: 21 
AC28:DA 66 20 C5 DD 7E @@ A7:C7 AE90:11 | 
QC さ の ュ 』 28 ØA DD E 02 DD 66 Q3:C5 AE98:C9 R100: 97 
AC38: 4F CD DS AA C1 11 ©4 09:71 AEAQ: DA B108: ЕЕ 
QAC49sDD 19 10 E7 C9 C5 DD 7E:Dé AEA8: ЗЕ B110:1E 
ACAB:00 FE 09 38 05 01 05 04:4C AEBO: 32 B118:FF 
АС50:18 OC FE 45 38 ©5 01 03:68 AEBB8: DA B120:1E 
AC58:03 18 03 01 02 02 ЗА 02:5F AECO:49 B128:FF 
QAC6@sDQ A7 28 1р ED SB 94 DA:EC AECB: DO B130:1E 
AC68:74 94 38 15 7B 95 38 11:B4 AEDO: 11 E1 38: 3E 
AC70:7C 8© 92 38 OC 7D 81 93:43 AEDS: 09 B140: 00 
AC78:38 @7 CD EF AC C1 C3 D5:00 АЕЕФ: O3 B148:34 
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 AEEB: の の B150:01 
Sum: AF 33 BB F7 2E 9E 3C 64:00 AEFOsOE : B158:3C 
AEF8: 24 B160:47 
QACB9』 AB Ci C3 В AB C5 DD 7E:65 B168:32 
АС88:00 FE 09 38 05 の 1 02 93:4۸4 Sum: 7D B170:21 
АС90:18 OC FE 45 38 05 01 02:67 B178: AE 
АС98:02 18 ©3 O61 @1 ©1 ED 5B:68 QAF の の 』 21 
ACA2:43 A9 7A 3C 94 38 13 7B:BC АЕФВ: 11 
АСАВ: 5С 95 58 ФЕ 7C 86 92 38:DD AF 1 の 』 の 6 
ACBO:09 7D 81 93 38 04 AF 32:B7 AF 18』 15 B180:17 
ACB8:@C ра Ci C3 D2 AB 32 C5:DE АЕ20: 21 B188:C3 
ACCO:AC 54 5р 7C FE 1E 50 01:26 АЕ28: AŞ B199:A7 
ACC8:3C 57 7D FE 15 306 の 1 3C:90 AF 30:49 B198:46 
ACDO:5F 7C Dé 061 38 61 67 7D:CF ^F 38:49 відд: 11 
ACD8:3D FE 064 38 61 F DD 7E:42 AF49:A9 B1AB: の 6 
ACEO:01 FE 18 28 @& FE 14 C8:1F AF48: А9 B1BO: A9 
ACEB:FE 28 CB 7C 62 57 C9 78:64 AF の 』 の 1 B1B8:01 
АСЕФ: 50 EE ©3 3C 32 69 DA CD:4C AF58:CB BE1C9s 95 
ACF8:CE AD ZA @E DA 3D 32 ӨЕ:1А AF60: 28 B1C8:09 
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 AF68: 1E B1DO:D2 
Sum: А7 5E 92 EA C3 BC B1 DB:5C AF70:7A B1D8:11 
AF78:D1 B1EO:09 
аред: ра CD DB ве DD 7E ӨӨ FE:8B B1E8:980 
AD68:09 38 32 рь 04 4F DD 71:ЕА Sum: F8 E1FO:21 
AD19s94 DD 71 98 DD 7E 61 EE:A4 | B1F8:AE 
AD18:@C DD 77 @5 EE 3C DD 77:E3 AFBo』 DS 
AD206:09 3E 1D CD BE AC DD 75:ED AF88: 00 
AD28:@6 DD 74 ©7 05 CD DS AA:7F AF90:7B 
ADZe:Di ЕВ DD 75 Фа DD 74 @B:74 AF98: CD E200: FE 
ADZ8:CD D5 AA 18 34 FE @5 38:D3 АҒА@: ФЕ B208:01 
дарад: зө Dé 44 4F DD 71 өв DD:8C AFA8: 32 B210:D5 
AD48:71 10 DD 7E 61 EE OC DD:E4 AFBO: A9 B218:18 
AD50:77 69 EE 3C DD 77 11 3E:4D АЕВВ: A9 E220: CD 
ADS8:1E CD BE AC DD 75 @ DD:8E AFCO: DA B228:49 : 
QAD69』74 OB DS CD DS да Di EB:5C AFC8: 32 B230: A9 
AD68:DD 75 12 DD 74 13 CD D5:6A AFD9s 1 1 B2:8:08 
AD70:AA AF DD 77 бө 32 ©2 ра: вв AFDE: DA B240:16 
AD78:2A 64 DA OE 66 C3 DS АА:58 FE の: 30 B248:49 
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 AFEB』 ЗА B25@: O3 
Sum: ЕВ 89 38 рв SE D8 BA 4F:43 AFF®: C9 B258:00 
AFF8:E6 B260: ЗЕ 
AD80:E5 21 92 А5 11 OB O0 @E:D7 B268:21 
AD88:060 B9 28 64 OC 19 18 F9:1B B270: 32 
AD9@:ERBR El ES の 6 の の AC 26 00:29 B278: ©4 
AD98:29 29 29 29 29 09 @1 90:07 BOOG: OF 
ADAO:E2 ©9 の 6 O09 1A 77 13 05:75 BOO8:DA Sum: бА 
ADA8:11 20 @@ 19 D1 10 F5 E1:01 BO10: 32 
ADBO: C9 C5 08 1A ©8 1A Eé @F:C7 В018:А7 B280:49 
ADB8:D5 CD 86 Ар OB ӨЕ ФЕ の Fi の 4 во20: 58 B288: 03 
ADCe:eF Её OF 25 CD 86 AD Di:F4 BO28: 11 B290: の の 
ADCBsC1 25 1B 10 E4 C9 ES 21:С4 вёз: CD B298: 22 
ADDO:27 DA 11 @9 DA іа 86 27:9C BO38: A? B2A9』 CD 
ADD8: 77 2B 1B 1A BE 27 77 21:24 B040: Dó B2A8: 27 
QDE の Os の の の の 22 OB DA 21 дь ра: OS B448: Dé B2BO:FB 
ADE8:11 ФА DA 14 96 28 68 30:05 BOSO: B4 E2B8:4F 
А”ЕФ: ФЕ 7E 12 AF 13 12 1B 13:40 B058: 66 B2C の 』 の の 
ADF8:23 1А 96 30 02 7E 12 21:B6 B6660: C3 B2C8: AF 
a METRUM не АСИРИН ААТ ЛЬ ОЬ ИЕ ее BO668:FF B2DO: BÖ 
Sum: 14 51 CO 1A DF ВС 66 53:09 BQ70: 1E B2D8: 61 


: BO78: 3E 
RE の の 9 の 1 1C 11 07 DA O6 02 CD: EA 
АЕФВ: Ві AD 21 ©1 OF 11 OB DA:85 
QRE1 の の 6 02 CD Ві Ар El C9 1A:F7 


AE18sFE FF СВ FE FE 28 4C ES:iA вове: 1F 
AE20:D9 21 の 9 А5 A7 28 97 11:86 BO88: の 4 
AE28:0B O00 47 19 10 FD EB E1:44 B の 9 の 1 02 
RE3 の 9sD5 16 の 9 SC 26 の の 29 29: BF B@98: 3E 
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平和 な 惑星 モリ プ ブテン に 突如 現われ た 無 
数 の 戦闘 デバ イス は 惑星 の 80 め を 占拠 し , 
連邦 政府 の ある パー マロ イ 市 を 残す の み と 
み と な っ た . パー マロ イ 市 の 市 長 と 政府 高官 
数 名 に 対し , 全 宇 宙 人 制覇 の た め に 日 々 精進 
し て いる 四ツ橋 一 郎 氏 より 降伏 命令 が 発っ 
せら れ た . 

降伏 条件 は 妥当 な も の で あっ た が , 現在 
の 地位 と 財産 を 失 な うこ と を 恐れ た 市 長 ら 
は , マス コミ を コン トロ ー ル し 四ツ橋 氏 の 
降伏 条件 を 曲げ て 報じ 官 宣 及び 軍部 に 徹底 
攻 戦 を 命じ た . 

その 結果 名 も な い 一 空軍 パイ ロッ ト で あ 
る あな た が 100 勝算 の な い 無 意味 な 戦い 
を し な けれ ば な ら な く な っ た . あな た は 生 
き 延 びる こと が で きる で あろ うか !? 

画 プ ログ ラム ・ イ ン フ ォ メ ーション 


敵 の 動き が と て も 面白 い . それ に 
し て も , ある 面 で 突然 敵 の 動き 方 
が 変わ っ た の に は 和 驚き まし た . (A) 


まず 最初 に BASIC 部 を 入力 し , テー に 
セー ブ し ます . 次 に PiO2 号 の " セ モ ニタ "な 
ど を 使っ て マシ ン 語 部 を 入力 し , BASIC 部 
の 後に モー ブ し ます . マシ ン 語 部 は 8A00H 
ーBE4FH ま で で す 。. 


32K バ イト で ペー ジ 数 は 2 を 指定 し ます . 
BASIC 部 を ロー ド し て RUN す る と 自動 的 
に マシ ン 語 部 を ロー ド し ます 。 ロ ー ド が 終 
了 す る と デモ 画面 が 表示 ほれ ます . キー ボ 
ー ド で 遊ぶ 人 は |SPACE| キー を , ジョ イス 
ティ ッ ク で 遊ぶ 人 は トリ ガー ボタ ン を 押す 
と ゲー ム が 始ま り ま す . 

この ゲー ム は 。 カー ソル ・ キ ー か ジョ イ 


PC-1251 を 買っ た た め , PC-1245 を 手放す こと に な っ た . し か し , 


L 今月 の PiO な ゲー ム 


ず う 体 の 大 きい ミサ イル だ が 簡単 な 面 


ステ ィ ッ ク で 自 機 を 操作 し ます . 
キー か トリ ガー ボタ ン を 押す と プ ブラス ター 
が 発射 され ます . 自 機 を 操作 し て プラ スタ 
ー で 蔽 を 倒し て くだ る さる い . 
最初 の 敵 は 戦闘 F バ イス で プ ブラス ター を 
撃っ て きま す . €U-CiXU T-MISSILE と 
い ラ ワー ブ プ ・ ミ サイ ル で 攻撃 し て きま す 。 
を の 次 は M-MISSILE で す . これ ら は 次 に 
現われ る MASTER SHIP か ら 発射 きれ て 
いま す . そし て 最後 に MASTER SHIP が 
現われ ます . これ は ブラ スタ ー を 数 発射 ち 
込ま な いと 倒せ ませ ん . MASTER SHIP 
を 倒す か , 逃げ られ る か する と 1 ステ ー ジ ・ 
IEPENT 

と きど き FLAG が 現われ ます が ,。 これ を 
取る と 自 機 が 1 機 増 えま す . その 他 に も タ 
ワー な ど が 出 て きま す 。 この タワ ー を 破壊 
する と, 2 万 点 の ボー ナス が も ら え ます . 
書き 忘れ まし だ た だが, ステー ジ ど ・ ク リア の 
と き に 5,000 メ ステ ー ジ 数 の ボー ナス 得点 が 加 
算 き る れ ま す . 頑張 っ て 高 得点 も 出す よう に 
E> RS D 


アデ アド レス ・ マ ッ プ と ワー ク 一 覧 表 の 一 部 
を 書い て お きま し だ が 。. そ こら 中 に 吊 取 り 
ルー チン が 入っ て いて と て も 解析 する 気 に 
な ら な い ス ーー パー タコ 足 プ ブログ ラム で す . 
それ で も この ブログ ラム を 解析 し よう と 言 
う 人 は 。 プ ログ ラム が あっ ちこ っ ち に 飛ん 
で いて 極め て 流れ が つか みにくい の で て 気 を 
付け て くだ る さい. 

この まま で は プロ グラ ム の 説明 に 全 々 な 
っ て いな い の で ( 今 ま で 気が付か な か っ た ) 
今回 は 少し 説明 る せ て も らい ます . 


表 1 アド レス ・ マ ッ プ 


各種 デー タ 
基本 サブ ルー チン 


メイ ン ・ ル ー チ ン 
各種 サブ ルー チン 
о ас да 4 
バグ 取り ルー チン の 一 部 


R2 ワー ク ・ エ リア 


自 機 移動 フラ グ 

各種 フラ グ (プラ スタ ー, ШЗ) 
各種 座標 

自 機 の 数 

ステ ー ジ 数 


ハイ ・ ス コア 
スコ ア 

敵 1 用 ワー ク 
英 2 用 ワー ク 
敵 3 用 ワー ク 
敵 4 用 ワー ク 


まず 敵 の 移動 ルー チン は 4 つ あ っ て それ 
ぞ れ が サブ ルー チン に な っ て いま す . その 
サブ ルー チン を CALL 命 令 の オペ ラン ド を 
直接 書き 換え て 各 ル シー チン を 呼び 出し て い 
i3. 

これ ら の サブ ルー チン は 一 度 し か 呼ば な 
い ぃ い の に CALL 命 令 で 呼ん えび で いま す . 私 は こ 
の お か げ で ムダ 骨 を 随分 折ら され まし た ( 結 
極 私 の ミス な の で す が …). 一 度 し か 呼ば な 
い サ ブル ー チ ン は JUMP 命令 で 呼び まし 
42. 

私 は プ ブログ ラム を 作る と き 各 ルー チン を 
一 まとめ に し て 書か ず , その ほとん ど を サ 
プル と 衝 ン に し で いま す 、 ご うず る とら 入 の 
よう な 未熟 者 に も 比較 的 楽 (あく まで も 比 
較 的 ) に プロ グラ ム が 作れ ます . 


= の 敵 の 出現 に は 驚き ノ 


どう し て も 軽々 し 〈 く 売り に 出せ な 《 く て , 喝 に 1000 円 で 引き 取っ て も ら っ 


(クル クル ぱん つと 全く 関係 な い 名 古屋 の クル クル ぱる こ ) 


ET ET EE OR TT OE 
ө ° 
M. 見 が 夜 お そく PC-1245 を 使っ て いる の を 見 る と な ん だ か ホッ と し て , これ で よかっ た ん だ と 思っ て いる . 


PiO 


PiO10 月 号 p.102 の 人 の 質問 に 答 を ます . 
本 当 の スペ ル は RED BALL で す . 


プロ グラ ム 中 で BOLL と な っ て いる の は 
ох я СИУ А) Еа ьс 
迷惑 を な か けし まし た だ た ア . それ か ら CRAZ 
Y CRUSH: 1, 110 行 は 存在 せ ず 100 行 に 
凍結 きれ て いま す 。 それ と 150 行 に СЕ” が 


抜け て な り ま し ただ. 重ね て 深く お 詫び いた 
53-35 

RED BALL と CRAZY CRUSH を 打 
もち 込ん で て だ きっ た 方 、^ ま だ レシ レッド プラー 
ト を 買っ て くだ きっ た 方 に 感謝 の 意 を 表わす 
と と も に 深く お 詫び い だ し ます . 

関係 な い 話 で す が こ の ゲー ム の 私 の 最高 
得点 は 12, 872, 400 点 で す . 皆 る ん も これ を 
抜か す 高 得点 に 挑戦 し て くだ さい . 

それ か ら 次 回 は RED BALL の パー ト 2 を 
{EB FECT. 期待 せ ず に 待っ て いて くだ 


" 


y Goes. 4 b. W 
KINI. 


100 REM くく くく 
FIGHTER 201 


110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM <<<<<<<<<<<+›››; 
200 CONSOLE 9,16,0,0: 
SCREEN 2,2,2:COLOR 1, 
210 EXEC &HBAQ5:END 


く 


^ 


1984.9 BY N.U. 
MACHINE 8A00H-BE4FH 


For PC-6000/Mk2 


Р UA UPC MX UAE 
Ë w w-w w M MW AW A w A 


КЕМ マシ ンコ” U497?"7 
POKE &НЕС@Е,@:РОКЕ &HFCOF , % 


FOR A-&HF200 TO &HF277 

READ A$:DT-VAL ("&H"*A$) 
POKE A,DT:NEXT А 

EXEC &HF200:RETURN 
DATACD,94,25,06,05,CD,70,1A 
DATAFE,FF,F5,20,10,04,21,D1 
DATAFE,CD,70,1A4,77,23,10,F9 
DATAO6,05,CD,70,1A,FE,AF,20 
DATAE2,10,F7,21,10,FC,05,04 
DATACD,70,15,77,22,10,F9,21 


リス ト 1 FIGHTER 201 BASICUA F # 


SAQO: 28 
85908: 28 
8A10: 28 
8A18: 28 
8020: 20 
8A28: 20 
8430: 20 
865538: 10 
ВА40: 10 
86548: 10 
8A5Ø: 28 
86558: 20 
86560: 1 の 
86568: 20 
8A70: 24 
8A78: 18 


ーーーーーーーーーーーーーーーーーーーーーーーーー — — — — — —— 


Sum: E4 


8480: 20 
8A88:FF 
8499: 2 の 
BA98: 20 
BAAD: 20 
ВААВ: 20 
SABO: 20 
ВАВВ: ЕЕ 
ВАСО: 28 
_ BACB: 20 
BADO: 20 
BADB: 2 の 
BAE の : 20 
8AE8: FF 
BAF の s 28 
БАЕВ: 14 


ーーーーー — — ーー ーーーーーーーー — — — —— — — — — —— nc 


BB の の : 20 
8808: 20 
8B10: 18 
8B18:20 
9B20:FF 
8B28:FF 
8B30: 20 
8B38: 20 
BB4 の : 20 
8B48: 28 
8B50: FF 
8BS8:FF 
BB60: 20 
8B68: 28 
8B70: 20 
8B78: 20 


20 


20 


Sum: 84 


8BB80: 08 
8B88:24 
8B99: 28 
8B98:24 
8BAQ9: 28 
8BA8: FF 


80 


8с 


98 


6B 


09 


1D:1C 


BBB の : DD 
8BB8: ØE 
BBC の gi 77 
8BC8: 03 
86D: 6 の 


BC の の : 08 
BC の 日 : 2 の 
BC 1 の: 2 の 


,8C18:20 


8C20: 20 
8C28: 20 
8c30:FF 
8C38:FF 
8C40: の の 
8C48:04 
8C50: 28 
8C58: 08 
8C60:FF 
8C58:FF 
8C70: 42 
8C78:44 


8C80:47 
8c88: 48 
8C90: 12 
8C98:04 
8CA0:01 
SCAB: ØF 
8CEQ: FF 
8CB8:FF 
8CC0: の の 
8сса: 1D 
CD の: 1D 
8CD8: 1D 
BCE の :FF 
ВСЕВ: の の 
ВСЕЙ: の の 
BCF: の の 


BD の の : 28 
BD の 8 : の の 
BD 1 の: の の 
8D18: CO 
BD2 の : 80 
8D28: 00 
8D30: 97 
8D38: CO 
8D40: の の 
8D48: の の 
BD50 の : の の 
8D58: の の 


DD 77:6E 
10 DD:B2 


SE 444512 a06 


DD 21:BC 
77 15:01 
DD 77:25 


20 20:40 
14 20:С0 
20 20:00 
20 20:00 
20 20:00 
20 20:00 
FF FF:F8 
FF FF:F8 
Q4 04:18 
の の 28:80 
ов 08:60 
FF ЕЕ: ВА 
FF РЕ: ЕВ 
FF FF:F8 
44 44:1D 
46.47:27 


45 7А:56 


48 48: 3F 
FF FF:8A 
02 08:55 
FF FF:66 
РЕ<ЕЕ ЗЕ 
FF FF:4A 
Fo Pr 
FFUFESEB 
の の 00: の の 
1D 1D:EB8 
1D 1D:E8 
FF FF:34 
00 の の :FF 
の の 00: の の 
の の 00: の の 
Qo 20: の の 


7D 86:04 


00 00: AB 
の の 20: の の 
90 ВА: 28 
6 の 8В: 7С 
の の の の : QB 
の の 00: の の 
FS A2:DE 
の の 00:12 
の の 20: の の 
の の 00:00 
の の 00: の の 
の の 00:00 


Sv. 核兵器 と 凶悪 な BUG が この 世 か ら 消 
この へ ん で 終わ 


ос ИВА Э, 
ら せ て も らい ます . 


リス トク 2 グ FIGHTER 201 マシ ン 語 リス ト 8 


8D68: 20 


8D70: の の 
8D78: 08 


8D80: の 4 
8D88: の 8 
8D90:04 
8D98: 08 
BDA: の 4 
врав: 08 
8DBO: の 4 
8DB8: の の 
врсо: 28 
8DC8: の 4 
врро: 08 
8DD8: 20 
врео: 2 の 
8DEB8:FF 
врғо: 08 
8DF8: 20 


8Е00: 20 
BE の FF 
BE1 の :FF 
8E18:FF 
8E20: の 6 
8E28: 04 
BESQ: FF 
SE38:FF 
8E40: 3E 
8E48: C9 
BE5 の : の の 
8E3538: の の 
8E60: 21 
8E68: の の 
8E70: の の 
8E78: の の 


8bE80:FF 
8bE88: FF 
ВЕ9В: ØF 
8E98:FF 
BEA0: 07 
8EA8:FF 
BEBO: ØB 
8EB8: 01 
SECO: 07 
ВЕСВ: 04 
SEDO: の 6 
SED8:FF 
BEEQ: 13 
ВЕЕВ: 02 
SEFO: OF 
BEF8: OF 


DATAD1 。FE 。 の 6 。 92 ,CD, 70,14,77 
2048 DATA22,10,F9,F1,20,07,06,04 
2049 DATAAF,77,23,10,FC,21,76,25 
2050 DATACD,82,25,CD,94,25,ED, Sb 
2051 DATAQOE,FC,7A4,B3,20,04,ED, Sb 
2052 DATA10,FC,24,12,FC,19,Eb, OE 
2053 DATAOD0,CD,70,14,77,81,4F,23 
2054 DATAE7,38,F56,CD,70,1A,B9,CD 

5 DATAA65,145,C8,1E,24,C3,01,04 


61 


pO 


リリ スト 2 FIGHTER 


8F の の : 19 
8F08:15 
8F10: 13 
8F 18:04 
8F 20: ØC 
8F 28: 04 
8F 30: ØC 
BF38: 12 
8F 40:19 
8F 48: 1C 
8F 50: 27 


8F 80: DE 
8F88: C2 
8F90: 32 
8F98: 00 
8FA^09: の の 
FAB FF 
8FBO:FF 
8FB8:FF 
BFCQ:CD 
8FC8: CD 
8FDO:F7 
8F D8: 18 
BFEQ: 18 
8FE8: の の 
BFF の : の の 
8FF8: の の 


Sum: 90 


9 の の の :F5 
9208: 20 
9210: ØD 
9018: CS 
9020: 90 
9028: 20 
9030:C1 
9038: SF 
9040:C1 
9048:FE 
9050: 48 
9058: SE 
90690: CD 
9068: BE 
9070: ЗЕ 
9078:C9 


9080:FD 
9088: B2 
9090:F7 
9098: CD 
9020: ВЕ 
90658: 1B 
9 の BE の:F 1 
90B8:01 
9 の C の : C2 
90C8: 78 
9 の D の : SF 
9 の DB』 C9 
90Е0:Е5 
90Е8:Ғ5 
9 の F 0: の の 
90@F8:CS 


9100: の の 
91028: CO 
9110: 09 
9118:FE 
9120: 3D 
9128: 0A 
9130: の の 
9138:D1 
9140:F1 
9148: E2 
9150:Ғ8 
9158: 00 
9160:21 
9168:04 
9170:А1 
9178:21 


7180:91 
9188: 6D 
9190: CD 
9198:53 
91AQ: 44 


201 マシ ン 語 リス ト 


91B0: の の 
91B8:07 
91C0:ES 
91C8: 30 
91D0: CD 
91D8:F1 
91Е0: 28 
91E8: DE 
91F0: 1C 
91F8: AD 


9200: C9 
9208: CD 
9210:CD 
9218: CD 
9220: CD 
9228: ØD 
9230: 7E 
9238: 1E 
9240: C9 
9248: 20 
9250: C1 
9258: 00 
9260: 2 の 
9268: 00 
9270:01 
9278:C1 


9280: の の 
9288:11 
9290: EB 
9298: 66 
9200: АА 
9228: 96 
92B0: Аё 
9288: AA 
92C0: A6 
92C8: 66 
9200: AA 
92D8: A6 
92Е0: БА 
92Е8: АА 
92Ғ02: A6 
92F8: 66 


9500: АА 
93508: ^6 
9310:64 
9518: AA 
95320: 66 
9328: 66 
9330: AA 
9338: 66 
9340: 6^ 
9548: AA 
9350: 6^ 
9358: 6A 
9560: АА 
9368: 66 
93570: 9A 
9378: AA 


9380: 66 
9:588: 66 
9390: AA 
9398: 6A 
9309: 55 
93A8: AA 
93B0: 69 
93B8: 66 
93C0: AA 
93C8: А 
9:00: 
9508: АА 
93EQ9: 66 
93E8: 64 
ОЗЕ@: АА 
93F8: 9A 


9400: 6 
9408: АА 
9410: 66 
9418: 69 
9420: АА 
9428: 69 
9430: 66 
9458: АА 
9440: 6^5 
9448: AA 
9450: AA 
9458: 96 


9460: 66 
9468: AA 
9470: АА 
9478:FE 


9480:92 
9488: CS 
9490: CE 
9498: 78 
94AQ: C9 
94A8: 1 1 
94B0: OF 
94B8: 00 
94C0: 21 
94C8: 94 
9400: 24 
94D8: 3E 
94EQ0: ЗА 
94E8: 1C 
94F の iD1 
94F8:04 


9500: の の 
9508: 10 
9519: の の 
9518: DE 
9520: DE 
9528: 61 
9530: CB 
9538: CB 
9540: 28 
9548: ES 
9550: 03 
9558: 30 
9560: 03 
9568: C9 
9570: DE 
9578: 20 


9580: CE 
9588: 01 
9590: C6 
9598: 3A 
95А0: 79 
?5A8: CB 
95B の 』FF 
95B 日 : FF 
95C0: の の 
95C8: の の 
95D の : の の 
95D8: 00 
95EQ0: の の 
95E8: の の 
95F の : の の 
95F8: 200 


9600: C3 
9608: 9С 
9510:23 
9618: DE 
96420: FB 
9628: 15 
96530: 9 の 
96358: DE 
9640:11 
96448: 94 
9650: DE 
9658: の 5 
96690: 8F 
9668: の の 
9670: 6E 
9678: 00 


96890: の の 
9588: 00 
9599: 00 
9598: 00 
9640: の の 
96۸8: の の 
96B の : の の 
96B8: の の 
96C0: の の 
96C8: の の 
96D の : の の 
96D8: の の 
96EQ: の の 
96EB』E6 
96F の 』 DE 
96F 日 』 FF 


PRHE, これ か ら 書 く こ と は た い が い が PiO の こと な の で , ボツ に し な いで くだ さい. PiO バ ザー ル の こと で す が ,「PiO [1[2][3] を 求む 」 


で 0.8 一 0.5K く らい が ひじ ょ ー に 多い .。 まあ 中 古 な 6 安く な る の は あたり まえ で す が ,。 モット で 0.3K は ちょ っ と 安 す ぎ ま す . や っ ぱり , 1.5K 
くら い が い いと 思い ます (1| [2] は 650 円 どっ た ん だ し ). Р.5.1 PiO 最 高 ノ P.S.2 PiO で は PC-6001mkII の ソフ ト が 載ら な い の で , いま 
ee 作っ て いま す (BASIC で す が ). P.S. PC-6001 の マシ ン 語 サブルーチン を 改良 し て PC-6001mkII で 使え を を よう に し て いる の で す が , う まく い 


きま せん . 


9700:FE 
9708: ES 
9710:22 
9718:F1 
9720:FE 
9728: DE 
97390: 0E 
9738: 7E 
9740: 21 
9748:18 
9750: 22 
9758: CD 
9760: CD 
9768: 32 
9770: 9A 
9778: 2A 


97B0: 24 
97B8: 32 
97C0: CD 
97C8: 2C 
97D0: A7 


9800: C2 
98908: 20 
9810: DE 
9818: 20 
9820: BQ 
9828:21 
9830: DE 
9838: 2 の 
9840: BQ 
9848: 22 
9850: DE 
9858: A 
9860: 9D 
9858: 8F 
9870:21 


. 9878:С5 


9880: 21 
9888: B4 
9890: DE 
9898:24 
9840: 38 
9868: 60 
98B0: DE 
98B8:D1 
98C0:F6 
98C8: 98 
98D0: C9 
98D8: 25 
98E0: 20 


99 の の : 1A 
9908: CD 
9910: 59 
9918: 2A 


9920: DE 3 


9928: DE 
9930: DE 
9938: 4 
9940: 90 
9948: 57 
9950: 3E 
9958:17 
9960: 2A 
9948: DE 
9970: CD 
9978: 00 


9980: 91 
9988:F7 
9990: 1A 
9998: CD 
9900: DE 
9948:90 


(By. PC-1005) 


99BQ0: 37 
99B8: 3A 
99C90: CD 
99C8:14 
9900: 39 
99D8: 3E 
99E9: の の 
99E8:91 
99F0:F7 
99F8: ØA 


9400: А2 
9608: CD 
9510:C3 
9518: 2B 
9420: 3E 
9028: の の 
9420: 18 
9A38: FF 
90540: の の 
96548: 00 
ASO: FF 
9A58:CD 
A40: 25 
9568: ЗЕ 
9470: 7C 
9078:77 


Q9A80: F5 
9A88: の 1 
90990:54 
9А98: 8 
PAAD: の の 
9AA8: の 1 
FABO: 6A 
9AB8: 9C 
ОАС@:; DE 
9AC8: CB 
QAD: 18 
9AD8』 CD 
9AEQ0: 32 
9AE8: 32 
9AF0: 01 
9aF8: 20 


9B の の : 85 
9B08: 2А 
9810: 2D 
9B18: DE 
9B20: の 2 
9B28:70 
9B30: 18 
9B38:DE 
9B40:CD 
9B48: CA 
9BS0: 95 
9BS8:E1 
9B60:FE 
9B68: DE 
9B70: DE 
9B78: 3B 


9с08: 9C 
9С10: 6? 
9C18: 3C 
9C20: 78 
9C28: 32 
9C390: 09 
9C38:21 
9C40: 23 


9C48:DE : 


9С50: 61 
9C 58:77 


| リリ スト 2 の FIGHTER 


9C60: 9р 
9C68: 3E 
9C790: 350 
9C78:43 


11 


FE 


pio 


201 マシ ン 語 リス ト 


の 4 


9C80: AØ 
9C88: 69 
9C90: DD 
9C98:17 
ICAO: 77 
9CA8: DD 
9CB の 』 1 4 


9CB8:C?9 : 


9CC0:76 
9CC8:C3 
9CDO: 9 の 
9CD8:85 
9CEQ: SC 


9CE8:C9 、 


ЭСЕ: РЕ 
СЕВ: 6B 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 


9D の の :i CA 
9D08: 32 
9010: ПЕ 
9D18:DD 
9D20: DD 
9D28: DD 
9D3 の : DD 
9D38:C3 
9D40: 20 
9D48: 15 
9050: SE 
9D58: CD 
9D60: DE 
9D68:FE 
9D70: の 6 
9D78:2 


9D80: DE 
9D88: 3A 
9D990: EO 
9D98: 32 
JDA: 9D 
9D^8: 38 
9DBQ: 24 
9DB8: の の 
9DC の 』 ZA 
9DC8: 32 
9рре: 32 
9DD8: C2 
9DEQ: 7D 
9DE8: AQ 


9DF の iDE : 


9DF8: DE 


9E の の 』 CD 
9E の 8 : 32 
9Е10: 32 
9E 1 日 : 2 の 
9E20: ZE 
9E28: 80 
ОЕЗ@:ЕЕ 
9E38: 59 
9E40: の の 
9E48: 80 
9Е50: AØ 
9ES8:DE 
9E60:DE 
9E68:4^4 
9E70: 1C 
9E78:89 


9Е80: ЗА 
9Е88: 3A 
9Е90: 6F 
9Е98: 2А 
9EA0: DE 
9EAB8: 69 
9EBQ: 7B 
9EB8:FS 


9ECO:F1 : 


9EC8: DE 
9EDO: 9F 
9ED8: 85S 
9EE の : DE 
9EE8: 52 
9EFQ: 91 
9EF 日 : FE 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 


63 


pio 


| リ スト 2 FIGHTER 201 マシ ン 語 リス ト 
9F00: 31 
9F08: ҘА 85 DE FS 21 70 8C 85:54 
9F10:6F 7E 47 F1 SC 32 85 DE:F6 
9F18:78 32 62 DE 3A 19 DE FE:19 
9F20:01 C2 6F 9F ZA 80 DE FS5:5E 
9F28:21 40 8C 85 éF 7E 47 F1:97 
9F30:3C 22 80 DE 78 FE FF 20:61 
9F38:19 ЗЕ 00 32 19 DE 24 35:DF 
9F4 の 9: DE CD A2 91 ZA BA DE ZC:BC A1F0:91 ЗА 8D DE SC 32 8D DE: OF 
9F48:32 ВА DE FE の 6 СА 69 40:71 АІРВ: РЕ 
生生 生ま 
9FS8:CD DA AØ ZA 86 DE FS 21:FB 
9F60:70 8C 85 6F 7E 47 F1 3C:E2 
9F68:32 86 DE 78 52 65 DE 3A: BB 
9F70:1A4 DE FE の 1 C2 C2 9F ZA:54 A208:1B DE FE の 1 20 33 ?А 3D: B2 
9F78:81 DE F5 21 40 8C 85 6F:55 A210:DE 25 7C FE 00 20 22 3EsFD 
EUN pe I I ERES aL UTER aS OR c MEOS eoe T A218:00 32 1B DE 32 1C DE 24:81 
4220: 3D DE CD А2 91 2A 41 DE:64 
ALL CD A291 SA 8BD DE, SC 32:13 
4230:8D DE FE @ СА 44 А2 18:34 
A238: 08 CD B1 А? の の の の QQ 00:28 
A240: の の C? 00 の の SE QQ 22 8D:Có 
A248:DE 3C 32 69 DE 34 BE DE:39 
А250:5С 32 BE DE FE 30 CA 61:33 
A258:9C 18 E6 00 CD СА A2 FE:D1 
A260: OE 30 F? 2E O8 CD 78 02:51 
4268:C9 ЗЕ 00 32 8C DE 21 ØØ:C4 


^A1B0:91 
^1B8:8D DE 3C 32 8D DE FE 03:45 
A1CO:CA 44 A2 18 08 CD 7D A2:BC 
A1C8:00 QQ QQ OO QQ ЗА 19 DE:31 
A1DO:FE の 1 20 33 2A 55 DE 2S5:B4 
A1D8: 7C FE 00 20 22 ЗЕ 00 32:2C 
A1E0:19 DE 32 14 DE 2А 55 DE: SE 
A1EB:CD A2 91 2А 39 DE CD А2:В@ 


A460: р я 
24458: 22 DE C? の の の の CD CA А2:02 
Qn47 の :FE の 2 30 F? 2А 2D DE Р®:5% 
A478: 25 


^A480:F1 : 
‚ A488:21 の 1 の 1 22 17 DE 22 19:75 
A490:DE C9 3E Q1 32 92 DE 00:88 
A478: 00 00 C9 ЗА 6F 97 FE FS:FC 
A4AD:CA B1 A4 ЗА 68 DE FE の の :9D 
А4А8:С2 10 9А 11 17 DE C3 76:AB 
^A4BO0:99 ЗА 96 DE FE の の C2 10:17 
‚ A4BB: 9A ЗА 17 DE FE 00 СА 10:^1 
' А4С@:9А 2A 2F DE CD A2 91 2A:FB 
A4CB:33 DE CD A2 91 2А 37 DE:SO 
A4DO:CD A2 91 2A ЗВ DE CD A2:B2 
A4D8:91 2А 2D DE ЗА 61 DE CD の C 
A4EQ:F7 90 ЗЕ OS CD 17 90 24:68 
А4Е8: 31 DE ЗА 62 DE CD F7 90:DD 
A4F0: ЗЕ OS CD 17 90 2А 35 DEsF4 
A4F8: ЗА 


a200:97 А2 の の 00 00 00 00 35:73 


9F80:7E 47 F1 5С 22 81 DE 78:FB 
9F88:FE FF 20 19 ЗЕ の の 32 1A:CO 
9F90:DE 2A 59 DE CD A2 91 24:59 
9F98:8A DE 3С 32 BA DE FE 02: 42 
9FAO:CA ó? AØ 18 1D 2A 39 DE:49 
9FAB:CD 7B 95 CD E6 А0 ЗА 87:F1 
9FBO:DE FS 21 70 8C 85 6F 7E:62 
9FB8:47 F1 3C 22 87 DE 78 32:55 
9FCO0:64 DE ZA 1B DE FE 01 С2:36 a270:00 22 8D DE の の 00 00 С9: 56 
9FC8:15 AQ ЗА 82 DE FS 21 40:А5 A278: 85 - 
EC の KA 


A280: DE 
A288:24 24 ES 2А 31 DE 22 33:BB 
A290:DE El 22 31 DE C? 00 ES:9E 
EERE C CIR ушне EOE EE a ua s A298:2A 35 DE 22 37 DE El 22:77 
Sum: 01 F7 AC 04 CB EQ 65 BF:47 А2А0: 55 DE 24 24 ES 2A 39 DE:81 
4248:22 3B DE El 22 39 DE C9:1E 
nA2B の : 9 の ES 24 SD DE 22 3F DE:69 
QA2BB:E1 22 3D DE 24 24 ES 2A:75 
А2С@:41 DE 22 43 DE El 22 41:46 
A2C8:DE C9 C5 ES 2А BF DE 23:0B 
А200:7Е 47 ED SF 80 85 22 8F:C7 
A2DB: DE E1 Ci C9 ZA 91 DE 5С:2Е 
A2EQ:FE の 1 20 OB ЗЕ QQ 52 91:2B 
QA2EB: DE ZA 49 DE C3 1B A1 22:10 
A の 4 の : 5С 32 ВА DE FE の 6 CA 69:0D A2F0:91 DE C3 41 А2 ЗА 92 DE:BF 
А048: А0 18 1D 2A 41 DE CD 7B:66 A2FB8:FE 
oe 
^058:21 70 8C 85 éF 7E 47 Е1:С7 
А060: さじ 32 89 DE 78 32 66 DE:C3 
А058:С9 ЗЕ 00 32 ВА DE 3C 32』 の F 


А550: 2А 
А558:С9 ЗЕ 00 32 20 DE 52 21:8А 
А540: DE 32 22 DE Ср 48 А5 C9i9 さ 3 
А548:Ср 15 Аё 21 OC 07 ЗА 12:06 
А550: рЕ CD 87 94 11 50 8C 21:14 
A558:ØC OB CD 76 94 11 AØ 8C: 2B 
ASAD: 21 OE 07 CD 76 94 11 BiC6 
A568:8C 21 ØE 14 CD 76 94 SA:EQ 
4570:12 DE 21 の の 00 01 50 00:52 
A578: の の 


AØØØ:AØ ZA 88 DE FS 21 70 ВС: 52 
А0208: 85 6F 7E 47 F1 3C 32 88:40 
人 の 1 の :DE 78 32 65 DE ЗА 1C DE:FF 
AQ18:FE O1 C2 48 AØ ЗА 83 DE:64 
^A020:F5 21 40 ВС 85 6F 7E 47:9B 
AQ028:F1 3C 32 83 DE 78 FE FFi う 5 
A030: 20 19 ЗЕ 00 32 1C DE 2A:CD 
A058:41 DE CD A2 91 ЗА ВА DE:C1 


A580: 21 
AS88: 7D 21 QE ØF CD 87 94 SE:E1 
a590:00 21 ØE 11 CD 87 94 C1:E9 
AS98:CD E4 AS SE 10 CD 04 95:04 
ASAØ:CD 05 Aé 21 OE OD CD 87:08 
AS08:94 79 21 QE ØF CD 87 94:53 
ASBO:3E 00 21 ØE 11 CD 87 94:66 
ASB8:CD A1 94 の の の の 00 ЗЕ 00:40 
ASCO: BB 20 DB B9 20 DS ЗА 12:AA 
ASCB:DE 3C 27 32 12 DE CD E4:14 
ASDO:AS 11 CB 8C 21 OC の 7 CD: OB 
ASD8:76 94 11 C8 8С 21 ØE @7:А5 
ASEO0:CD 69 AF C? FS C5 の 6 80:ЕЕ 
АЅЕВ:@Е FF ØD 20 FD 05 20 F8:54 
Q5F の iC1 F1 C9 FS 7D 81 27 6F:04 
ASF8: 7C 


—— —À — — — PU 


А500: ЗА 93 DE FE 30 DA C9 &3:1F 
А4070: 5 DE ЗА BB DE 3C 32 ВВ:ЕЗ A308: 3E 00 52 92 DE 32 95 DE:835 
^078:DE FE ØF СА SC Ві C3 58: ED А510:21 08 1C 22 2D DE 24 24:BA 
ーーーーーーーーーーーーーーーーーーーーー ニ ーー ニーーーーー ニ ーー A318:22 31 DE 21 OA 1С 22 35:CF 

; A320:DE 24 24 22 39 DE 21 61:Е1 
A328:DE ЗЕ 4B 77 23 3C 77 23:D7 
A330: 3C 77 23 ЗС 77 ЗЕ の の 32:F9 
A3538:94 DE CD 85 A4 ЗА 96 DE:16 
A340: 3C 52 96 DE FE Q3 C2 C9:6E 
A348:A3 ЗЕ 00 32 96 DE ЗА 94:55 
Aa350:DE FS 21 60 8D 85 éF 7E:53 
A358:47 F1 3C 32 94 DE 78 FE:8E 
A360:FF 20 2F 2A 2D DE CD A2:F2 
4368:91 24 24 CD А2 91 24 35:38 


2080: А0 21 00 OO 22 17 DE 22sFA 
AO088:19 DE 22 1B DE ЗЕ の の 32:82 
A090:7D DE 22 ВА DE SE の 1 32:56 
A098:69 DE の の OO QQ QQ OO 00:47 
AAD: の の 00 OO C? CD EO 90 ҒЕ: 04 
АВАВ: 1A 30 F? Có の 4 67 2E 14:B6 
AOBO:C9 32 7E DE 78 FE FF C2:8E 
AØB8:AC 9E ЗЕ 00 32 17 DE C3:72 
А0С0: 98 9E E5 2А 2D DE 22 ZF:Al A370:DE CD А2 91 24 24 CD 02:95 
AØC8:DE El 22 2D DE C9 ES 24:C4 А578:91 
БОБОВ 33 DE" "EI 22 НУ: С. ETRURIAE EET E QE rem 
AØD8: DE C9 ES 2А 35 DE 22 37:22 
AQEQ:DE El 22 35 DE C9 ES 2A:CC 
AOEB8:39 DE 22 3B DE E1 22 39:8E 
AØFØ:DE C? ES 24 SD DE 22 3F:32 A388:FD の 5 20 F8 CD 39 AS C3:88 
AOF8: DE E1 22 Зр DE C9 ES 24:D4 AS90:958 B1 2A 2D DE CD 7B 9S: 1B 
FE ADS ра ОНЕ Fd CP No ی‎ POL A398:ES 2А 2D DE 22 2F DE 20:73 
АЗА@:51 DE 22 33 DE 2А 55 DE:7F 
AZA8:22 37 DE 2А 39 DE 22 3BiD5 
ASBO:DE E1 ES 22 2D DE 24 24:19 
ASB8:22 31 DE E1 2C 2C 22 351C1 
` ASCO:DE 24 24 22 39 DE CD 1F:4B 
ASC8:44 C9 の の QQ ЗА 20 DE FE:A3 
n3D の : の の 20 OD CD Ø? A4 22 51:1А 
ASD8:DE SE の 1 32 20 DE 18 26:8B 
ASEQ: ЗА 21 DE FE 00 20 ØD CDsi る 1 
ASE8:09 А4 22 55 DE ЗЕ 01 32:73 


A600: 78 
4508: 10 27 4F 78 DE の の 27 47:4A 
A610:F1 78 C9 ЗЕ CO 32 4D 9D:4C 
0618:32 70 9D 32 93 9D 32 2A:FD 
4220: А4 32 43 АА 32 SC A4 C9: B8 
A628: 3E Q6 32 4D 9D 32 70 9D:9F 
A630:22 93 9D 32 2A А4 32 43:D7 
A638:04 32 SC A4 C9 CD 28 Аё: 3A 
A640: ЗЕ の 1 22 92 DE C9 ЗА 77:5B 
A448: DE ЗС 32 77 DE FE の 3 CA:6C 
AeS0:SE Ab SE 00 32 76 DE SC:04 
A658:32 69 DE C3 8A AC ЗА 78:24 
A660:DE ЗС FE の 6 20 の 2 ЗЕ の の :7E 
A668: 52 78 DE 21 00 8D 85 OF: 2A 
A670:7bE 32 70 DE ЗА 79 DE 3CiCB 
65678: FE 


a380:19 DE の 6 40 OE FF ØD 20:77 


A1 の の : 41 DE 22 43 DE El 22 41:46 
A108:DE C9 13 14 FE 00 C3 FA:8F 
QA11 の :99 3A 7B DE 3C CS 64 9C:2B 
A118:3A 69 DE FE Q1 C2 93 41:76 
А12@:5А ФА DE 3C 32 БА DE FE:26 
4128:04 20 1E CD SC А2 22 2D:5C 
A130:DE 24 24 22 る 1 DE ЗЕ 49:DE 
А158:52 61 DE 3C 32 62 DE 3E:5D 
A140:01 52 17 DE 32 18 DE 18:68 ASFO0:21 DE 18 12 ЗА 22 DE FE:61 
4148: 4А FE 09 20 1E CD 5С A2:5A ASF8: 00 
EDR 
A158:3E 49 32 63 DE 3C 32 64:CC 
A169s DE ЗЕ 01 32 19 DE 32 10:92 
^158:DE 18 28 FE ØE 20 24 CD:3B 
А170:5С A2 22 3D DE 23 23 22:43 A408:00 ЗА 95 DE 5С 32 95 DE:8A 
^178:41 DE ЗЕ 49 32 65 DE 3C:57 A410:CD CA A2 FE ØC 30 F? Сё: 52 
Жыры аро I ЫН NEES EE оа еда A418:Ø8 6F 26 1E C? QQ QQ ZA:BE 
A420: 20 DE FE QQ 20 12 CD CA:C5 
A428:A2 FE Q6 3 の ØB CD éD A4:BF 
A430:22 51 DE ЗЕ の 1 22 20 DE:CO 
А458:5А 21 DE FE 00 20 12 Ср: 56 
A440:CA A2 FE の 6 50 QB CD 6D:ES 
А448:А4 22 55 DE 3E 01 52 21:8B 
A450: DE 
A458: CD 


A680: DE 
A6488: 4E 23 46 ED 45 6B DE ЗА: 6A 
A690: 7А DE 3C 32 7А DE FE 06:22 
A698:CA AA Аё SE 00 32 76 DE:DE 
A6A0:32 77 DE SC 32 69 DE C3:FF 
A668:8A AC C3 09 A7 FE 04 20:CB 
A6BO0:02 ZE の の 22 7B DE CB 27:BD 
A6B8:21 3 の 8D 85 6F АЕ 25 46:89 
AeCO:ED 43 6F 97 CD 90 9C CD:FC 
Ae6C8:81 AØ CD 92 A4 CD 9 の 9C:1D 
A6DO:CD 69 A2 00 00 00 C3 65:05 
A6D8:47 ЗЕ 00 52 ВА DE 3C 32:ED 
A6EQ8:69 DE ЗА BB DE 3C 32 8B:E3J 
Q6EB: DE FE ØF C^ 10 AD C5 87:BC 
no6F ウ knB SE OQ 52 8D DE 3C 32:F1 
A6F8: 69 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 


А400: DE SE Q1 32 22 DE C9. 00:18 


4180:32 66 DE ЗЕ Q1 32 1B DE:EO 
A188:52 1C DE 3E の の 32 69 DE:E3 
A190:32 БА DE ЗА 17 DE FE 91:658 
A198:20 33 24 2D DE 25 7C FE:27 
А1А0:00 20 22 SE の の 32 17 DE:A7 
A1A8: 32 


PC-8801 の USER は 「 い わ ゆ る コン ピュ ー タ と は …」 と いう 考え を 持っ て いる ん で す よ ね . や っ ぱり PC-8801 は サイ コー だ . JA, BS, みな 


(буге (О) し 皆さん 聞い て (読ん で !?) く だ さい よ . な ん と 私 の 学校 の 1 年 生 に は 。 PC-8801 の USER が 私 を 含め て 2 人 し か いな いん で す よ .。 あと は X1 の 

Ол Ол ⁄, USER ば っ か りな ん で す . USER の 多い ハズ の PC-8801 が これ で は 立場 が な い . し か し ,X1 の USER は 「 ゲ ー ム し た い ノ 」 よ いう の が は ほとんど で 
% 

みり ょ うこ きる ん バン ザー イ (Tettch) 


A700: DE 
A708: AŞ 
A710: ЗА 
A718: 24 
A720: CB 
A728: 23 
A730: 9C 
A738: 90 
A740: CS 
А748: FE 
A750: 19 
A758:18 
A750: A? 
A768: 25 
A770:E9 
A778:A8 


A780: 05 
A788: C3 
A790:E7 
А798: 17 
А7А@: DE 
A7AB: 02 
A7B0:76 
А768: CA 
A7C0: 32 
A7C8: 9A 
А700: SE 
A7D8: ЗА 
А7Е0: 0:5 
.A7E8: 00 
A7F0: 32 
A7F8: DE 


QB の Bi:FE の 3 
A810: ЗА B1 


^818:98 АС: 


04820: А5 97 
A828: 00 FE 
A830: ЗЕ 00 
A838: 22 97 
A840: 03 20 
A848: 32 1F 
A850:DE C9 
A8S8:CD 10 
A860:03 СЗ 
AB68:C3 ВЗ 
A870: DC АВ 
A878: A? FE 


А880: ҒЕ 08 
A888: 5А ^7 
A890: 9F DE 
A898: DE 22 
АВА@:ВЕ CD 
АВАВ: 32 ВА 
A8BO:C3 87 
^8B8: 32 AØ 
A8CO:31 DE 


ABCBi2A BE. 


А800: さじ 32 
A8D8: A6 C3 
A8BEØ: DE 32 
ABE8:2A 35 
ABFO:CD 2A 
ABF8:DE 5С 


Sum: BA 8B 


a900:D9 ^& 
A908: 1A DE 
A?10:DE 2A 
4918:04 CD 
A920۵: 8A DE 
A928: CA D? 
A9302: 32 1B 
A938: 9D DE 
A940: 3E 04 
A948: ЗА ВА 
A950: の 6 CA 
a958:00 32 
A960: 52 9E 
А958: DE ЗЕ 
A970:94 ЗА 
A978:FE Q6 


Sum: 18 Di 


^A980:E1 Fi 
A988:F1 FE 
A990:FE の 5 


ААВ: DE 32 


A9B0: 2A 
A9B8: CD 
A9CO:DE 
A9C8:F1 
A9DO: 19 
A9D8: 3C 
А9Е@:А7 
А9ЕВ:А1 
A9FO:DE 


"A^A9F8:49 


AAO: DE 
QAOB : 2A 
QA1 の iCD 
AA18: DE 
An201F1 
AA28: E5 
QA さ の 』 32 
ДАЗВ: F 1 
АА40: 32 
AA48: DE 
AASO: 95 
AAS8: 3B 
AAGO: ЗА 


AA68:18 


A070: の の 
AA78: 20 


AA80: CD 
AA88: ØD 
АА90: DE 
AA98: 90 
AAA: ЗА 
АААВ: B7 
AABØ: CD 
ААВВ: 32 
AACO: ЗА 
AAC8:A1 
AADØ: AC 


QB の の 』91 
QB の Bi DE 
АВ10: DE 
AB18: 3C 
AB20: 04 
АВ28: ЗЕ 
nB さ の = 18 
AB38: FE 
AB40: 32 
AB48: FE 
AB50: の の 
aABS8: 03 
ABO: 99 
AB68: DE 
^B70: DE 
AB78: A2 


AB80: の の 
ABB8: の 9 
AB90:F7 
AB98: 2C 
АВАВ: DE 
ABAS: 20 
ABBO: A2 
ABB8: AØ 
ABCO: 24 
ABCB』 FE 
ABDO: 3C 
ABDB: 4D 
ABE: 24 
ABEB: 9B 
ABFØ:F7 
ABF8: C3 


АС@0@› ЗЕ 


АСВ: SC 
AC10:3C 
AC18:F7 
АС20: 3C 
AC28: А2 
ACSA: 2C 
AC38: 42 
AC40: ØD 
AC48: FE 
ACSO: E1 
АС58:97 


リス ト 2 FIGHTER 


AC60:01 
AC68: の の 
AC70:97 
AC78:FE 


AC88: DE 
AC90: 6E 
AC98: 2A 
ACAO: 49 
АСАВ: DE 
ACEO: CD 
,ACBB: 33 
ACCO:C9 
ACCB: A? 
ACDQ:91 
ACD8: CD 
ACEO: 43 
ACE8: C9 
ACFQ:E1 
“СЕВ: ЗЕ 


AD00: 33 
AD08:B1 
AD1 2: の の 
AD18: AD 
AD29: 60 
^D28: CD 
^D30: 30 
AD38:F8 
А040: A2 
AD48: 2A 
ADS: DE 
ADS8:C9 
AD6O: 29 
AD68: 07 
А070: 24 
AD78: FE 


AD8Q: CD 
AD88:01 
А090: ささ 
AD98: 28 
ADA0:C3 
ADAB: DE 
ADB0:17 
ADB8: 77 
Арсе: 22 
ADC8: DE 
ADDO: 7D 
Аррв: 22 
ADEO: DE 
ADE8:01 
ADF0:14 
ADF8: 20 


eo 


201 マシ ン 語 リス ト 


18 1A:54 
21 DS:1E 
の の 00: 52 
98 22:09 


AE8Q: 1B 
AEB88: 1B 
АЕ9@: ЗЕ 
AE98:47 
АЕА: CD 
AEAB: 1E 
AEBO: D1 
AEBS: CD 
АЕС@: BE 
AEC8: SF 
AEDO: SF 


52:94 
A7:C7 
20:40 
4D: 67 
DE: DE 
2A: AØ 
DE: CØ 
20:32 
42:02 
DE: 54 


65 


pi 


リス ト 2 FIGHTER 201 マシ ン 語 リス ト 


AF00: 5Е 
AF08: 22 
AF 1 の : 21 
AF18:1E 
AF20:F7 
^F28: 52 
AF30:ED 
AF 358: CD 
AF40: BE 
AF48:1B 
AFSO:F1 
AFS8: 6B 
AF 40: DE 
RF 6 日 : C9 
AF70: 22 
AF78: DE 


Sum: 7E 


AF80: 99 
AF88:E1 
АЕ9@: ЕЕ 
AF98: 13 
AFAQ: 94 
AFA8: 7 
AFB の : CD 
AFB8:DE 
AFCO: DE 
AFC8: DE 
AFDO: CD 
AFD8:8E 
QAFE の =: 2B 
AFEB: CB 
AFFØ: 7 
AFF8:B1 


B@00: 96 
B008: 22 
B の 1 の : 14 
BQ18: 13 
` B@20: 21 
B028: во 
B の 3 の : 28 
BO38: 44 
‘BO40: CD 
BO48: OC 
B の 5 の : ØC 
BØS8: 1 の 
B の 6 の : 1 の 
BØ68: 14 
B070:14 
BQ78: OC 


BB の : 21 
B088:94 
BO90: 76 
BO98: CD 
BOAO: 8F 
BOA8: 08 
BOBO: B1 
BOB8: 90 
BOCO: 9 の 
B の Ci 21 
BODO: 24 
BOD8: DE 
BOEQ: 24 


BOE8:04 : 


B の F の : 07 
BOF8: 10 


Sum: F2 


B100: 21 
B108: AF 
B110: 76 
B118:CD 
B120:11 
B128:2C 
B130:B4 
B138: CA 
B140: 22 
B148:CD 
B150:DE 
B158:F5 
B160:79 
B168:CD 
B1 70: АА 
B178: 32 


B180: の の 
B188: の 1 
B190: B1 
B198: CD 
в1А@:С9 
B1 AB』 ЗА 


B 1 BO: 90 
B1B8:CD 
B1CQ: CD 
B1C8:B9 
B1 DQ: B8 
B1 D8: の の 
B1E の 』 CD 
B1E8: BC 
B1FQ:32 
B1F8: 3E 


Sum: 9 の 6 


B200: 98 
B208: の の 
B2 1 の: 32 
B218:01 
B220: 39 
B228: DE 
B230: 90 
В258:С9 
B240: FE 
B248: DE 
B250: 90 
B258:94 


 B260:DE 


B268: BD 
B270: 3E 
B278:21 


Sum: 2C 


B280: 20 
B288: B2 
B290: の の 
B298: CO 


B260:DE : 


B268: CD 
B2BQ: CA 
B2B8: B3 
B2C0: の の 
B2C8: 10 
B2DQ:C3 
B2D8: 3E 
B2EQ: CD 
B2bE8: CD 
B2FQ:E7 
B2F8: АЕ 


B300: CD 
B308: CD 
B310: 6D 
B318: CB 
B320: DE 


B328:00 3 


B330: A2 
B338: DE 
B340:9D 
B348: B7 
B350: 3a 
B358: 01 
B360:DE 
B368: 22 
B370: 3E 
B378: C9 


B380:E1 
B388: 3C 
B390: C9 
B398: DE 
BSAA: 24 
ВЗАВ: 32 
BS3BQ: CD 
B3B8:C9 
B3CO0: 20 
B3C8: CD 
B3DQ:63 
B3D8:FE 
BSEQ: DE 
B3E8: 21 
B3FQ:32 
BS3F8: C4 


Sum: F3 


B400: DE 
B408: 13 
B410: 32 
B418: DE 
B420: 3E 
B428: DE 
B430: AA 


B438: AA 


B440: AA 
B448: 55 
B450: 55 
B458: 55 


B460: АА 
B468: DS 
B470: BS 
B478: AA 


B480: AA 
B488: AA 
B490: AA 
B498: 96 
B4A0: АА 
B4A8: AA 
Ваве: А9 
B4B8: Ab 
B4C0: АА 
B4C8: A9 
B4D0: AŞ 
B4D8: 94 
В4Е0: 9A 
B4E8: AA 
B4FQ: Ab 
B4F8: SA 


B500: 55 
B508: А5 
B510: 56 
B318: 55 
B520: AS 
B528: 55 
B330: 55 
B538: AS 
B540: 55 
B548: 56 
B550: AS 
B558: SS 
B560: SA 
B548: AS 
5570:55 
B378: А 


B598: AS 
ESAO: 6 
B5A8: 55 
BSBQ: AS 
B5B ェ 』 AS 
BS5CQ: 55 
B5C8:A5 
B5D0: 49 
B5D8: 55 
В5Е@:А5 
BSE8: 5A 
BSFQ: 55 
BSF8:45 


B600: 56 
B608: 55 
5610:A5 
B618: 55 
B620: 55 
B628: AS 
5630:55 
B638: 55 
B640: А5 
B648: 55 
B650: 55 
B658: AS 
B660: 95 
B668: 55 
B670: A0 
B678: 1 の 


Sum: D7 


B689: 14 
B688: AQ 
B690: 1 の 
B698:14 
B6A9: А0 
B6^8: 10 
В&В@: 14 
B6B8: Ай 
В&С@: 10 


B6C8:14 


BADO: А0 


S 
5 
^ 
5 
5 
^ 
5 
5 
А 
5 
5 
A 
Š 
5 
A 
5 


192 
:FC 
1:52 
:FD 
:02 
: 3E 
: ЗЕ 
: ЕВ 
3E 
: ЗЕ 
:F8 
: ЗЕ 
ЗЕ 
:BC 
s 3E 
:ЗЕ' 


5 
s 
5 
ワ 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
Š 
に ) 


p X 1 て 複雑 だ な 一 , 僕 は PC-6001 を 前 に 使っ て いた た め に , あま り に も 複雑 な X1 の 仕組 に 驚い て し まっ た . と ころ で , X1 の PCG は グラ フィ 
ッ ク と 合成 する と , 黒 の 所 が か けり て し まい ます . Mc に なこ ke И, P.S. 12 月 に Z-800 が 発売 だ . ぼく 
iQ の X1 は どう な る の . うち に ある Z-800 の マニ ュ ア ル を 読む な びに 恐ろし く な る . (BC=co の LDDR) 


B700: А0 
B709: 1 の 
B710:14 
B718: ^0 
B720: 10 
B728:14 
B730: AA 
B738: 96 
B740: А5 
B748: 96 
B750: А5 
B758: AA 
B760: АА 
B768: 55 
В770: А5 
В778: АА 


в780: 55 
B788:96 
в79@:А5 
B798: AA 
B7AQ: 55 
B7A8: АА 
В7В@:55 
B7B8: 96 
B7CQ: АА 
B7C8: 95 
B7D の : 95 
B7DB: 96 
B7EQ: AA 
B7E8: 95 
В7Е@:А5 
В7ЕВ:А9 


B800: A9 
B808: AA 
B810: A? 
B818: 9S 
B820: AA 
. B828: 55 
B8:20: 95 
B838: AA 
B840: 95 
B848: AS 
B850: АА 
B858: 95 
B860: AS 
B868: AA 
B870: 55 
B878: 95 


B880: AA 
B888: 49 
B890: 55 
B898: А5 
B8A0: 49 
B848: AŞ 
B8BQ: AA 
B8BB8:74 
BBC の : 95 
B8C8: AA 
BBD の 』 74 


B9 の の 』 74 
B908: 95 
B9 1 の: АА 
B918:74 
B920:95 
B928: АА 
B930: 74 
B938: 95 
B940: AA 
B948: 74 
E950:95 
B958: AA 
B960:74 
B968: 95 
B970: АА 
B978:66 


—— — qA 


B980: 66 
B988: AA 
B990: ^6 
B998: АБ 
B9^0: АА 
B9^8: 66 


B9E0: 66 
B9B8: AA 
B9CQO: 66 
B9C8: 65 
B9DQ0: АА 
B9D8: 56 
B9EQ: A6 
B9E8: AA 
B9F の =: ё 
B9F8: 66 


BA の の i АА 
BA の : 66 
BA1 0: 66 
BA18: AA 
BA20: 66 
BA28: 99 
BAZO: АА 
BAZ8: ё 
BA4Q: 66 
BA48: AA 
BASA: 95 
BAS8:49 
BA60: АА 
BA68: AA 
BA7Q: AA 
BA78: AA 


ВА80: AA 
BA88: AB 
BA90: АВ 
ВА98: 97 
BAAO: АА 
BAAS: АА 
BABO: АВ 
BAB8: AA 
BACO: AA 
BAC8: AF 
BADO: AA 
BAD8: AA 
BAEO: AF 
ВАЕВ: АА 
BAF Ø: AA 
BAF8: AA 


BB の の: А7 
BB の 8: AA 
BB1 の isFD 
ВВ18: AA 
ВВ20: AA 
BB28: 97 
BB30: AA 
BB38: AA 
BB40:49 
BB48: 595 
BBS の : Bé 
BB38: 75 
BB60: 75 
BB68: 9F 
BB7 の : 95 
BB78:49 


BB80: 7D 
BB88:765 
BB90: 75 
BB98: AA 
BBAQ: AA 
BBA8: AA 
ВВВО: AA 
BBB8:ñ6 
BBC0: ФА 
BBC8: AA 
BBDO: AA 
BBD8: A6 
ВВЕ@: AA 
ВВЕВ: АА 
BBFQ: 6A 
BBF 日 s АА 


Sum: 82 


BC の の : АА 
BCQ8: 9A 
BC10: A6 
BC18: AA 
BC20: АА 
BC28: AA 
BCS の АА 
BC38』 АА 
BC40: АА 
BC48: АА 
BCS0: ^A 
BCS8: AA 


リス ト 2 FIGHTER 201 


Sum: 3C 


BC80: АА 
BC88: AA 
BC の : A9 
BC 』 Аё 
BCAO: АА 
BCA8: A? 
BCB0: A9 
BCB8: AA 
BCCO: AA 
BCC8: AA 
BCDQ: 6A 
BCD8: A? 
BCEQ: АА 
BCE8: 6^ 
BCF の : AA 
BCF8: 6A 


Sum: D8 


BDOO:49 


BDQB8: AA 
BD10: АА 
BD18: AA 
BD20: АА 
BD28: AA 
BD さ の : АА 
BD38: AA 
BD40: АА 
BD48: АЕ 
BDS0: FF 
BDS8:FF 
BD6 の : AF 
BD68: FF 
BD7Q: 7F 
BD78: AF 


BD80:FD 
BD88:7F 
BD9Q: AF 
BD98:FD 
BDAQ:FF 
BDA8: AA 


BDBOQ: 95 
BDB8: 9A 
BDCQ: 55 
BDC8: AA 
BDDQ: АА 
вррв: ғр 


BDEQ: AS 


BDE8: AA 
BDFQ: 41 
BDF8:FD 


BE の の : А5 
BE の: の の 
BE 1 の: の の 
ВЕ 18:00 
BE20: 20 
BE28: AA 
BE 3A: の 4 
BE38: 24 
BE40: C9? 
BE48: の の 
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き 今月 の P 


> 
gy 


FM-7 


K コ ン バ パイ ラオ マシ ン 語 


一 Super Mephist 


1988F Ж. 

「 堪 前 頭 葉 上 部 に 0.5/s の パル ス 」 

その 声 を 聞い た 助手 が スイ ッ チ を 入れ た . 
「 脳 波 に 変化 は ? | 
「 あ り ま せん 」 

「 そ れ で は 右前 頭 葉 上 部 に 同じ パル ス 」 

スイ ッ チ が 入る . 

「 変 化 は ? 」 

「 あ り ま し た . アル ファ 波 お よび ゼー タ 波 
に 振幅 の 増大 が 見 られ ます 」 

指示 を 与え て いた 男 の 表 情 が 変わ っ た . 
「 次 に 同じ パルス を 1ms の サイ クル で …」 

再び スイ ッ チ が 入れ られ た 時 , 右 大 脳 部 
の 未知 の 大 陸 か ら の 異常 な 波 を 1 つの 計器 
が 捕え た . そし て , 室内 は 不思議 な 光 で 満 
た され た …・。 

2005 年 . 

私 は コッ クビ ピット に 座り , 左手 を コン ト 
ロー ル ・ プ レー ト に 乗せ た . そして, 右手 
を 額 に 近づけ た . … だ が , 私 は そこ で 動き 
を 止め た . 

5 宣 じ いこ を な ん だ ろう か 7? リ 」 

も し も この まま , ここ に 埋め 込ん で ある 
"パル サー スイ ッ チ “を 押せ ば , 私 は 超人 と 
化し , 私 た ち 新 人 類 を 撲滅 し よう と し て い 


まず , マシ ン 語 部 (3300H 一 49FFH) を 入 
DD 用 ッ ド セー ググ し ます Ut 
3BEOH, 3BE3H, 3BE6H に 39H を 書き 込 
AT CLEAR, &H3B8O| RETURN | を 実行 し 
た 後 。 ソン ー ス ・ リ スト を 入力 し て セー し 
Kn, 

次 に KK コン パイ ラ を 裏 RAM に 移し て マー 
ス を コン パイ ル し ます . 無事 に コン パイ ル 
きれ る と オブ ジェ クト ・ サ イズ は 2A2CH に 
な る は ず で す . 


る 旧 人 類 と 戦わ な く て は な ら な い 、. 
「 し か し , 彼 ら に は 彼ら な り の 理由 が ある 」 
20 世 紀 末 に 行なわ れ た あの 実験 が も し も 
失敗 し て いた ら ,。 彼ら も , そし て 私 た ち で 


さえ も 新しい 人 類 の “誕生 " に 気付 か な か ・ 


っ た は ず . 東洋 の 小島 で 自分 た ち も 知 ら ず 
に 新しい 可能 性 を 身 に つけ て いた ,。 た か だ 
か 数 万 の 人 間 . し か し , 私 も その うち の 1 
人 な の だ . 
「 で も , この た っ た 直径 1 cm の 機械 が な け 
れ ば , オレ だ っ て 普通 の 人 間 じ ゃ な いか …」 
辺り は 妙 に 静か だ っ た . や が て 私 は 心 を 
決め て "パル サー スイ ッ チ "を 押し た . 
一 瞬 , 研ぎ 浴 ま され た 感覚 の 中 で , 多く 
の 人 々 の 悲し み が 突 き 抜け て 行っ た …. 


プロ グラ ム ・ イ ン フ ォ メ ーション 


\ ろ いろ と 凝っ た 所 が あっ て と て も 
面白 く 出来 上 が っ て いま す . (V) 


コン パイ ル さ る され だ ら CLEAR, &H33OO 
[RETURN] を 実行 し , 先ほど の マシ ン 語 部 と 
ラン タイ ム ・ ル ー チ ン を ロー ド し て ゲー ム 
41&(3300H—7A2DH) を セーブ し ます . 


音楽 演奏 サブ ルー チン は 3300H 一 3BFEFH 
t. 私 の オリ ジ ナ ル が シン ブロ グ 入 な を 
自動 演奏 用 に 作り 変 を た た も の で す (近い うち 
に 発表 し だ いと 思っ て いま す )。 

まだ, 3C00Hー3FEFEH ま で は キャ ラク タ 


の 出現 コン トロ ー ル ・ デ ー タ で す 。 そし て 


マシ ン 語 の 残り の 49FFH ま で は , 3-7 CPU 
の ユ コントロール 用 (キャ ラク タ ・ デ ー タ 含 
inc. 

キー スキ ャ ン に 関し て は , 私 独自 の 方 式 
を 使っ て いる の で 操作 性 バッツ グン で す . 


£5 遊び 方 


テン ・ キ ー で 飛行 機 が 8 方 向 に 動き ます . 
また だ , 爆弾 は 連発 可能 で , 放物線 を 描い て 
移動 し て いき ます . 操作 キー は テン ・ キ ー 
} [ESC] キー 以外 の キー で す . ちな み に [ES 
С| キー は BASIC の コマ ンド ・ レ ベル に 戻る 
ため の も の で す . 


終わ り に 


K ユ コンパ イラ は 使い 易い (で すね . と ころ 
С, スク ロー ル ・ ゲ ー ム で し か も KK コン パパ 
イラ を 使っ て いる こと か ら PiO5 月 号 の 「 オ 
ペレ ーション D" に 以 て いる と 考え だ 人 も い 
る と 思い ます が , ブロ グラ ム 本 体 は 独自 の 
方 法 を 使っ て いま す (で も , ずい ぶん 参考 
に な り ま し だ た 。 あり が と うさ ぎざぎざ い ます )。 
P.S.: I/O や PiO の 読者 に 大 貫 妙 子 の ファ 
ン は いな いか な ぁ . 曲 な ん か と て も カワ イ 
Tnt k. / 


参考 文献 
1) = W ЖИ mkate ジン р", PIO, 


LOGRO) 辛かっ た ナイ コン 時 代 , 画面 の 狭 き や メモ リ ・ オ ー バ ー に 人 悩ん だ (!?) ポ ケ コ ン 時 代 、 そ れ を 乗り 越 た て MZ-80B( 中 古 ) を 買う こと が で きま し 
QA QA Ok. これ か ら 1/O や PiO に に プロ グラ ム を 発表 し て 行き た いと 思い ます .。 


の ポス ター を 買い まし た . 


P.S.1 映画 を 見 た 帰り に , アニ メッ ク に 寄っ て クリ ー ィ イー ミー マ 


> 
` 


P.S2 PO の 読者 に 「 ク リィ イー ミー マミ 」 フ ァ ン は 何人 いる の で し ょ うか ? 


(PC-1245&MZ-80BUSER の MUSHA) 


оо 


Sensible Time マシ ン 語 リス ト 
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リス ト 1 Sensible Time マシ ン 語 リス ト 


ーー 
"O ‘© Pigs, 毎号 の 特集 の テー マ に 頭 を な や まし て いる PiO 編 集 部 ヘ ノ 「 特 集 ・ お し ゃ べり ゲー ム 」 と いう 名 前 で パピ コン mkII の ゲー ム ば か 
QA Ол る り を 載せ る (そう いえ ば , mkII 単 独 の ゲー ム が 載っ て いる の を PiO で は 見 た こと が な いな ぁ ). (ネアンデルタール 渡辺 ) 
A i 


-21,JULY, 1984 *) 
20 to DATA & SUB: $3300—-$48FF 
ephist *) 

3O 'INTADR-$FFF8; ІМТВОЕ = INTADR (0) ; INTADR 
(2) =$3BFØ; POKE $FDO2,4 

40 'HISCO-Q; ARYDEF [$4A001 

50 ‘START; SCORE-0; SCORE22500; 5НІР=4; SCEN 
E=ー1 

60 'START1; SCENE=SCENE+1 』FUINT= の 9』 GATE= の 
70 'START2; SCREENI 1; 8X20; SY=100; SAX=0; SA 
Y= の sFUR I=@ TO 7; BOMX (І) 2-1; NEXT 

80 'BON-Q;FOR I-O TO 3; BAON (1) 20; NEXT; FO 
R 1=@ TO2』MBON( 1 ) =0; NEXT 

9 の ‘FOR I=@ TO 2』MSON(1) =0; МЕХТ; РОК 1=@ 
TO 2; B20N(I) 20; NEXT; ISUN= の 』 ICUN= の 

1 の の SUUND 1 =Ø; SDUND4= の 』 BUFFONEC 1; DES= の 
110 ‘IF SCENE= の AND POINT=@ THEN 

120 ‘SYMBOLC150, SO, "SENSIBLE", 3,4,51; SYM 
ВОС 148,49, "SENSIBLE", 5,4,21 

130 'SYMBOLI150,100,"TIME",4,5,71; SYMBOL 
[148,99,"TIME",4,5,13 

140 'GPRINTL10,20,6,"* Push Return Key ! 
3 

150 ‘READY; K-INKEYE ] 

160 ‘IF K=$1B THEN 

170 ‘POKE %Ғр02,0; BUFFOFF[ J; SOUND[ 7,2551 
; INTADR (の) =INTBUF ; CLSC ] END; FI 

180 ‘IF К<>15 THEN GOTO READY;FI 

190 'OPENC31;SETLSX,8Y,4,7,9C1E01; CLOSE[ 3 
200 "LINE[BO 。48 。 さ 99 。 175 。 の 9]』 CALL *% さ BE の ョ FI 
210 ‘FOR I=@ TO 10; SOUNDELI,01; NEXT; SOUND 
(7,9301; ЕҒЕВАЅЕ = (SCENE AND 3)*256 

220 'LOOP;POKE $3BFF,0; GATEZGATE-*1 

250 'EFE-$3COO0-*(SCENE AND 3)*256*POINT/( 
160*-SCENE/4*20) *16 

240 'KEYREADE3; SHIPMOVEL 1; BOARDE 1; BABE1[ 
J; MISBASEt ] 

250 "BOMBING[ 1; MISSLE[ 1; BASE2[ J; ICBM[ 1; I 
CBMUP[ 3; SOUNDAL 1; SOUNDBE 1 

260 ‘WHILE PEEK ($3BFF ) く 49』 МЕМО; POINT-POI 
NT+1 
270 
280 


by M 


'IF DES> の THEN GOTO DESOPR;FI 
‘IF EFEBASE+ 和 まさ CFF >EFE THEN GOTO LOOP 


;FI 
290 'SOUNDI8,01; SOUNDE 9,01; SOUNDLEL 12,21 
500 'WAITLS501; SYMBOLI 200,80, "BONUS", 2,3, 


31, SYMBOLL 197 , 79 , " BONUS" ,2,2,71 

310 ‘BONUS= (SCENE+1 ) *SHIP*10; SCORESE2L BO 
NUS1; DEGSETE 24, 128, 2, BONUS 

520 ‘CALL $3BE3; GOTO STARTI 

330 'DESOFR;IF SX= の THEN SX=l;FI;IF SX=7 
b THEN SX=75;FI 

340 'IF 5Ү<18 THEN SY-18;FI; IF SY>166 TH 

EN SY=166;FI : 

350 'OPENLJ;SETLSX-1,8Y-2,6,12,$CBFA1; CL 
OSEE 1 

360 'SOUNDIO,9?01; SOUNDI 1 。 の ]』 SOUNDC 2,01; 8 
DUNDE さ 。5] 

370 "SOUNDL4』9]』 SOUNDLS, 121; SOUNDL 6, 513, 
SOUNDC 7 , 01 

380 'SOUNDI8,161; SOUNDL 9, 161; SOUNDEC 12,16 
1; SOUNDE 11,02; SDUND[ 12, 301; SDUND[ 13,01 
390 'WAITL1003; OPENC 1; CLRESX-1,8Y-2,6,12 
J;CLOSEF ] 

400 ‘POKE $FD38,2;WAITL2003;POKE $FD38,0 
410 'SHIP*SHIP-1;IF SHIP»Q THEN GOTO STA 
RT2;FI 

420 'SYMBOLL90,50,"GAME END",3,3,11 

430 ‘IF SCORE«-HISCO THEN WAITL6 の の ]』 GOTO 
START;FI 

440 'SYMBOLLSO,100,"*«« NEW RECORD s", 

2,2,61; CALL $ さ BE6 

450 'НІЅСО=5СОКЕ;МАІТС5002; GOTO START 
460 'SHIPMOVE; IF SKEY>4B THEN 

470 'SAX-8VX(SKEY-49) ; SAY=SVY (SKEY-49) 4 F 
1; 8SX2=SX+SAX』 SBY2=BY+SAY 

480 ‘IF 5Х2<0 THEN SX2-0;SAX-Q;ELSE IF 5 
X2»76 THEN SX2=76』 SAX= の ョ FITjFI 

490 ‘IF SY2<16 THEN SY2=16』 SAY= の 』ELSE IF 
BSY2>16 THEN SY2-168;DES-1;FI;FI 

500 'OPENLJ4CLRESX,8Y,4,7J; SETLSX2,8Y2,4 
,7,9$C1E03; CLOSE[ 3 

510 'SX=SX2』SY=SY2』RETURN 


ty r<8 
530 ‘IF BOMX(I)*-1 THEN ВОМХ (1) =SX+2』 ВОМ 
Y (I) 28Y*6; BOAX (1) =SAX』 BOAY (1) =SAY 

540 'SOUNDLO,42; SOUNDI 1,02; SOUNDL 6,312, 8 
DUND[ 12,201; SOUNDEL 8, 161 

SS の 'SOUND3-8; SDUND4=1』 SOUND[ 13,021; I-8; E 
LSE I*I*1;FI; WEND;FI 

560 'OPENL3;FOR 1=@ TO 7;IF BOMX(I)<>-1 

THEN CX=BOMX (I) ; CY=BOMY (I) 

570 ‘IF BOAY(I)<15 THEN 

580 'BOAY(I)SBOAY(I)*1;FI; IF CY>15 THEN 

CLR1CCX,CY3;FI 

590 ‘BOMX(I)=CX+BOAX (1) ; BOMY (I1) =CY+BOAY ( 
I) 

400 ‘IF BOMX(I)<@ OR BOMX (1) >79 OR BOMY( 
1) >172 THEN ВОМХ (1) =-1; ELSE 

610 ‘IF BOMY (1) >15 THEN SET1CBOMX (1) „ВОМ 
Y(1),$C2343;F IF I5FI 

620 "NEXT』CLOSE[ 3; RETURN 

630 'BOARD;IF BON-Q THEN IF RND(256)«EFE 
:0) AND GATE>4 THEN 

640 'BX278; BHI=4+RND (EFE: 1) ) ; GATE= の 』 BON= 
2:ELSE RETURN;FI;FI;BX2-BX-1 


21 
660 ‘FOR I=(3-BX AND 2)*4 TO BHI*16-4 ST 
EF 16 

670 'CLRiCBX*1,166-BHI*16*11; NEXT; FI 

80 ‘IF BX2«0 OR BON-1 THEN ВОМ=0; LOSEL 
Ji RETURN; ELSE 

690 ‘IF CHRBOMCBX2,166,3,101-1 THEN SETC 
BX2,166,3,10,$C2941; BON-1 

'ELSE; ЅЕТСВХ2, 166, з, 1Ø,$C240J;FI;FI 
'DESCKLBX2*1,166- BHTIx16。 1,BHI*16*103 
'FOR I-(3-BX2 AND 3)*4 TO BHI*16-4 S 
16 
'"бЕТ1СВХ2+1,166-ВНІ#16+І ,%С904 1; NEXT 
740 'BX=BX2』 CLOSE[ ]』 IF BON=1 THEN SCORES 
ETC1031; FI; RETURN 

750 'BASE1;FOR І=0 TO З 

760 ‘IF BAON(I)-Q0 THEN IF КМ (256) <ЕҒЕ: 2 
) THEN IF GATE>4 THEN 

770 'BAX(1)=77』GQTE= の 』 BAON(CI)22;FI;FI;FI 
780 ‘IF BAON (1) > の THEN 

790 'BX25BAX(I)-1;IF ВАХ (1) <77 THEN OPEN 
2ELJ; CLREBAX (1) ,168,4,821;FI 

800 'IF BX2< の OR BAON(I)-1 THEN ВАОМ (І) = 
Q;ELSE BAX(I)-BX2 

810 ‘IF CHRBOMCBX2,164,4,121-1 THEN SETE 
BX2,168,4,8,$C3541; ВАОМ (І) =1; CLOSEC 1 

820 ‘SCORESETIS]; OPENL J; ELSE; SETLBX2,168 
,4,8,$C2F41; FI; DESCKLBX2,168,4,81;FI 

830 'FI;NEXT;CLOSE2L ] RETURN 

840 'MISBASE;FOR I= の TO 2 

BS の ‘IF MBON(I)=@ THEN IF RND(2S6)«EFE:4 
) THEN IF GATE»4 THEN 

860 'MBX(I)279;GATE-0; MBON(I)-3;FI;FI;FI 
870 ‘IF MBON (1) > の THEN BX22MBX(1)-1; IF M 
ВОМ (І) = さ THEN 

880 ‘IF (MBX(1)-SX) *2>166-BY THEN MBTYPE 
(I1)21; ELSE МВТҮРЕ (І) =0; FI 

890 'MISSHOTL3;FI; ТҮРЕ = (5-МВОМ (І) +МВТҮРЕ 
(I) #2) *60*$C3BA 

900 'IF MBX(I)<79 THEN OPEN2E 1; CLREMBX (I 
),166,2,103;FI 

910 ‘IF BX2«0 OR MBON(I)-*1 THEN МВОМ (І) = 
0; ELSE MBX (1) =BX2 

920 ‘IF CHRBOMLBX2,166,2,101-1 THEN SET[ ` 
BX2 。 166 。 2 。 1 の 。 和 を C4E6] 

930 ‘CLOSEC 1; SCORESET [7+ (MBON (I) -2) #35230 
PENC 1; MBON (1) =1 

940 'ELSE;SETLBX2,166,2,10,TYPE,8J;FI 
950 'DESCKLBX2,164,2,123; FI; FI; NEXT; CLOS 
E2L 3; RETURN 

960 'MISSHOT;IF ВХ2-5Х<20+МВТҮРЕ (I) *20 А 
ND MSON( 1 )= の THEN SOUND1-80 

970 'М50М (І) =MBTYPE (1) +1; МХ (І) =MBX (1) 3M 
SY (1) =166+МВТҮРЕ CI) #2; МВОМ (1) =2 

980 'FI;RETURN 

990 'MISSLE;FOR I=@ TO 2;IF mn ue 78 TH 
EN TYPEZMSON(I)-1 

1000 ‘IF TYPE= の THEN BX2-MSX(I)-2;BY22MS 
Y(I)-8; ELSE 

1810 'BX2-2MSX(I)—-3,; IF ABS(SY+4-MSY(I))<E 


650 'OPENL3;IF BX«78 THEN CLREBX,166,3,1. 


pi iO 
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FE:5) THEN BY2=SY+4』ELSE 
1020 'BYZwMBY (1) 488N (SY«4-MBY (I) ) *EFE: 5) 
FIFI; OPEN2C ] 

1050 'CLRECMSX(I) ,MSY (І) ,2,8-TYFE*51; DESC 
KEMSX (I) ,MSY(1),2,8-TYPE*5] 

1040 ‘IF BX2«0 OR BY2«16 THEN MSON(I)-0; 
ELSE MSX (І) =ВХ2; MSY (І) =BY2 

1050 'SETLBX2,BY2,2,8-TYPE*S5,$C4A4«*TYPE* 
483 

1060 'DESCKLBX2,BY2,2 We ДА ы. ЈП ый м. 
XT; CLOSE2E ] 』 RETURN 

1070 'BASE2;FOR I=Q@ TO 2 

1080 ‘IF B20N(1I)= の THEN IF RND(2S6)«EFE1 
7) THEN IF GATE>4 THEN 

1090 'В2Х (1) =78; B2Y (І) 23164; GATExQ; В20М (І 
)z5;FI;FI;FI 


1100 ‘IF B20N(I) > の THEN 

1110 ‘IF B20N(I)25 THEN BX2-B2X(1)-1; BY2 
.«B2Y (I) 

1120 ‘IF ВХ2<ЕҒЕ:8) THEN B20ON(I)*-4; B2MV( 


I) z10;FIj;j ELSE 

1130 ‘IF B20N(I)-24 THEN BX2=B2X (І) ; BY2=B 
2Y (1) -4; B2MV(CI) =B2MV(1) 一 1 

1140 ‘IF B2MV(I)= の THEN B20ON(I)-3, B2MV(I 
) =1; B2VE( 1 ) =0; BZTR (1) =O; FI; ELSE 

1150 ‘IF BZ2ON(I)=3 THEN VECT=B2VE(1 ) 
1160 'B2NEW; VECT=B2VE (1) j BX2=B2X (I) +B2VX 
(VECT);BY2=B2Y (1) *B2VY (ЧЕСТ) 

1170 ‘IF ВХ2<@ OR BY2<16 OR BX2>77 OR BY 
2>1 さ の THEN B2VE (І) =RND (8) ş GOTO B2NEWJFI 
1180 'B2MV( 1 ) =B2MV( 1 ) 1 』 IF B2MV(I)=@ THE 
N B2TR(I)=B2TR(I)+1 


1190 ‘IF B2TR(I)=50@ THEN B2ON(I)=2)ELSE 
B2MV(I)23 
1200 ‘IF ЕҒЕ:9) =1 THEN BZVE (І) =BZVE (1) + ( 


RND (2) +2) *SGN(RND(2) *2-1) AND 7;ELSE 
1210 'B2VE (I)=B2VE (1) +RND (2) +2-1 AND 7;F 
I;FI;FI;ELSE 

1220 ‘IF B20N(I)z2 THEN BX2zB2X(I)-2; BY2 
=B2Y (I); ELSE BX2=B2X (1) 』 BY2zB2Y (I) 

1230 'FIjgFI;FIj;FI 

1240 ‘IF B2X(I)«78 THEN OPEN2E 1; CLREB2X ( 
1 ) ,B2Y (I),3,122j4FI 

1250 ‘IF BX2«0 OR B20N(I)-1 THEN B2ON(I) 
= の s ELSE B2X (1) =BX2; B2Y (I) =BY2 

1260 ‘IF CHRBOM[BX2 。BY2 。 さ 。12]=1 THEN SET 
[ BX2 。BY2 。 る , 1 2 。$CSBE ] 3 B20N( 1 ) =1 

1270 'CLOSEL3; SCORESETL S3; OPENC J 

1280 'ELSE;SETELBX2,BY2,353,12,9$C5221; FI; DE 
SCKLBX2,BY2,4,821;FI 

1290 'FI;NEXT; CLOSE2C 1; RETURN 

1300 'ICBM;IF ISON-Q THEN IF КМО (256) く EF 
Es11) AND GATE>4 THEN 

1310 'ISX-77; GATE-0; ISON-2; ELSE RETURN; F 
I;FI; BX2zISX-15; UPEN[ 3 

1320 ‘IF ISX«77 THEN IF ISON=1 THEN СЕКС 
I8X,168,4,81 

1330 ‘ELSE CLRELISX,172,4,43;FI;FI 

1340 ‘IF BX2«0 OR ISON-1 THEN ISON-0;CLO 
SEE 1; RETURN; ELSE 

1350 ‘IF CHRBOMLBX2,168,4,8J7-1 THEN SETEL 
BX2,168,4,8,$C6201; ISUN=1 

1360 'ELSE;SETEBX2,172,4,4,$CS5FA1;FI;FI 
1370 'DESCKELBX2,172,4,423; IF RND(EFE: 12) ) 
= の THEN ІСВМТКЕЈ РІ 

1380 'ISX-BX2;CLOSEL3;IF ISON-1 THEN SCO 
RESETC8]J; FI; RETURN 

1390 'ICBMTK;IF ICON=Ø THEN ICX=ISX+1;IC 
Y=1724 1CUN= さ 』 ICTPzQ; FI; RETURN 

1400 ICBMUPs IF ICON-Q THEN RETURNsFT IX 
23:2 ICX-15 OPENE 1 

1410 ‘IF ICON-3 THEN 

1420 ‘IF ICTP> の THEN CLREICX,ICY,2,ICTP« 
43;FI; IY2z2ICY-4; ІСТР=ІСТР+1 


1430 ‘IF ISDN= の AND ІСТР<5 THEN ICON-z9;C 
LOSEC 3; RETURN; FI 

1440 ‘IF IX2< の THEN ІСОМ№=0; CLOSE[ 1; RETUR 
N;FI 

1450 'SETLIX2,1Y2,2, ICTP*4, ICBMCHR(CICTP- 


1 ) ]』 ICX2IX2; ICY2IY2 
1460 ‘IF ICTP=4 THEN ICUN=2』 ICTP-Q;FI;CL 
OSEL 1; RETURN; FI 

1470 'IY2-2ICY-8; ICTP=ICTP+1 AND S;CLREIC 
X,ICY,2,161 

1480 ‘IF ICON-1 OR IX2«0 OR IY2«16 THEN 


pio 


リリ スト グ Sensible Time ソー ス ・ リ スト 


ICON=Ø; CLOSEC 1; RETURN; F I 
149@ 'ICX=IX2;ICY=IY2;IF CHRBOMLICX, ICY, 
2。16]=1 THEN SETLICX,ICY,2,16,$9C894,81 
1500 'ICON-1;CLOSE[3J;SCORESETL 152; DPEN[ 3 
1510 'ELSE;SETLICX,ICY,2,16, ICBMCHR2 (ICT 
P)34FI 

1520 'DESCKLICX,ICY,2,161; CLOSEC 13 RETURN 
1530 ‘SOUNDA; IF SOUND1> の THEN SOUNDL2,SO 
UND1/21; SOUND1-SQUND1 +4; SON= の 

1540 ‘FOR I-0 TO2; SON-SON*MSON (I) ; NEXT 
1550 ‘IF SON= の THEN SOUND1-0; SOUNDL 9,01; 
ELSE SOUNDI9?,103;FI;FI; RETURN 

1560 'SOUNDB;IF BON=1 THEN SDUND[ 1 の 9, の]』E 
LSE IF BON=2 THEN 

1570 'SOUNDLS,BX AND 151; SOUNDC 1 の 。7+(BX/ 
2 AND 7)1l;FI;FI;RETURN 

1580 'SOUNDC;IF SOUND3<24Ø AND SOUND4>Q 
THEN SOUND3=SOUND3+ 1 ; SOUNDCO , SOUND21; FI 
1590 'RETURN 

1600 ‘SCREEN; CLSC 1; TRAMC $4000, 401; GSW-0; 
CLINECØ, 22,79,24) 

1610 'GPRINTIO,0,7,"HIGH SCORE" 2; DESSETL 
22,0,6,HISCOJ 

1620 'GPRINTL40,0,7,"SCORE"3; DEGSETL 52,0 
„ 4, SCORE 3; SHIPSET[ 1; RETURN 

1650 'SHIPSET;OPENLJ;COU-1; WHILE COU«SHI 
P AND COUC17;SETLCOU*5-5,8,4,7, $C1EQ1J 
1640 'COU-COU*1; WEND; IF COU«17 THEN CLRE 
CO0U*5-5,8,4,71; F I3 CLOSEC 1; RETURN 

1650 'aRYDEF; ВРОІМТ=71 ; B2VX-DIMC8, 21; B2V 
Y=DIM[8,21l;SVX=DIM[9,21l;SVY=DIM[9,21 
1660 'BOMX*DIMC8,21; BOMY-DIML8,21; BOAX=D 
IM 8,21; BOAY=DIMLB。2] 

1670 'BAX-DIML 4,21; BAON-DIMLA4,21; МВХ=рІМ 
[3,2]; MBON-DIML 3, 21; MBTYPESDIMLZ,21 

1680 "MSX=DIML さ 。2]』 MSY-DIMCZ,21; MSON=DIM 
(3,21; B2X-DIME 2,21; B2Y-DIME 2,21 

1690 'B2ON-DIMCS,21; B2VE=D IM[ さ 。2]』 B2MV-D 
IMC3, 21; B2TR-DIMCZ,21 

1700 ' ICBMCHR=DIMC4, 21; ICBMCHR2-DIME4,23 
1710 ° ICBMCHR (0) =$C6BA; ICBMCHR (1) 2$C642; 
ІСВМСНЕ (2) »$C6D2; ICBMCHR (3) =$C71A 

1720 'ICBMCHR2(0)-$C714; ICBMCHR2 (1) =$C77 
A; ICBMCHR2 (2) =$C7DA; ICBMCHR2 (3) =$C83A 
1730 'БУХ (0) 2-2; SVY (0) 245 SVX (1) 205 SVY (1) 
-8 

1740 'SVX(2) =2』 SVY (2) =4; SVX (3) 2-2; BUY СЗ) 
= の 

1750 ‘SVX (4) = の 』 SVY (4) =Ø; SVX (5) =2』SVY(5) = 
Ø 
1760 
) =-8 
1770 
1780 


'SVX (6) 2-2, SVY (6) 2-45 SVX (7) =Ø; SVY (7 


‘SVX (8) 2, SVY (8) 2-4 
'B2VX (Ø) =Ø; B2VY (0) 2-12; B2VX (1) =3; B2 


МҮ (1) =-12 


1790 'В2УХ (2) 23; B2VY (2) =Ø; B2VX (3) «34 B2VY 
(③) =12 

1800 ‘B2VX (4) 20; B2VY (4) =12』B2VX (5) =-3; B2 

МҮ (5) =12 

1810 'B2VX(6)2-3; B2VY (6) =Ø; B2VX (7) 5-34 B2 

VY(7) 2-12 

1820 'RETURN 

1830 'SCORESET; SOUNDCO , 801; SOUNDC 1,81, SO 

UNDE 6, 311; SDUND[B 。 161; SDUND[ 12, 301 

1840 'SOUNDL 13,01 

1850 'SCORESE2; SCORE*SCORE**1; IF SCORE>= 

SCORE2 THEN SCORE2=SCODRE2+5 の の 

1860 SHIP=SHIP+1』SHIPSET[ 3;FI; DEGSETL 52 
,9,4,SCOREJ; RETURN 

1870 'RETURN 

1880 ‘TRAM; A=71; A2=$CØ00 

1890 ‘FOR C= の TO 72-1 

1900 ‘HLTC 1; CPOKE ADDR,$3F; ADDR=ADDR+8; С 
POKE ADDR, $91, $D393# ,A2+C*64# , 540# , $90 
1910 ‘FOR I=@ TO $3F; ADDR: 1) =A: C+64+I) 35N 

EXT; SUBE 1 

1920 'NEXT; RETURN 

1930 "OPEN』HLT[ 1; BADDR=ADDR』CPODKE GADDR, 
$3F 』 BADDR=GADDR+ 昌 

1940 'CPOKE GADDR,$93,$CO009,$90; GSW-1;R 

ETURN 

1950 'OPEN2;IF GSW=@ THEN ОРЕМС 1; ЕІ; КЕТО 

RN 

1960 'SET;CPOKE GADDR,1,41,X2,*3,*4,459j 

NOPEN[ 1; RETURN 

1970 'CLR;CPOKE GADDR,2,*1 

NE 1; RETURN 

1980 'SET1;CPOKE GADDR。 さ 。%1 
EJ; RETURN 

1990 'CLR1;CPOKE GADDR,4,71 

ETURN 

2000 'CHRSET;CPOKE GADDR,S,*1,42,44,73;N 

OPENC 1; RETURN 

2010 'CLOSE;CPOKE BADDR , Ø; SUBL 15 GSM= の 』 RE 
TURN 

2020 'CLOSE2;IF GSW=1 THEN CLOSEL1l;FI;RE 
TURN 

2030 'NOPEN;IF GADDR»$FCFO THEN CLOSEL1l; 

OPENE 1; FI; RETURN 

2040 ‘CLS;HLTE ]』CPOKE 4DDR,1,0,90,25,0,2 
5,0,1,0; SUBE 1; RETURN 

2050 ‘CLINE; OPENC 1;FOR CLIY-42 TO X4;4FOR 
CLIXeX1 TO X3 

2050 'SETLICLIX,CLIY*8,1,8,$C9E03; NEXT; NE 
XT; CLOSEE 31; RETURN 

2070 'LINE;HLTL3;CPOKE ADDR,$15,X5,0,*14 
, 2#, 3# ,744,2; SUBE; RETURN 

2080 SYMBOL 』HLTE TI; CPOKE ADDR,$19,45,0,0 


„12,75,0743 NOPE 


, 42, 45#; МОРЕМ 


-215 の 


ぅ 42; NOPENE ]』 R 


‚„Ж4,%5,71#,Ж%2#;СОП=@ 
2090 ‘WHILE PEEK(% さ +COU) く > の POKE ADDR+CO 
U*1,PEEK (X3«COU) ; CDU=COU+ 1 

2100 'WEND;POKE ADDR,COU; SUBE 1; RETURN 
2110 'GPRINT;OPENL1;COU*Q; WHILE PEEK(X44 
COU) < >a 

2120 ‘CHRSETC41+COU*2, 42*8 ,43 ,PEEK (Ж%4+СО 
U) 3; COU=COU+1 ; WEND; CLOSEC 1; RETURN 

21 さ の ‘DEGSET;OPENC 1; DEG=%4;FOR Z=1 TO 5; 
DEG12DEG/19; DEG2-DEG-DEG1*19; DEB=DEG1 
2140 'CHRSETLX1*10-2«2,*2,43,DEG2*481; NE 
XT; CHRSETCX1*10,72,7:3,48J; CLOSEL 3 
'RETURN 

2160 'SOUND;POKE $FDOE,X1;POKE $FDQD,3;P 
OKE *$FDQD,Q 

2170 ‘POKE $FDØE,%2;POKE $FDOD,2;POKE $F 
DØD , Ø; RETURN 

2180 ‘DIM; ANS-BPOINT; BPOINT=BPOINT+%1%%2 
; ANS=ANS; RETURN 

2190 'BUFFON;HLTCJ;CPOKE ADDR,3,2,$1B,$6 
73 SUBE 1; RETURN 

2200 'BUFFOFF;HLTC1;CPOKE ADDR,3,2,91B,$ 
68; SUBE 1; RETURN 

2210 'INKEY;HLTC1;CPOKE ADDR,$29,00; SUBL 
1 

2220 "HLT[]』POKE ADDR-2,128; ANS=PEEK(ADD 
R+1 ) 』 SUBE 1; RETURN 

2230 'KEYREAD; BKEY= の 』 SKEY=Q 

2240 "KEYRjKEY=INKEY[ 1; IF KEY= の THEN RET 
URN;FI 

2250 ‘IF КЕҮ>'@' AND KEY«'1 
EY;GOTO KEYR;FI 

2260 'BKEY-1;GOTO KEYR 
2270 'DESCK;IF X14X3»8X AND X1«SX*4 THEN 
2280 ‘IF %2+%4>SY AND X2«SY*7 THEN DES=D 
ES*1; FI;FI; RETURN 

2290 'CHRBOM;ANSsQ;FOR 2=0 TO 7;IF BOMX( 
Z)»-1 THEN 

2300 ‘IF Х1+УЗ>ВОМХ (2) AND %1<BOMX (2) +1 
THEN 

2310 ‘IF X2«X4»5BOMY(Z) AND %2<BOMY(Z)+4 
THEN ANS=ANS OR 1 

2320 'OPEN2t 1; CLR1LBOMX (Z) , BOMY (Z) 1; BOMX 
(2)2-1 

2330 'FI;FI;FI;NEXT; ANS=ANS; RETURN 

2340 'WAIT;FOR 1=1 TO X1;FOR Ј=0 TO 500; 
NEXT; NEXT; RETURN 

2350 ‘HLT; CODE $B6,$FDO54,$2BFBM,$1A504, 
$8580 , $57 , $FDOS# , $B6, $FDOS# , $2AFB# 
2360 'ADDR-$FC82;RETURN 

2370 ‘SUB; CODE $7F , $FDOS# , $1CAF#; RETURN 


THEN SKEY=K 


EIE AASA AAAS AAAA R 
AC XXE 2€ 2&2 аа 
ONO : 


216 216 216 21 216 276 21 216 216 216 21 216 276 216 nd 
OI 
хел 21€ papa Dr зс л х Э ЗЫ 


- P.Version は PC-6007 ユ ー ザ ー に よ 
pC-6007 ユ ー ザ ー の た め の ミ ニコ ミ 誌 
Cd. 現在 ら 5 冊 出 て いま す . 入手 方 法 , そ 
の 他 の こと は 下記 まで ノ 
B247 横浜 市 戸塚 区 公田 町 932-3 
小戸 田 雄一 


D C-8001, DC-8801(mkIDI- DISK &€ 
付け て いる 方 , また は , PCG を 付け て い 
る 方 ツ 〒 ぐ ください. 返事 は 必ず 1 週間 以内 
に 出し ます . 

«5546 大 阪 市 東住吉 区 桑 津 ら ち -70-22 
杉本 貴昭 


MZ-700 の オリ ジ ナ ル ・ ソ フト の 交換 を 
中 心 と し た クラ フス で す . 詳し く は 60 円 切手 
同封 の 上 , 下記 まで ご 連絡 くだ さい . 
$223 横浜 市 港北 区 大 棚 585-7 WEA 

rENPSY; ft 


MRD. JUFC. 2243 за. 

kedan 285 anrea ご ざい き し た 。 
Srt h. & 831 まぁ と Z. す の つき せん. 
まさ わ も. こん な PENa BD adi, 258 utte 
と は 思っ 2 も つき せん 万 し を た 。 

ва. SE Wet khu を て fe 35 Bh 
WS。C ъи ZLE 5. 5500 240 D-E 
%#& て だ は みぃ 。 今 . い 3 ん な сү É. Мо 
に や 23 と (て w 202. В っ ん が る が 5 て . 
あん But -B* 2«8 Съ uL EA w~ 
Z MHZ. もっと, HAE ! と は けん 万 
(きまっ た ШМ] zL ZL t !2 


ボケ コン ユー ザー ズクラブ 発足 活動 中 . 
つき まし て は 会 員 を 大 々 的 に 募集 いた し ま 
F. 詳し く は \ 60 切手 同封 の 上 , 下記 まで 


ご 連絡 ぐだ さい . 案内 書 を 送り ます . 
$463 名 古屋 市 守山 区 瀬古 赤目 730 
いづ み 寮 内 KH FE 
ЖУУ УЗ» 79725 
(ペン シル ベニ ア 在 住 ) 

ы; ベン シル ベニ ア の リバ ー ヴ ュー 大 学 の 放 
2] 符 線 科 に 在学 中 の マリ アン ヌ さ ん . 休暇 を 
pu WALT, サン タモ ニカ の お ば さん の 家 に 

滞在 中 で す . Apple コン ピュ ー タ を お 金 持 
ちの お ば さん か が ら プ レ ゼ ント され , РІО に 


写真 が 載る の を 機会 に も つと 勉強 レ し な こち аг 3 4 
や と 苦 戦中. @ | 京都 市 ET IS 


> バビ ピコ ン は 強かっ た …. 1/O10 月 号 の アン ケー ト 結 果 に よる と , PC-6001 シ リー ズ は 第 3 位 の 13.8% / 「 無 視 し 得 な い 数 」 な ん て 書い て あ 
る の は 腹 が 立っ た けど …. と ころ で , な ぜ PC-6001 用 の FD は 少な い の で し ょ う ( 少 な いと いう より NEC か らし か 出 て いな い ? か の の 
A^, これ か ら で も 作っ て くだ さい . Р.51 PiO で も A 誌 の よう に 「RYO の け そ うぶ み 」 の よう な の を や り ま せん か ? も ちろ ん RYO= み 
な みり ょ うこ る さん. (NO MORE BOTSU //) 


FM-7 


Ka ン バ イ ラ 二 マン ン 語 


プロ レス ・ プ ブー ム と 言わ れ て か な り た ち 
ます が , パソ コン 用 プロ レス ・ ゲ ー ム を 誰 
も 作っ て くれ ませ ん . そこ で プロ レス 研 の 
会 長 で ある 私 が , バー ベル を キー ボー ド に 
持ち 換え て 作っ た の が この ゲー ム で す . 
画 プ ログ ラム ・ イ ン フ ォ メ ーション 


| BASIC 
| マシ ン 語 0E00—3BDF 


まず BASIC 部 (リス ト 1) を 入力 し , 7 
ァイル 名 "PRO-WRES" で モー ブ し ます . 
次 に マシ ジン 語 部 (リス ト 2) を 入力 し , 7 
ァイル 名 "DATA" で BASIC 部 の 後に セ 
ー ブ し ます . --cC&HOE00—&HOFIF は 
キャ ラク タ 表 示 の , &HOF20 ~ &HOF62 は 
音声 出力 の マシ ン 語 プロ グラ ム な の で 絶対 
間違え を な いよ う 注 意 し て くだ きい . 残り の 
& H0F63— &H3BDF Е 5 せ デ ー ダ な の 
で , 気 を 抜い て 入力 し て も 結構 で す . 

最後 に 区 の ソー ス (リス ト 3) を 入力 し , 
一 度 別 の テー プ に セー ブ し て か ら ユ コン フイ 
ル し ます . な お ブロ グラ ム が 大 きい の で , 
コン パイ ラ を 裏 RAM に 転送 し て か ら で な 
い コ ンジ フイ ソレ で きま 腔 ん 。 る もし で オプ ジェ 
グ 失 も ラン タイ オム の ルレ ルー チン を いっ し は に ギ 
ー ブ し ます (&H4D00—& H7D97. ファ 
イル 名 は “MAIN” で マシ ン 語 部 の 後に ). 


トム の 操作 は , [8l[2][4]|e| で ロ シ モ フ 
に 近づき , ドロ ッ プ ・ キ ッ ク (|X| キー) と ジ 
ャ ー マ ン ・ ス ー プ レッ クス (|Z| キー) で 攻撃 
し ます 、、 ま だ 。、、 せ シモ ン に フラ フォール あれ な 
と き , ま だ 余力 が ある うち な ら キ 
ー で は ね 返せ ます . 

な お ジャーマン を 使う 前 に は , ドロ ッ プ 
・ キ ッ ク で ロ シ モ フ の スタ ミナ を 奪っ て い 
な が いと た 。、 を ツブ フー プッ と シュ イエ. あれ し メ 
いま す . まだ ロ シ モ フ に 近づい て で ず で ぐず 
し て いる と 。 ロー に 飛ば る れ て カウ ンタ 
ー の 18 女 キッ ク を くら っ て フォ ー ル され て 
じまい ます 。 


| 


27 250b 
高速 化 の た め , マタ ー ン ・ デ ー タ と 表示 
プロ グラ ム を サブ プ 側 に 転送 し て いま す . こ 
Ор х, 普通 移 HC000 か ら の コン ソー ル バ 
а И АРНЕ の で すず 本 らら W ИР 
ム で は デー タ 量 が 膨大 な の で , 緑色 の V-R 
AM を つぶ し て 使っ て いま す . この だ め カ 
ラー は 4 色 し か 使 を なくなり ま す が , 640x 
200 ド ッ ト な の で これ で も 基 マ ー ク II より 
も 性能 が 上 な の で す . 

io, 最初 に 作っ だ た バー ジョ ン で は , デ 
ー タ の あま り の 膨大 き に メイ ン 側 の メモ リ 
が 足り な く な り , 裏 RNAM ま で 使っ て いま 
Lots じ か めか を りこ も も ル が さて で Т ДОЛ 
ED О асл: 

この 手 の ゲ ー ム で は , 右向き と 左向き の 
キャ ラク タ ・ ノ パター ン が 必要 に な り ま す . 
し か し , 両方 と も ヌメ モリ 上 に 置く の で は 無 
ЖЛ ФЗУ IU 片側 だ げ け の ウパ グー 
ン を 持ち , 反対 側 を 向い た と き に は 逆 向 き 
の デー タ を 作っ て か ら 表 示す る よう に し ま 
し た だ た. この だ め デ ー タ 量 は 半分 に な り ま し 


— YA 


WB: EPBD 


カウ ント 3 まで 耐え られ る か 心配 で す 


た が , 反面 表示 速度 が 少し 落ち て 動き が ぎ 
ご あな い た この も あり あの 。 

その 他 , PSG を 使っ て 雄叫び や カウ ント 
の 音声 出力 を し て いま す . な お , この プロ 
グラ ム は つぎ は ぎし な が ら 作 っ だ の で , 改 
良 や 解読 は 不可 能 で し ょ う . 


東京 工業 大 学 プ ロレ ス 研 究 会 で は , 提携 
団体 な よび 挑戦 者 (も ちろ ん プロ レス の ) 
を 募集 中 で す . 
Ric, この ゲー ム を 尊敬 する カー ル ・ 
ゴッチ 先生 に 捧げ ます . 
ФЕ Ба 
D 吉田 BH: “хрм мА", s 1⁄ 
O, "83 年 10 月 号 
2) 等 作 貴 弥 : “音声 入出 カプ プログラム”, Е 
M-8 活 用 研究 , 工学 社 


ml Д 1 THE RADICAL PRO-WRESTLING BASIC リス F aww 


70 SYMBOL (11@,38),"RADICAL",8,5,6 
80 SYMBOL (20,80) ,"PRO-",12,6,2 
90 SYMBOL (0,130) 。 "WRESTLING", 9,6,2 

180 COLORA:LOCATE 11,23:PRINT"HIT [RETUR 
М1 KEY!" 

110 WHILE K%< >CHR$ (&HD) 

120 K$zINKEYS$:WEND 

130 FOR 1=1 TO 5000: МЕХТ 

140 EXEC &H5000 


RUN "PRO—WRES" で スタ ー ト し ます . 
タイ トル 表示 後 。 レベ ル を 聞い て くる の で 
1 一 4 で 答え て くだ さき るい. 数 が 大 きい ほど 上 黄 
Lodo ErT. 

そして, ゴン グ が 鳴っ て 試合 開始 で す . 
プレ イヤ ギー は , 黒 タ イツ の 日 系 ヒス ラー “F 
ーー キョー トム" を 操っ て 赤 タ イツ の 大 巨人 
“モン スタ ー ロ シモ フ "” Luiz. 


10 CLEAR 1 の の.。&HDFF 
20 LOADM"DATA" 
SO LOADM"MAIN" 
40 WIDTH48,251CLS 
50 PLAY"T142V1004F2F40304B-2B-404F4E2E40 
3644A104D2DA03F 4828404DACWV2CV A4OSEAF 2F 4R4" 


"も の E の の -$ さ BDF 
'$4D00-$7D97 


»"T142V902R8A403D80248F #4F #BR8B403D8G4R4 
O2R8G403C80268E 4EBOSR8D402BG8F 4E4DBF 4BBG8 
D4D8R86G4B803D2R802E 4ABEBGCKACKBRBSF 4ABOSDA4 
R4","T142V902D1G2G4RA4C1F2DAC401B4102E101 
64102D2D4R4" 

60 SYMBOL (20,10) , "THE",25,5,1 


73 


THE RADICAL PRO-WRESTLING マシ ン 語 リス ト 


O Q (6) PPiOl08H 9S7, "X1 で は セー プ す る と き フ ァイル 名 の あと に パス ワー ド が 入れ られ る 」 と あり まし た が , その パス ワー ド が わか ら な いと き 
は どう すれ ば いい の で すか ? 確か に 簡単 な プロ テク ト が か けら れ ま す が , 馬鹿 な こと を し た ため, せっ か く 入 れ た マー ジャ ン ゲ ー ム (途中 ま 
С で で す が ) を, もう一度 入れ 直る なけ れ ば な ら な く な っ て し まい まし た . 5—A, パス ワー ド 何 だ っ け ? (神尾 達也 ) 
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PRO-WRESTLING マシ ン 語 リス ト 


突然 で すみ ませ ん . た だ , MZ-2000 用 の TANK ATTAKER £, MZ-80B で 走ら せる こと が で きだ た こと を 皆様 に お 知ら せ し た だ く て , ハガキ を 
書い て し まい まし た . | (HALT 76H) 


Дэ, 
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| リリ スト 2 THE RADICAL PRO-WRESTLING マシ ン 語 リス ト 


СОИ Д ЪЗ THE RADICAL PRO-WRESTLING ソー ス 


1 の 'WIDTHL 40,2351 

20 'REPLAY; 

зе 'CLsco,0,01 

40 '8YMBOLL160,16,53,2,2,0,0,12,"Key Func 

tion" 

50 'COLORL43;LOCE 1,93; PRINT"ELXJ...Drop K 

ick" 

60 'LOCL1,1323; PRINT"LZJ...German Suplex" 

70 'LOCCO,171; PRINT"Cspacel...Recover" 

80 'COLORL731;LOCE 29,831; PRINT"[ 82" 

90 'LOCC25,112; PRINT"[4J + C621" 

100 'LOCL 29,143; PRINT"L21" 

110 'LOCL 26,171; PRINT"MOVEMENT" 

120 "COLORE61]』 LOCE 14,233; ?"LEVEL (1-4)? " 
130 ‘REPEAT; IK=INKEYC ]』 UNTIL IK»*$31 AND 
IK<=$34 

140 'LVLzIK-$30 

150 COLORE21』 LOCE 26,231; ?LVL. 

160 'FSTENGz660-120*LVL 

170 ‘IF LVL く <=2 THEN FNSEC=30 ELSE FNSEC= 
10;FI 

180 "MAITE6] 
190 '(* RING 

200 'RING; 

210 'CLSECO,0,01 

220 'PALETL1,123,; PALETEL 2,21; PAaLETC 3,63; PA 

LETC4,03; PALETL 5,13; PALETE 6,21; PALETE7。6 
1 


MAKING *) 


230 'CONNECTLI1,0,5,112,32,528,32,576,176 
164,176,112,5321; PAINT[ さ の 9 。 1 9 の 。 1 。 1 。 1 

240 'LINEC64,176,576,199,0,3,21 

250 "LOC[7。1]j COLOR[ さ ]』FDR I=1 TO 3;)?"m0@" 
„СНАФ ($1D) ,CHR$ ($1F) J NEXT 

260 'LOCÉÍ35,191; COLOR[ さ ]』FOR I=1 TO 3,?" 
B" ,CHR$ ($1D) ,CHR$ ($1F) j NEXT 

270 'LOCL32,13;COLORC2J;FOR I=1 TO 3,?"B 
" |CHR$ ($1D) ,CHR$ ($1F) NEXT 

280 'LOCC4,193;COLORC 11; FOR I=1 TO 6;?"B 
" |CHR$ ($1D) ,CHR$ ($1F) NEXT 

290 'CONNECTL3,0,3,64,152,80,152,80,1761 
ILINELS60,176,550,199,0,0,01 


Ж 


500 ‘FOR Y=8 TO 28 STEP1 の 9sLINE[ 128。Y。512 
,Y,0,2,01NEXT | 

510 “FOR Y=152 TO 172 STEF1iØ;LINEC80,Y,5 

60,Y,0,2,01; NEXT 

320 'LINEL112,16,65,152,0,2,01 

330 'LINELS28,16,575,152,0,2,01 

340 'SYMBOLI956,180,6,2,2,0,0,9," T. I. T.W 

F"3 

550 '(* MAIN ROUTINE *) 

360 'SCREENL7,31 

370 'DTRANSI3 

580 'XIO-14; YIO-112; XIZzXIO; YIZYIO; IMUKI- 

3; ILEG= の 

390 ‘XGO=60; YGØ=32; XG2XG0; YG=YG0; GMUK I=5 
3 BLEG= の 

400 SOUNDE6。 さ 1 ]』 SOUNDE8,81; SDUND[ 7, 2557 

410 'FPUTELXIO,YIO,6,40,31; FPUTEXGO 。 YG の 。 6 
,40,51 

420 'WAITLI33J 

430 ‘VOICE まさ QFO の 。 $FA1 

440 'SETTIMELO,0,01; ENG=4 の 9 の 』ENI=FSTENG ` 
450 ‘LOOP; 

460 ‘IF YG»YI THEN YG-YG-2;ELSE IF YG«YI 
THEN YGzYG*2;FI;FI 

470 ‘IF YG«32 THEN YG= さ 2 ョ FI 

480 ‘IF Y65112 THEN YG-z112;FI 

490 "DXG=RND (5) – 1 

500 ‘IF DXG= の THEN 

510 ' IF XG@<XI@ THEN DXG=1 ELSE DXG=- 
1;FI 

520 ‘FI 

530 ‘IF DXG--1 THEN GMUKI=5; FI 

540 ‘IF DXG=1 THEN GMUKI-7;FI 

550 ‘IF YGØ<>YG THEN FPUTLXGO, YG0,5,40,0 
3;FI 

560 'SLOOPzQO 

570 ‘WHILE SLUOP く 5 

580 'TIMEL3;IF ТМ=1 AND TS>FNSEC AND SLO 

ОР<>@ THEN WIN=Q@;FPUT[XI,YI,6,4@,IMUKI1; 

ЕРИТЕХб,Үб,&,4@,8МИК1Ї1;бОТО OWARI;FI 

590 'IK=INKEY[ 1 


・ 1) Z p nl 


6 の の 'ERI=Q 
610 ‘IF IKz$36 THEN XIzXI*1: IMUKI=3;ERI= 
1;FI 
620 ‘IF IKz$34 THEN XIzXI-1; IMUKIZ1; ERI= 
2;FI 
630 ‘IF IK=$38 THEN YIzYI-4;ERI-3;FI 
640 ‘IF IK=$32 THEN YI=YI+4;ERI=4;FI 
650 ‘IF IKz$58 OR IK-2$78 THEN GOSUB DROP 
KICK;FI 
‘IF RND(19)= の THEN GOSUB KICK18;FI 
IK=$5A OR IK=$7A THEN GOSUB SUPL 


'X8zXG*DXG 
“IF XI«14 THEN XI-2144 ERI-QjFI 
“IF XG<14 THEN XG=14;DXG=1; GMUKIz7;F 


‘IF XI»60 THEN XI=6 の 3ERI= の FI 
A XG»60 THEN Х6=20; 0Х8=-1; GMUKI=5; 


YI<32 THEN YI=32;ERI=Ø;FI 
YI>112 THEN Ү1=112;ЕВ1=@}Е1Ї 


ABS(XI-XG)«6 AND ABS(YI-YG)<40@ T 
XIzXIQ; YIZYIQ; XGzXGQ0; YG2YGO; ERIZQ;FI 
'FPUTEXI,YI,6,40, IMUKIJ 
"IF ERI=1 THEN FPUTEXIO,YI2O,1,40,01 
; ELSE IF ERI=2 THEN FPUTCXIØ+5,Y 


ELSE IF ERI= く THEN FPUT[XIQ 
。 YT の + さ 6 。 6 。 4 。 の ] 
800 ' ELSE IF ERI-4 THEN FPUT 
L[XIO,YIO,6,4,021;FI 
810 ' FI 
820 ' FI 
830 ‘FI 
840 ‘IF ABS(XI-XIQU) *ABS(YI-YIOO < >0 THEN 
IF ILEG= の THEN ILEG-1; SOUNDC7,;, 2471; ELSE 
ILEG= の 』 SOUNDC[7,2551:FI; ELSE SOUND[7, 2551 
;FI 
850 'IF ILEG=1 AND ERI く >9 THEN IF IMUKT= 
1 THEN A=? ELSE А=1@ FI;FPUTLXI,YI*25,6, 
15,43;FI 


私 は 思い ます , JR-100 は 生き 残る と , JR-100 は いつ も “売る "に 出 ま す が , まだ まだ USER は 多い . 私 は JR-100 を 買っ て よかっ た と 思い ま 


G) 


860 'FPUTLXG,YG,6,40,GMUKI3J 
870 ‘IF XGØ<>XG THEN IF DXG-1 THEN FPUTE 
X60,YG0,1,40,0J7 ELSE FPUTLXGO*5,YGO,1,40 
,031;FI;FI 
880 ‘IF ABS(XG-XGO) *ABS(YG-YGO)4»0 THEN 
IF BLEB= の THEN GLEG*1;ELSE GLEGzO;FI;FI 
890 ‘IF GLEG-1 AND XGO«»5XG THEN IF GMUKI 
z5 THEN A211 ELSE 4-12 FI;FPUTEXG, YG*25, 
6,15,03;FI 
900 'XIOZzXI; YIO-YI 
910 'XG0-X6G; YGO-YG 
920 'SLOOPzSLOOP-*1 

'WEND 

‘GOTO LOOP 

'DROPKICK; 

“IF SLOOP= の AND YB の <>YB THEN RETURN; 


'GDN*»0; SDUND[ 7 , 2551 
“IF IMUKI=1 THEN A=0@;B=15;C=13;D=é;E 
A=-4; B=-15; C=-133 D=-4;FI 
'FPUTEXIO, YIO,6,40,C3 
1000 'WAITL3J , 
1 の 1 の ‘IF (IMUKI= さ AND Х10<18) ОК (ІМОКІ =1 
AND XiI の >56) THEN RETURN;FI 
1020 ‘IF IMUKI=1 AND XGO-XIQ»*x6 AND XG の ー 
XI@<1@ AND ABS(YIO-YGO0)4«-24Q0 THEN RETURN; 
FI 
1030 ‘IF ІМОКІ=5 AND XIØ-XGØ>=6 AND Х1@- 
XG0«10 AND ABS(YIO-YG8)«240 THEN RETURN; 
FI 
1040 'ENI*xENI-10 
1050 'FPUTLXIO*^,YIO*2,10,38,B1 
1860 'FPUTLXIO*^,YIO0,10,2,01 
1070 ‘VOICE $3400, $120] 
1080 "MAITE さ ] 
1090 'FPUT[XI@,YI@,6,40,C1 
1100 '*FPUTLXIQ@+D,YI@,4,40@,0@01 
1110 'DX=XIQ@-XG@ 
| 1120 ‘IF рх>5 AND DX«8 AND IMUKI=1 THEN 
GOSUB GDOWN;FI 
1130 ‘IF DX>-8 AND DX«-5 AND IMUKI= さ THE 
N GOSUB GDOWN;FI 
1140 ‘IF GDN= の THEN WAIT[31 ;FI 
1150 'FPUTEXI9,YI90,6,40,023; FPUTEXI, YI, 6, 
40, IMUKIJ 
'XIOTXI; YIO-YI; XGO*XG 
‘RETURN 
' GDOWN; 
‘IF ABS(YIO-YGO) >4 THEN RETURN;FI 
‘IF IMUKI=1 AND XGO«18 THEN RETURN; 


‘IF IMUKI=3 AND XGO»S56 THEN RETURN; 


' GDN-1; ENG*ENG- 30 

"FPUT[ XG の 。 YG@ 。 6 。 40, の ] 

“IF ІМОКІ=1 THEN A=-4;B=-19;XI=XIQ@+ 
4; XG=XGØ-4; ELSE A=0;B=19;XI=XIQ@-4;XG=XG@ 
*4;FI 
1250 'FPUTLXGO*A,YGO*15,10,25,BJ 
1260 'DWNSNDt 1 
1270 'WAITL61 

'ҒРОТСХВ@+А,Ү60+15, 10,25,07 

‘RETURN 

'SUPLEX; 

"SOUNDC 7,2551 

"IF ABS(XIØ-XGØ)<>6 THEN RETURN; FI 

“IF (XGØ>XIØ AND IMUKI=1)OR(XG@<XIQ@ 

IMUKI= さ ) THEN RETURN;FI 

'IF YIO く >YB の THEN RETURN;FI 

‘IF IMUKI=1 THEN A=4;A2=Ø;B=1;C=21; 
D=0;E=18;F=5;6=4;H=0;K=4;L=24;M=26;N=19; 
ELSE А=0; А2=5; B=-4; C=-21; D=-4; E=-18;F=7; 
62-6; H=-14; K=-8; L=-24; M=-26; N=—19;FI 
1360 'FPUTLXGO*B,YGO,?,40,C1 
1370 'FPUTLXIQ*A^,YIO,2,40,01; FPUTLXGO*A2 
,Y60,1,40,0J 

"WAITE6] 

"IF ІМОКІ=1 AND Х10>52 THEN RETURN; 


“IF IMUKI=3 AND XI@<22 THEN RETURN; 


'ENISENI-20 
'TIMEL ] 
‘IF ENG-TM*69-TS>25 の THEN 
' — VOICEL $2600, $C01; МАІТС21; VOICEC 
$36C0, $1401; FPUTLXIO, YIO, 6,40, 01 
1450 FPUTLXIO*D, Y10*28, 10, 12,E1 
1460 '  FPUTLXGO, YGO, 6, 40, F3 
1470 '  DWNSNDLI;WAITL3J 
1480 ' ENI=ENI-1 の 
1490 FPUTEXIO*D,YIO*28,10,12,01 
1500 “Manai Fi 
1510 'VOICEL$3400,$1201 
1520 'FPUTLXGO«D, YGO*15,10,25,LJ 
1530 'FPUTLXIO*G,YIO*10,8,30,M1 
1540 'FPUTCXGO*D, YGO, 10,15,0J; FPUTCXIQO*G 
,Y190,8,10,01 
1550 'ENG-ENG-60 
1560 'DMNSND[ 1 
1570 ‘IF Ү1@<8@ THEN ҮС=120 ELSE YC=40;F 
I 
1580 'SYMBOLLI304,YC,6,4,2,2,0,1,"1"3 
1590 'VOICEL $3800, $D の ] 
1600 'WAITCSJ 
1610 'FPUTLZ8,YC,5,32,01 
1620 'SYMBOLUL304,YC,6,4,2,2,0,1,"2"1 
1630 'VOICEL$28D0,$100) 
1640 "MAITES] 
1650 'FPUTL38,YC,6,22,01 


1920 ' 


mo 
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1660 ‘IF ENG-TM*6éQ@-TS<@ THEN SYMBOUL[ さ の 4 。 
ҮС,6,4,2,2,0,1,"3"1; У0ІСЕГФ359р0,%1201; МІ 
№1; GOTO OWARI;FI 


1670 'FPUTLXGO*D,YGO*28,10,12,E31; FPUTEXG 


9*D,Y69,10,28,01 

1680 "FPUTLXIQO«K, YIO*15,10,25,NJ; FPUTEXI 
9-K,YIO,10,15,01 

1690 'WAITLÓ] 

1700 'FPUTLXGO«H,YGO«*15,20,25,01 

1710 'XI-XGO 

1720 ‘IF IMUKI-1 THEN XG-XIO«8 ELSE XG=X 
IQ-8;FI 

1730 ‘IF IMUKI=1 THEN IMUKI= さ ELSE IMUKI 
z1;FI 

1740 'XIO-XI; XGO-XG 

1750 'RETURN 

1760 'KICK18; 

1770 ‘IF ABS(XIQ-XGQ) >8 OR ABS(YIO-YGO) > 
В THEN RETURN;FI 

1780 'SOUNDI7,2551 

1790 ‘IF GMUKI=5 AND XIO»XGO THEN RETURN 


‘IF GMUKI-7 AND XIQ«XGO THEN RETURN 


‘IF GMUKI=S AND (XI@<18 OR XIQ»51) 
RETURN;FI 
“IF GMUKI-7 AND (XIO«23 OR XI の >S6) 
RETURN; FI 
'ENIZENI-60 
‘IF GMUKI-S THEN A-z6;B-6;C-28;D--4; 
E-z-18;F-—-31;H-14;K--234; ELSE A=-6;B=-9; C= 
-28;D20; E-18; F-53515 H260; K-34, FI 
1850 'FPUTLXGO , Y80,6,40,01 
1860 'FPUTLXIO*A,YIO,6,40,GMUKIJ 
1870 ' VOICECL $3600 ,$C031; МАІТС21; VOICEC 
$36C0,91401 
1880 'SOUNDI7,2231; SOUNDE 120,53 
1890 '16=0 
1900 ‘IF GMUKI=5 THEN 
1910 ' FOR XL-XIQ-1 TO H STEP-1 
IF LG= の THEN LG=1 ELSE LG» 
Q;FI 
1930 ' FPUTEXL,YIO,6,40,12; IF LG» 
1 THEN FPUTEXL,YIO*25,6,15,93; FI 
1940 FPUTEXL*6,YIO,1,40,01J 
1950 ' NEXT 
1960 ' ELSE FOR XL=XI の +1 TO H 
19/70. IF LG= の THEN LG=1 ELSE し 
は = の FI 
1980 ' FPUTEXL,YIO,6,40,33; IF L 
6-1 THEN FPUTEXL , YIO*25,6, 15, 103; FI 
FPUTLXL-1;, үте, 1, 40, 1 
NEXT 
'FI і 
*SOUND[ 7, 2551 
'WAITES33J 
*SOUND[ 7,2231 
'FFUTEXIO*B,YIO,?,40,CJ 
"LG-0 
‘IF GMUKI-S THEN 
FOR XL=H+1 TO Х1@ 
IF LG-0 THEN LG=1 ELSE LG 


FPUTEXL,YIO,6,40,31; IF LG 
=1 THEN FPUTLXL,YIO*25,6,15,103;FI 


2110 FPUTCLXL-1,YIO,1,40,01 
2120 ' NEXT 
2130 ‘ELSE FOR XL-H-1 TO XIO STEP-1 
2140 ' IF LG=Ø THEN LG=1 ELSE LG 
= の ョ FI 
2150 ' FPUTCXL,YIO,6,40,11;: IF LG 
=1 THEN FPUTLXL,YIO*25,6, 15,93;FI 
FPUTEXL*6, YIO, 1,40,01 
f NEXT 
'FI 
*SOUND[ 7 。 2551 
'WAITE21 
'FPUTEXI9, YI0,65,40,01 
'FPUTCXIO*D,YIO*28,10,12,E1 
*DMNSND 2 
' — VOICEL $3600, $C9]』 WAITE21; VOICE[ 
$36C0,$91401 
2250 'FPUTLXIO*B,YIO,9,40,01 
2260 ‘IF YIO«80 THEN YC-120 ELSE YC=40;F 
I 
2270 'FPUTLXIO*D,YIO*2,10,38,F 1 
2280 'TIMEL 1; ENZ-ENI-TM*6Q-TS 
2290 MAITE さ ] 
2300 'SYMBOLL3O4,YC,6,4,2,2,0,1,"1"J 
2310 'VOICEL $3800, $D0J 
2320 'WAITLSI 
2330 ‘IF PEEK($FDO1)232 AND EN2>12 の GOTO 
RECOVER;FI 
2340 'FPUTL38,YC,6,32,01 
2350 'SYMBOLL304,YC,6,4,2,2,0,1,"2"1 
2360 'VOICEC$38D0,$1001 
2370 'WAITLSJ 
2380 ‘IF PEEK($FDO1)232 AND ЕМ2>0 GOTO R 
ECOVER;FI 
2390 'FPUTL38,YC,6,32,01 
2400 'SYMBOLL304,YC,6,4,2,2,0,1,"3"1 
2410- 'VOICEC$39D0,$1201 
2420 'WIN--1;GOTO OWARI 
2430 'RECOVER; 
2440 'FPUTL38,YC,6,32,01 
2450 'FPUTLXIO«D,YIO*2,19,38,K1 
2460 'WAITL6J 
2470 'FPUTLXIQ*D,YIO*2,10,38,01 
2480 ‘IF GMUKI=5 THEN XG-XIQ-4; ХІ=Х60+3; 


IMUKI-1 
2490 
IMUKIz3;FI 
2500 'XIO-XI; XGO-XG 

2510 'RETURN 

2520 ‘OWARI; 

2530 'SOUNDI7,2551; TIME 1 

2540 "MAITE61] 

2550 ‘FOR 1=1 TO S;VOICEL$3AFQ,$F01; NEXT 
2560 'CLSrO,0,01 

2570 'SCREENL7,71;PALETES,31; PALETEL 4,43; 
PALETES,51; PAaLETEL 6,61; PALETLE7,71 

2580 'SYMBOLL30,10,8,5,2,0,0,9,"GAME OVE 
R^ J 

2590 ‘IF WIN«»0 THEN SYMBOLI70,50,4,5,1, 
0,0,9,"WINNER IS" 

2600 ' IF WIN-1 THEN SYMBOL [ 400, 60, 
4,3,4,0,0,4," YOU!" 
2610 ' ELSE SYMBOL[ 4 の の , 60, 
4,3,42,0,0,5, GIANT"1;FI 

2620 ' ELSE SYMBOLI80,60,6,35,1, 
90,0,10,"DRAWN GAME"1;FI 

2630 'COLORL623; IF MIN く > の THEN LOCI(9,151; 
?TM,"min. ",TS,"sec" 

2640 'LOCLZ22,151;: IF MIN=1 THEN ?"German 
Suplex";ELSE ?"Body Press";FI 

2650 'ELSE LOCE17,153,;?"TIME UP'";FI 
2660 'COLORE431;LOCC14,18231,; ?"'REPLAY ? (Y/ 
N) " # 

2670 'KEYSCAN; 

2680 'KY=PEEK ($FDQ1 ) 

2690 ‘IF KY=$59 OR KY=$79 GOTO REFLAY ョ FTI 
2700 ‘IF KY=$4E OR KY=$6E THEN COLOR[71; 
END;FI 

2710 'GOTO KEYSCAN 

2720 '(* GRAPHIC SUBROUTINE s? 

2730 'CLS;HLTE 3; CPOKEADDR, $02,7.1,745,42,8 
UBC 1; RETURN 

2740 'LINE;HLT[ 1; CPOKEADDR, $15, 46,45, 41# 
2428,58 。 14# , 。 メ ブフ ョ SUB[ 1; RETURN 

2750 'CONNECT;HLTL 1; CPUKE DDR 。 ま 16 。 ん 1 。 ん 2 
‚%5,Х4#%,ХЖ5%#,Ж56#%,7Ж7#,Ж8#,‚7Ж9#,‚71@#,711#,‚71 
2#,%13#,%14#,%15#,%16#,%17#,%18#,%19#,%2 
Ø#,%21#; SUBE 2; RETURN : 
2760 ‘SYMBOL; DMY 1 =X9』HLTT 1; CPOKE ADDR,$1 
9,%5,%6,%7,%3,%4,%1#,%2#,%8; FOR DMY= の TOX 
8-1; ADDR: DMY) =DMY 1 : DMY) s NEXT; SUBE 1; RETUR 


ELSE XG=XIØ+4; XI=XG6GØ0-3; 


N 

2770 'PAINT;HLTL 1; CPOKEADDR, $18, 41#, 42#, 

LI, 4 。 15,06,07 ,78,79,710; 50ВГ J; RETURN 

2780 ‘LOC; HLTC 1; CPOKEADDR,3,3,$12,7.1,72; 

SUBC 1; RETURN 

2790 ‘COLOR; HLTC 1; CPOKEADDR,3,2,$11,%1;S 

UBC 3; RETURN 

2800 'WIDTH;HLTE 1; CPOKEADDR,1,0,7.1,72,0, 

72,0,1,0; SUBL 2; RETURN 

2810 ‘CONSOLE; HLTC 1; CPOKEADDR, 1,20,43,744, 

/۸1,42,0,1,0; SUBE 1; RETURN 

2820 ‘INKEY; HLTC 1; CPOKEADDR , $29 ,0; SUBE 1; 

HLTE 3; DMY=PEEK ( $FC83) ; РОКЕФҒСВО , $80; SUBE 
J; DMY=DMY ; RETURN 

2830 'SETTIME』HLT[ 1; CPOKEADDR , $3D,2,0,7.1 
, 42,43, 0; SUBE 1; RETURN 

2840 'TIME;HLTL 1; POKESFCB82, $3E: SUBE 1; HLT 
Cl; ТН=РЕЕК ($FC85) ; TM=PEEK ( $FC86) ; TS=PEEK 
($FC87) ; POKESFCB8O0 , $80; SUBE 1; DMY=TH\ さ 6 の の + 

TM*60- TS; RETURN 

2850 'HLT;CODE$B6,$FDOS4 , $2BFB#; POKESFDO 

5,980; CODE$B6 , $FDOS# , $2AFB#; AaDDR-$FC82; R 

ETURN 

2860 'SUB;FOKE $FDQOS,0;RETURN 

2870 'PALET;POKE $FD38*7*1,72; RETURN 

2880 ‘SCREEN; DTD-ABS (42-7) *16*ABS (41-7); 
POKE $FD37,DTD; RETURN 

2890 'WAIT;FOR Wi=1 TO X1;FOR W2-z1 TO 10 
000; NEXT; NEXT; RETURN 

2900 '(* SOUND SUBROUTINE +) 

2910 ‘SOUND; POKESFDGOE , %1 ; POKESFDOD , 3; РОК 
ES$FDOD,0; POKE $F DOE , %2; POKESFDOD , 2; POKESF 
DØD , Ø; RETURN 

2920 ‘VOICE; SOUND[ 4,13; SDUNDC5。@]』 SOUNDE 
10,151; ADDR-$F70; СРОКЕ ADDR, 41#, 42#; CALL 
$F20; SOUNDE7 , 2551: RETURN 

2930 'DWNSND;FOR 1=1 TO 10000; NEXT; SOUND 
(7,2471; SOUNDE8,161; SOUNDE 11,03; SOUNDLE 12 
, 81; SUUND[ 13,93; FOR 1=1 TO 30000; NEXT; SO 
UNDE 7,2551; SOUNDEB , 83; RETURN 

2940 '(* FPUT  SUBROUTINE *) 

2950 'DTRANS; 

2960 ‘FOR I-0 TOSS;FGETL$1000*$100*I,I-42 
1; NEXT 

2970 ‘FOR IO TO 1;FGETL$OEO0*$100*I,11; 

NEXT 

2980 'RETURN 

2990 'FGET;A-$8000*$100*72; ADDRES-71; FOR 
М=0 TO 3;HLTL1; СРОКЕ ADDR,$3F,'Y','A',' 
M','A','U','C','H','I',$93,$D3964,$91,$D 
3904,04,$004094,$90,$B6,$D402924*,$39; FOR N= 
Q TO $3F; ADDR: №) -ADDRES:N) ; NEXT; SUBE 1; AD 
DRES-ADDRES-*$40; A=A+$40; NEXT; RETURN 

3000 'ҒРОТ; Арі =%80200+56М (75) * (ABS (45) +1) 
*$100; А02=71+80+12; HLTL3; СРОКЕ ADDR, $3F, 
'Y','4*,' W'."A*,.'U'.'"C'. "Н", 1, ,695,90539 
Е#,%91,%0399# 。 %8000#,%0002#, $73, $8007#, $ 
90,А401#%,А02#,73-1 ,74-1 , $B6, $D409#, $39; SU 
BE 3; RETURN 


ポケ コン に つい て 


ぼく は PC-1500 の ユー ザー で す . 8 月 
号 の 「RAM& ROM」 さ ん や , 10 月 号 の 
「 ポ ケ コ ン 命 」 さ ん の 意見 を 読ん で ,「 ま 
っ た くだ . PC-1500 な ん か コン パク ト だ 
か ら プ ログ ラム は 簡単 に 組め ゆるし, デバ 
ッ グ は や りや すい . パソ コン の で か い デ 
ィ ス プレ イ じ ゃ 目 が 悪く な っ て し まう 
(実際 この 手 の 人 が 増え て きま し た )」 と 
思い つつ , 表示 の 大 き さ に つら れ て PC- 
1350 を 買い まし た . LCD じ ゃ , いく て くら 
大 きく て も 有害 性 が ある わけ あり ませ ん 
が …。 


PiD10 月 号 の 
レッ ド シ ョ ル ダ ー 
で ん へ 

Ө! LOVE M.S 


PC-6001mk II だ け で な く 〈 く ,FM- 7 も そ 
う で す . メ フ ィ ウ ス は ゲー ム ・ エ ンド の 
処理 が 全部 同じ 所 に ある よう で , 怪獣 に 
食べ られ た 所 か ら ず っ と CONT を 続け る 
と 全部 の ゲー ム ・ オ ー バ ー が 見 られ ます . 
早く ゲー ム ・ エ ンド (HAPPY END) 
が 見 た い 人 は , 上 記 の よう に や れ ば レイ 
ソー ド の 画面 まで 簡単 に 行き ます . 試し 
て みて く ださい. 


PiO ス クエ ア で は , PIO PiO の コ 
ー ナ ー で は 書き きれ な いよ うな 情報 
x, メッ セー ジ を お 待ち いた し ます . 


@ 


PID10 月 号 の ポケ コン 命 さ ん へ 


@ RAM&ROM 

あな た は , 私 が 本 当 に 言い た いこ と を 
わか っ て いな い の で は ? 私 が あの 中 で 言 
いた か っ た こと は ,「 ポ ケ コ ン は 何 も で き 
な い の で は な い の で す . それ を わか っ て 
くだ さい 」 と いう こと な の で す . それ か 
5, あな た は ポケ コン の 近 未 来 の 姿 を 想 
像 し て お られ ます が , あれ は パソ コン の 
近 未 来 , いや あら ゆる コン ピュ ー タ の 近 
未来 と いっ た 方 が よい の で は な いで し ょ 
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し か し , 現実 に お いて は パソ コン ・ ポ ボ 


ゾード ・ エ ラー で 困っ た ら 


@ 鈴 木 守 一 T 
市 販 の ソフ ト , また は 友だち か ら 借 り 
て きた テー プ を 読み 込ま せ た と き , テー 
プリ ー ド ・ エ ラー が 出 て 困っ た こと が あ 
り ま せん か ? そ ん な と き は 細目 の 十 か 一 
の ドラ イ バ ー を ご 用 意 く だ さい . そ し て , 
デー タ ・ レ コー ド の 録 / 再 ヘッ ド を の ぞ 
いて くだ さい (ポー ズ が ある と き は ポー 
ズ に し , 再生 ボタ ン を 押す ). ア ジマ ス 調 
整 用 の ネジ が 見 える で し ょ う . そ う で す , 
これ を 調整 する の で す . 

まず テー プ を 入れ (フタ が は ず せ る と 
き は , フタ を は ず す ), 適 当 に この ネジ を 
回 す . 聴感 で 良い 音 (高音 が 良く 聞こ え 
る よう ) に な る よう に 調整 し ます . フタ 
が は ず せ な い 人 は ,「 ち ょ っ と 回 し て 再生 


- す る 」 を 繰り 返し て くだ さい . INT, 
た いて い の テ ー プ は 読み 込ま せる こと が 
で きま す . 

な お , アジ マス が わか ら な い 人 は オー 
ディ オ に 詳し い 人 に 聞い て 〈 く だ さい 、. 


PiD10 月 号 の ホー トピ ア 殺 人 事件 が 


解け な い 人 へ 


ポー トピ ア が 解け な い 人 が 多い みた い 
な の で , この 場 を 借り て ヒン ト を 教え ま 
し ょ う . 

港 で の 暗号 は PC-6001 用 は 「 う みね こ 」, 


PC-8801 用 は 「 か も め 」, FM-7 用 は 「 い 
か り 」 で す . そし て , お こい に は ヤス が 
デマ エ を トリ まし ょ う . ここ か ら が クラ 


イマ ックス で す . フミ エ の 過去 が わか り , 


@ 相 沢 ひ ろ 


о7о Е4?? 斉藤 君 , 解け まし 
た か ? フミ エ の 兄 と は , な , な ん と … お 
っ と , これ を 言っ て は つま ら な い . し か 
し 教え まし ょ う . 誰か さん に 服 を 脱い で 


アド ベン チャ ー ゲ ー ム に つい て 


@ 眼鏡 河 馬 


最近 は や り の 「 ア ド ベ ンチ ャ ー ゲ ー ム 」 
に つい て , 一 言い わせ て も らい ます (は 
た し て 一 言 な ん だ ろう か ? ). 

私 は 一 応 ア ド ベ ンチ ャ ー 大 好き 人 間 で 
F. この よう な 立場 か ら 言 わせ て も ら う 
と , た い へ ん 腹 だ た し いこ と が ある の で 
+. それ は , 「 ア ド ベ ンチ ャ ー ゲ ー ム 特 
集 」 と か 言う も の で す . で は , 何 が 気 に 
入ら な い の か と 言う と , それ は 「 ア ド べ ベ 
ンチ ャ ー」 の 本 質 を 欠い て いる と いう と 
ころ な の で す . 

私 の 読ん だ 某 誌 の 特集 で ,。 1 つ は 「 う 3 
~E, 一 度 は や っ て みた いな <」 と 思い , 
1 つ は 「 な ん だ , こ うす れ ば いい の か 」 
と 感じ まし た . この 違い な の で す . 雑誌 
の 特集 は あく ま て 宣伝 に すま せる べき で , 
これ を 守ら な いと た だ の 解答 集 に な っ て 
し まい ます . これ は , 読者 の 方 に も 見 う 
けら れ ま す . 解い て し まっ た 人 に 答え を 
求め て , な に が 面白 い の で し ょ う ? 最近 
PiO に も こん な ハガキ が よく 載っ て いま 


t. だ か ら と 言っ て ,。 で か で か と 答え を 
載せ た り し な いで くだ さい . そう いう こ 
と が どう し て も 必要 だ と いう 根気 の な い 
Alk, 雑誌 な ど 利 用 せ ず に 解い た 人 と 二 


人 きり て 文通 で も し た ら ど う で し ょ うか . 


$1 


4 
NE 


E] ese 


最近 , PiOPiO に よく 〈「X メ ゲー ム の 答 
え を 教え て くだ さい 」 と か ,「 〇 OO の 場所 
が わか ら な い 」 な ど と , アド ベン チャ ー 


ゲー ム の 答え を 求め る も の を 見 か け ま す . 


私 も アド ベン チャ ー ゲ ー ム が 好き な 一 人 
で す が , こう 言っ た こと に は 感心 し ませ 
ん . 

な ぜ な ら , 自分 で 最後 まで 解い て こそ 
アド ベン チャ ー ゲ ー ム の 楽し さ が あ る の 
で あっ て , 他人 に 答え を 教え て も ら っ て 
は な ん に も な ら な いと 思う か ら で す . た 
し か に 解答 が わか ら ず に 行き び づま っ た と 
き の い ら だ た し さ は わか り ま す が , それ 
で も な ん と か 自力 で 答え が わか っ た と き 
の 気持 ちよ さ を 考 える と , 他人 に 答え を 


求め る と 言う こと が むなしく 思わ れ ま す . 


解答 が わか ら な いか ら と 言っ て すぐ に 他 
の 人 に 答え を 教え て も ら お うと する 人 は , 
も う 一 度 そ の へ ん の こと を 考え て , AD 
で 答え を みつ け 出 す よ う 頑 張っ て みて は 
いか が で し ょ うか . 


ケ コ ン 両 者 と も 一 長 一 短 が あり ます か ら , 
それ を お 互い に 認め 合っ て 共存 し て いく 
の が ベタ ー だ と 私 は 思い ます . だ っ て , 

「 お まえ の 機種 じゃ こん な こと は で きっ 
こない よ な 」 と 言わ れる の が 誰 で も 一 番 
腹 が 立つ こと で すか ら …. ポケ コン 命 さ 
A, 九 神 純 子 さ ん , 二 人 と も ご 意見 どう 
も あり が と う ご ざ いま し た . 


愛 機 に つい て 
oxi 


皆さん ノ ど うし て 自分 の 愛 機 を 手放す 
の で すか ? あき た か ら で す か , それ と も 
いや に な っ た の で すか ? 皆さん は よく 平 
気 な 顔 で 愛 機 を 見 捨て られ ます ね . 今 ま 
で 使い こなし て きた ん だ か ら , その 愛 機 
の 機能 を 充分 に 生か し て ゲー ム を 作っ て 
みた り し まし ょ う . ゲー ム を 何 度 も 作っ 
た 人 は , も う 少 し 勉強 すれ ば プロ グラ マ 
ー に だ っ て な れる の だ か ら , 売る 必要 も 
な く な る の で は な いか な (7). 

ぼく も, 正直 言う と ピオ ・ バ ザー ル に 
葉書 を 出し た の で す . 最初 の うち は 載ら 
な いか と 思い まし た が , 時 間 が た つ に つ 
れ て 売り た く な く な っ て きま し た . や は 
り パ ソコ ン に 対す る 愛情 が あっ た の だ と 
思い ます . 皆さん も きっ と そう だ と 思い 
ます . そう いう 気持 ち を 心 の 中 に 閉じ 込 
め な いで 外 へ 出し て し まえ ば , 愛 機 に 対 
する 考え 方 も 変わ っ て くる の で は な いで 
ETN: 


も らい まし ょ う . 意外 な 結末 が 待っ て ま 
+<. 
で は 頑張 っ て くだ さい . 


を この ネタ は 前 回 ボツ に な っ た よう な の で , も うぅ 一度 出 し ます . 8 月 号 の p.57 の 加藤 きん の P.S. に 反論 で す .「 言 いた いこ と だ け 言 っ て , 本 名 


を 明らか に し な い 卑 怖 者 が いる 」 と の こと で すか が , 


LOTET Sa? 


誌上 で は , だ と え ぇ 本 名 だ ろう と ペン ネー ム だ ろう と , 


その 人 自身 を 表 


わし て いる の で す . だ か ら 僕 は 卑 舘 ど と は 思い ませ ん . も っ と も 住所 を 公表 し て 非難 の 手紙 を 直接 受け と る 勇気 が ある の な ら 話 は 別 で すけ ど 


ね . P.S. 10 月 号 p.46 の 必殺 高木 きん , 僕 も 必殺 シリ ー ズ 好き で す . VU, ブーム を 起こ し まし ょ う . 


- 


( 気 ま で れ イ ン ベ ー ダ ) 


A^ Lunar City SOS 


b 5, 説明 する 必要 が な い ほ ど 有 
IE E LUNAR CITY BOS' X 
あり と あら ゆる 機種 に 移植 きれ て い 
id. 


全 加 の 機種 は SMC_-70/777. 他 の 
マシ ン 用 の も の と 比べ な が ら 。 お 楽 


し が だ とき いい) 


19884F, 新人 類 は 誕生 し た . そし M 


この 額 に 埋め 込ま れ て いる 
直径 1 cm の 機械 きえ を な けれ ば ,。 私 だ 
っ て 彼ら と 何ら 変わ り は な い の だ . 


て その 17 年 後 の 2005 年 。 新 人 類 撲 減 
を 狙う 昌 人 類 と 私 は 戦わ な けれ ば な 


5 な い …. 


HEEL! 

DEF EB 
мон: EE 
ПЕ) сх. 


板 を 動か みす パズル と し て は か な り 
有名 な この パズル . 外 へ と お びき 出 
す キ ャ ラク タ も , 箱入り 娘 や 王様 , 
aaa e y Pa es 


(ЖЖЖЖ 
ا‎ | 


平和 な 惑星 モリ ブテン は , 突如 現 
われ た 無数 の 戦闘 デバ イス に より 5, 
80 多 を 占拠 さき れ て し まっ た . 

し か も , 自分 の 地位 と 財産 を 失 な 


うこ と を 送れ た 市 長 ら の だ め に 。 あ 
な だ は 100 勝算 の な い 無 意味 な 戦 
い を し な けれ ば な ら な か っ た . 


= 


20 例 珍 年 、 今や 地球 は 侵略 者 の 置 
き 土産 びあ る ウェ ザー コン トロール 
・ タ ワー に より , 地球 全体 の 気候 が 
大 混乱 し て いた . 

この まま で は 農作物 に 大 き な 被 害 


を 及ぼ し , この 物価 高 と 不景気 に ま 
すま す 折 車 を か ける こと に な っ て し 
£. 


作っ た だ た プロン レス ・ 


この FP 版 で は 刀 者 を お なび き 出 し 
て 〈 く だ さい . 御用 イタ や 十 手 イタ を 
うま く 動 か し , 最短 手数 と 言わ れ て 
いる 81 手 を めざし て くだ る さい. 


SCORE HUHHUHHGHI ЕТЕ O02 STARE ПЁ 
HI SCORE BDHHü2HüUDn EV H.U. #suBu S 


“カーン "。 ゴン グ が 鳴る や いな や 


飛び 出し て きだ た の は 大 巨人 モン スタ 


ー ロ シモ フ . それ を 迎え 撃つ は トー 
キョ ー ト ム . さき て 勝 敗 は いか に ? 


昨今 の プロ レス ・ ブ ー ム を 反映 し 
(i, ブロ レス 研 の 会 長 さ ん 自ら 


ゲー ム で す 」 


最近 ちょ っ と 太り ぎみ の ヌー タ 君 . 
を そん な 彼 を ちょ っ と で も スリ ム に し 
て あげ る だ た だ ため, 飼主 で ある 吾 が 医 は 
ある 減量 作戦 を 決行 する こと に し た . 
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= LEVEL3/MARK5 


進 し て くる スラ イダ を よ け ,“ 手 " 
E FR 
Mx ЫЫ IRD = WF 
ン 型 の ゲー ム な の に や た だ た ら と 頭 を 使 
E E 

し か も , いろ いろ と 変化 もつ けら 
れる コン スト ラク ショ タン 
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と する 大 編隊 で 押し 寄せ て き 
絶 体 絶命 は た し て d 
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英 の 戦車 が 止ま っ て 見 える ほど の 
高速 走行 が 可能 な к mngy i 7 
ルド . こい つが 最前 線 に 送ら れ て き 
だ た の だ が 10 日前. みん な で 寄っ て た か 
っ て 作り 上 げた 次 の 日 , お れ は 英雄 
めざし て 1 人 出撃 し た . 
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Galaxy UFO 


西 歴 2007 年 , 人 類 は 太陽 系 惑星 障 
E o ME 
の B-4 地 区 だ け と な っ て いた だ ただ. В-4 
地区 は 平均 気温 一 70 度 と いう 製氷 
庫 の よう な 場所 で あっ た が , その 地 
ト に は 大 量 の ウラ ン が 埋蔵 され て い 
た, NM», その ウラ ン を 狙っ て UF 
O が 飛来 し た . 
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NIPPY が 動け ば 壁 が 動き ます . 壁 
が 動け ば ボー ル の 行動 男 囲 が 広く な 
り ま す . この ボー ル の 行動 範囲 内 に 
手裏剣 が あれ ば 。 も し か する と 当 た 
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“風吹 け ば 桶屋 が 儲かる ” 式 の この 
ゲー ム .。 な か な か 難し いで す よ . 
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音 を た て な が ら 部 屋 の 中 を 飛び 回 る 
グラ ミン グ や デバ ッ グ を し て いる と 
き な が ん ぞ 、。 た まっ だ も ん じゃ 部 二 9 
ませ ん . 


е S A 


Ej Double Density 


無数 の 落下 物 が 地上 めがけ て 降下 し 
て きた . 人 々 は ビル の 中 へ E EERE Û 
た が , この 凶器 の 雨 の た め に 一 歩も 
外 へ 出 ら れず , 蓄え て あっ た 食糧 も 
底 が みえ は じ め た . 


集 へ と お も むく の で あっ た . 
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暑い 和 夏 の 夜 な ど に , ブー ン と いう 


、 シャ ッ ツラ ユン を 有 目 の 前 に た で 5 放 


^Hz£, 日 ご みろ の う ら み を 晴 し 


この ゲー ム も А A 


植 さ きれ ま し た . 


итен some өзө 西暦 2000 年 , また し て も 我々 に 対 
"o met し て 敵 宇 宙 人 人 ども は 攻撃 を 仕掛 け て 
きだ た だ. そし て 早速 コス モ ・ フ ァ イ タ 
ー で ある 我々 に , 宇宙 人 撃退 の 命令 
が 下る きれ た た. 
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西 歴 2020 年 , 突然 空 の か な た か ら 


そこ で , 男気 ある あな だ は 果物 収 


12 月 15 日 に 公開 され る 新作 “ゴジ ラ ". こ 
れ の 目玉 は 何と 言っ つて も 迫力 の ある 特撮 
シー ン 、 ご この 特 枯 シー ンー に は 区 まで 。 ゴジ 
ラ 自 体 は ぬい ぐる み が 使 われ , 中 に は 人 が 
入 つ て 操作 レ て いま し だ . も ちろ ん , 今回 
の ゴジ ラ に も , そう いつ だ 昔ながら の 方 法 
が 使わ ね な いわ け で は な い の で す が , 新 だ 
に 撮 映 の だ め , サイ ボツ ト ゴ ジラ な る も の 
が 製作 され まし だ . 

サイ ボッ ント (CYBOT) と は , サイ バネ 
ティ イッツ クス (Cybernetics ) と ロボ ツ ッ ト (Ro 
bot) を 含 わ せ だ 造語 で , ある 目的 を 果 だ 
す だ め に 最適 の 動作 を 自ら 制御 し て 動く 口 
ボッ ト の こと . 89, Bg, F, W, 5, M, 
目 な どの 部 分 が 微細 に 動き , 旧作 に は な か が 
つ だ “生物 感 ” を ひも し 出す こと が 可能 と 
の ここ 、 

こ ご の サイ ポッ ト ・ ゴ ジラ が ガ 10 月 5 日 一 10 
EJ, 東京 は 有楽 町 に 出来 だ を ばかり の の 有楽 町 
セン ター ビル に 出現 / 

新作 の ゴジ ラ は ゴジ ラ の 原点 に 戻り , “人 


で の 壮絶 な 戦い が 始め られ た . 
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BORU と し て の イメ ー ジ が 強く , この サ 
イボ ッ ト ゴ ジラ の 形相 も 凶悪 その も の , R 
示さ れ だ ゴジ ラ は その 周り に 集 ま つ だ 群衆 
を に こら みつ け て いま し た だ. 

デモ が 始ま る と , ゴジ ラ は 大 きぐ 口 を 開 
け 牙 を むき出し 雄叫び を 上 げ る . 首 を 前 後 , 
頭 を 上 下 に 動か し , と きど き 右 斜め 前 に い 
る 私 の 方 を 向き , 牙 を お むき, ま ぶ だ を パチ 
クリ レ だ 後 , 眼球 を ギョ ロッ と 動か す . Z 
の 動き は 正 に "生物" を 感じ させ ます . 

この サイ ボツ ト ・ ゴ ジラ は 数 日 前 まで 大 
島 の 撮 映 で 使わ れ て いた だ も の で , 身長 4.8m, 
体重 1 .2t, 頭 の テッ ベン か ガ ら 尾 の 先 ま で 10 
m と いう 実に 大 き な も の . 動力 に は オイ ル 
シリ ンダ ー や , エア シリ ンダ ー が 使わ れ , 
これ ら を コン ピュ ユー タ て で 制御 し て いま す . 
新作 ゴジ ラ に は こん な 大 きい サイ ボッ ト 
ゴジ ラガ が 登場 し た り の, 新宿 で 3.000 人 を 使 
つて 撮ら れ だ 大 群衆 シー ン な ご 魅力 が いつ 
ぱい で す . 12 月 15 日 に ゴジ ラ が 大 あばれ す 
る の が 今 か ら 楽 しみ な 今日 この ご ろ で す . 
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оххх, 地球 を 征服 し よ 
うと だ (6 ら ぜ 優秀 な モン スタ ー の 上 兄 
BD, 地球 の 重要 人 物 数 人 を 人 質 に 
と り , 地下 の 基地 に 立て こも っ た . 
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さす が に 毎月 ヒッ ト 作 は 続か な いも の て , 今月 は や や 不作 気味 . でも, これ は お そら く , 
クリ スマ ス か ら お 正月 に か け て の 商戦 に 向け て ソフ ト を 開発 し て いる か ら で し ょ う . その 意 
味 で は 12 月 期 に 出 て くる ソフ ト が 楽し み . 

AR を ZS は あえ 。 期待 し て ます / 


コム バッ ク と は で きま す ), 敵 A S の 残す エネ ルギー>* 
X1/C/D ッ ク (これ を 取る と シー ルド 数 他 が 増え ま 
セッ ト Y3,800 F), RA (うま く 利 用 する と 攻撃 し や すく 


c (Armored Soldier) 
ルン Ж な り ま す ) な ど が あり , それ ぞ れ 性 格付 け 


エネ ルギー チ ヤ ー ジ 完了 , 敵 戦艦 を 撃破 せよ / DUDES eu ST Y. 


まだ まだ た スク 束 ー ル 和み テテ ャ ング で わ ち 8 方 向 ス クロ ー ル ), 敵 戦艦 を 1 発 で 仕 最後 に 。 この ゲー ム は 1I/O 誌 84 年 12) 
クーー ム が 登場 し まし だ た だ. Е АЧЫ ДИЕТ 止め る ほど の 火力 を 持ち 。 し か も シー ルド に 掲載 きれ る 予定 で す 。 (©) 
る AS C, この ゲー ム で は 場面 を 宇宙 も ロケ ッ ト 型 より 強く な っ て いま す . し か 〈 問 い 合わ せ 先 》 (株 ) コム パッ ク 
CX. UC T0) TEXAS UD» С-г С, 01:2 151 Wp “His + SICA 2K1-37-1 
ト 型 か ら ロ ボッ ト 型 へ と 変形 で きる よう に を と 五 ゲ ケ ゲット 型 に 戻っ て し まい ます . ぜん らく ビル 5F 
な つっ てい ます 。 これ ら の 他 に , ye al らら 出撃 する KD 1% (03) 375-3401 

最初 は ロケ ッ ト 型 A S で す . この ロケ ッ A 5%, 敵 の 兵器 で ある 赤い 是 (破壊 は て 
ト は 4 方 向 に し か 進め ませ ん . すなわち 。, きま せん が 。 攻撃 し て 進路 を 変え きせ る 
ロケ ッ ト の と き は 4 方 向 に し か スク ロー ル 


し ませ ん . し か も , 敵 の 戦艦 (これ を 倒さ T T GENESIS 


な い 限 り 敵 は 何 機 で も これ か ら 出 撃 し て き e. HEURE 
みず ) も 倒せ ませ ぜん) се F 655 - -SISCH 
C. NODI G БТЕ EAA p Ле ENERGY 
ЖҮЛ УГО С зол ЛД ДЖЫ УЖ ОУ 5, AS SHIELD 
が ロケ ッ ト で ある 間 は エネ ルギー を チャ ー $ 
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の ロボ ッ ト 型 A Siz, 8 方 向 に 進め CT 
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° ® ボー ステ ッ ク "а Ый НОТ ЕЕН みつ づつ ぶす 

U ノ PC-8801/mkII と き や 葉 っ ぱ ば を 取る と き 。 完全 に ) RE A 

=з カセ ッ ト Y3,800 わせ な けれ ば 踏み つぶ し た yT E 
ティ スク Y5,800 に な ら な い の で す . これ が と て も 難し い の 


いじ わる だ けど , жыкканы ыйы, TEA ст. 慣れ て いな いと , チョ ビン を 気絶 し 


まず 間違い の な いよ うに 申し 上 げ て お а а ние А て いる 間 に 踏 みつ ぶせ な くく て, その うち に 
ます が 。 チョ ビン と は 敵 の 坊 き ん Tee É tia Ы о な ゲー な めか と оао AT: EBA aS Sea が れれ 
ee 2 本 書 て いる よう な の で …) の ご いう と , この チョ ビン が な か な か 頭 が いい ませ ん も テ 少 て し 判定 を 者 くし て ぐれ だ ら ) 
と で す . 主人 公 は タヌキ 君 な の で お 間違い か ら な の で す . ボー ル の けり 方 と いい , タ あの と き 軽 く 2 面 まで 行け た の に …. 

の が きま e ヌキ 君 に そう 簡単 に は 近 よ ら な いと ころ と ER UN を に っ で で て る まま を qh 

C a ra А о = k S Q) Е с: いい 。 相当 に 器 に きま す ほど 怒り を 感じ ませ ん . と いう の も , キャ 
り ポ イン ト で ある 葉 ( 茸 か ら タ ヌキ に は 葉 E OE FEED SED CE ラク タ の 動き が と て も か わい い の で す . 近 
らち 溢 と 坊 き た が ツキ モノ の よう で 消 基 。 な ず 持 っ て いる ボー ル を けり ます この ボー 引 の ゲー ム ・ ソ フト の 流行 と し て “登場 キ 
СОО) TAC SOE EOE クレ が チョ ピン に 当 だ る と チョ ビン は 気 夫 も ャ ラク 婦 の か わい らし る と いう の が あり 
へ と 降り て いき ます . この と き , 上 の 階 に ます いい を し て も リプ е а ее р т iz, この ゲー ム も それ ら に 勝る と も 劣 
残っ た チョ ビン は 下 の 階 へ と 降り て くる の に タヌキ 君 が 踏 みつ ぶす と や っ つけ だ こと り ま せん . 特に タヌキ 君 が 上 の 方 に 行く と 
И DP DE ョ ここ は すべ て や みて а Р ke sp sis х ОЖ Е, ゲー ム を -- 瞬 忘れ て し まい を 


а EFT. 

: つ 言い 忘れ て し まい まし だ た が ,。 ボー ル 
は 進行 方 向 に けり 出さ る れ ま す . その だめ , 
ブロック の 近く 〈 く で 知ら な いう ち に ボー ル を 
けり 前 すず と … な こと に な りか > 私 な が な い の で ご 
注意 の ほど と を. (©) 


(問い 合わ せ 先 》 ボー ステ ッ ク ( 株 ) 
&»116 荒川 区 西 日 幕 里 2-41-16 
2 (03) 801-2301 
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突然 現われ た 美 少 女 . さて 彼女 は 善人 な の だ 
ろう か , それ と も 悪魔 か ? 


| る $ 光栄 
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ш カセ ッ ト Y4,500 


P 6 ディ スク \6.800 
得点 を 競 え る アド ベン チ ヤ ー ゲ ー ム アド ベン チャ ー 


最近 の アド ベン チャ ー ゲ ー ム は , 727 いな 絵 の 入 っ だ テキ スト ・ タ イプ の アド ペペ 
ィ ッ ク ・ タ イブ の も の が 主流 に な っ だ よう ンチ ャ ー ゲ ー ム で す . 絵 が 入っ て いる の で 
AU NUR КУК КАКЫ の の で ム が を 太っ だ テキ スト ・ タ イプ に あり が ちな ゲー ム の 単 
に 時 当 か たか bh: ま せん っ 今 M の ラビ ュー タダ と 調 き は あり ませ ん . まだ シーン の 説明 も 長 
きれ いな 絵 が 描け る か ら な の で し しょうが, くも 短く も なく, 適切 に 表示 し て くれ ます 
想像 力 が か きた て られ る , 絵 で は 表現 で き (た だ , 漢 字 や ひら が な で 表示 し た 方 が も っ F 


SS ER SISE E NEC E OA A БОЛУ CA r e この 方 式 に する と, 命令 や その 命令 に 対 


な い 場 面 も 作る こと が で き 
キス ト ・ タ イプ の 良き も 考え て ほし いも の さて, スト ー リ ー の 方 は よく ある 還 険 物 する 対応 の 仕方 が 問題 に な り ま す . し か し , 
ДУ; C, 沼地 に 沈ん だ と いわ れる 伝説 の 呪 城 を この ゲー ム に は ほとん ど ギ ャ グ の よう な 命 
を そん な 中 で ,。 この ゲー ム は と きど とき きれ е а Д Куд Дейк э) лег РЕ, T ЖА “pi G S G. し か も それ の 対 訪 まで し っ 
の 進行 が ちょ っ と 変わ っ て いて , 拾い 集め か り と や っ て くれ て いま す . その 対応 の 仕 


た 物 と 行動 回 数 に よっ て 得点 が 付け られ る 方 を 見 る だ け で も 結構 面白 いで す よ . 
の で す . その た だ ため , 友達 と 点 を 競い 合っ た この 他 に も , 地図 が 大 きい , 戦闘 用 の モ 
b, より 高 得点 を 狙う と いっ た 楽し み 方 も ー ド が ある , と いう よう な 特徴 が あり ,: fü 
で きる の て す . の アド ベン チャ ー ゲ ー ム と は ひと あじ 違っ 
また だ 。 命 信 の 入力 方 法 も ちょ っ と 変わ ә た ゲー ム で す . š (©) 

ンー ү: 
* 何 も を どう する "な どの よう に 文字 列 を 入 (問い 合わ せ 先 〉 (株 ) 光 栄 
ОРОС МЕ сү, ы ез, の ターム #223 横浜 市 港北 区 吉本 町 1876 

で は コン ピュ ー タ が 出し た 命令 の 中 か ' ら 選 光栄 ビル 

通行 料 な ん て 時 代 遅 れ も い いと こ だ . xy いう 方 弐 に な っ て いま す 。 No 


た いい の ゲー ン ム で は …. 


コン プティ ー ク また , ポイ ント Gà, カギ , その 他 の も 
3i PC-8801/mkII D) を 取る と きも 注意 が 必要 で す . この ポ 
ディ スク (5 イン チ )\6,.800 ィ ン ト を 取る と 時 間 が 増え て くれ ます が , 


2 : 赤 予 定 
FM-7/8 用 近日 発売 予定 最初 に た くき ん 取り すぎ る と 後 で 時 間切 れ 


AGED, RARE. ご れ ゲ ー ム の 常識 TTE с ы кесш. 


FRU EE E n いた だ ける も の は 先 に , つい で に 1 階 の E 
ここ は と ある 美術 館 . そこ に あな た の 演 Е C Ет LEDES E, ジャ ンプ の と き の ハ イ ・ 


じ る (Play す る ) 主 人 公 が 妨 び 込み まし た だ. テク ニッ ク , 展示 室 に 入る と き の パ ズル 性 
t2, Du EITEN. 7205.77» ЖЕ, どれ を 取っ て も よく 出来 て いる ゲー 
カー ズ ” の 1 人 で ある 絵画 どろ ば うな の で ACT, や っ ぱり アメ リカ と いう 国 は どこ 
к か が 遅 う ん で し ょ うお ね. 
こん な 設定 で 始ま る この ゲー ム は 。、 デメ な お 。 コ ンプ ティー ク き さん は “アズ テッ 
リカ で Apple 有 用 と し て 作ら れ だ た も の な の で 2" と いう 。 これ も アメ リカ の ゲー ム を 移 
生生 で た 0 es ass Ma a e e Ж Лг こち ら の 方 も ょ て も は 
リカ っ て や っ ぱり すご いん だ な と 思っ て し く < 出来 て いる ゲー ム で , -- 度 は 試し て みる 
まい ます . | | 1 と いい で す よ (PC-8801/mk II,FM- 7 / 8 
まず キャ ラク タ の 動き が と て も リア ル で 用 が 発売 され る 予定 で す (9) 
“quas rep な MA これ に は 感動 し まし た . E S n 
рк таре op 
; E uit. IER 
QE NT QE 5 
s š - Fab RGB. s te А x 
思い が 。 この ゲー ム で は も っ ЕТЕ : М 
сан А Ms MCI ащ, Pumas っ て 入れ ば いい の か ヵ か 頭 が 痛く な る よう な 部 
peak Элу дуне x Co aee 屋 も あり ます .。 FU, エスカレーター に は 
CELF OS T) EX の ドー こま sI L ҮЗ 
る で 音 を た て て いる か の よう に 動く の で す . x ; 


% ボン トド トド ソ フト 的 結末 に な る か 。 ハッ ビー エン ド に な る か 
ノ PC-8801/mkII, PC-8001mk II lk, ZL 4 x ОК / (90) 
MZ-700/1500 
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タイ ムシ ー ク レッ ト 1 の 続編 "4 Eri dia 《 問 い 合わ せ 先 〉 (株 ) パ スカ ル I 


я»432 浜松 市 佐 喝 台 4-9-10 


《 問 い 合わ せ 先 〉 (株 ) コ ンプ ティ ー ク 
&»102 東京 都 征 代 田 区 隼 町 3-19 

清水 ビル 4F 
(03) 234-8041 


“不思議 の 森 の アド ベン チャ ー”, “タイム hl, タイ ム ト ン ネル に よる タイ ム ・ ワ 13 (0534) 53-6186 


常に スト モラ ー の アド ベンチャー ゲ ー ム Ao Ea opo x esa M. 
を 作っ て いる ネコ ジャ ラ 氏 が 放つ 。 アド で 筋 や 結果 が 異な っ て くる ) を 採用 し , ぐっ 
ンチ ャ ー ゲ ー ム の 第 35%. と ロー ルプ レイ ング の 要素 が 増え て いま す . 
Жр ыз ЫЛ КН ж. AGAM. FT AD mo hp = 
{лк К 72 АУЛ ИЛ TAND リー ズ 前 回 の と きよ り も 合理 的 に がり, + 
点 を 見 付け , タイ ム マ シン を 駆使 し て 見 付 ーー 入力 が さら に 楽に な が り ま し だ た . 
けた 武器 を 持っ て ファ ラス に 向かう 途中 , 2 券 の カセ ッ ト ・ テ ー ブ '" に は メイ ン ・ プ 
頃 石 へ の 衝突 で 惑星 べ で が ガサ イド に 不時着 . ログ ラム と 宇宙 デー タ , 地球 デー タ が 収録 
すべ て を 失っ た あな だ は 今 , 新しい アド で ベ encius. ta - ^ P x 
ンチ ャ ー が 展開 し ます . 140 の 画面 の 中 を , タ イム シー クレ ッ ト 1 ee gy a 


タイ ムシ ー ク レッ ト ・ シ リー スズ 今 回 の ゲ pl E SW. きき あま оу аен І 
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コス モス ・ コ ンピュータ ー STU DPS NOD 時 的 まい まま Lia 
PC-8801/mkII ン あ も や も ゃ ん に 会 うだ め に 上 へ , 上 へ と 登っ て 


ディ スク ¥6 800 いけ ば いい の で す .。 し か し ,。 この と き 敵 ( 天 
カセ ッ ト  \4.800 
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ва JO Ъ) Et E 手 を 邪魔 

ホン ワ フカ, メルヘン ・ タ ダッ チ の 礎 登 り ゲ ー ム k Ое = EERS 

"оа кыы Au даз Go n как ба. жы tu au у を 発 す れ ば いい の で す が , Ае 

У だ な カカ 86 で こじ 2 D аЬ 最近 の ゲ も 負け な いく て らい 。 か わい ら じ く 出来 上 が の 回 数 が 限ら れ て いる の で す . その だめ , 

С О И на っ て いま す . と きど き 雲 の 上 に の っ か っ て いる 乾電池 を 
ПАКЬ осетат: まず , 主人 公 の ライ オン 君 ( 雷 様 の 子 ど 取っ て 充電 し な けれ ば な り ま せん . 


も の 名 前 で , 漠 字 に する と 雷 音 な ん だ そう ご の ま ラ タラ に, てこ の ゲー と は ば トー リー や 
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で す ) の 動き が と て も か わい い . 特に 木 に キャ ラク タ が と て も メル ヘン チッ ク で す . 
HIGH совр СООО Е ОРДЕ, ЖЫТУ シュ ー テ ィング ・ ゲ ー ム を や っ た 後 の ビ リ 
SERBE 29 ほ 笑 み が こ ぼれ て し まい そう で …. ОЛОО ЛӘР, 5 
ت‎ de まだ, 敵 の キャ ラク タ も な か ヵ か な か ヵ : わ い ЕКА ЕА BAIS 
CHARGE 009 «ШЖ Т. し か も キャ ラク タタ 自体 の (оше AIT EPNMOIT. (©) 
RAION 04 DRONAS IE E AE KTS GUNDI (問い 合わ せ 先 》 (株 ) コス モス ・ コ ン ピ ュ 
E LE ER D ООС すこ 4253225" ター 
IS COMPANY EC as | Mi 
uo Ze үл УТУЛ) ЫЕ ЛЕ, を の 9164 東京 都 中 野 区 中 野 5-52-15 
f. FEFE を る ) 12 do fk つ ; S — F 5 
フウ ,。 や っ と ここ ま て 登っ て きた . だ けど , あと Own s ш Bag HN て 葉っぱ ば 中 野 ブ ロー ドウ ェ イ 2F 
どの くら い 登 ら な くち ゃ いけ な い の か な ぁ . の 上 を 歩く の で す . 2 (03) 385-5388 


彼女 の 必死 な 願い も , この 森 と 川 を 前 に し て 
は 無力 と 化し て し まう の だ ろ ろう か .? 


ipu LI » マイ クロ キャ ピン 
vam — PC-9801/E/F PC-8801/mk II 
ディ スク (5 イイ ンチ,.8 ) Y 9,800 


CM. 7 用 近日 発売 
е; 近 完了 予定 
ロー ル ブ プレイ ング ガ アド ベン チャ ー ガ や アド ベン チャ ー 
それ と も コミ ックス や 
コツ ゼ 居 デー コマ ックス まだ 理 起 と まだ , と き に は ドッ ト の 粗い 絵 が ディ ス 
は ほど と 逝か も も しれ ま せん が 。 TAZEV ク か ら ロ ー ド され た 後 ,。 それ を パッ と 縮 少 
方 が 一 番 び っ だ た だ りす る デ ド ベン チャ ー ゲ ー に 5 あ も お あ 9 n ge cer" 
A. を それ が この span УУУ E ^ L, 登場 人 物 が 生き y: l4 
まず 。 こ の ゲー ム で は 絵 が サッ と 右 か ら Las も b і ә EEN БАА < 
左 へ と スラ イド し ます . この 効果 は アイ デ * う 効果 を 考え 付い iesus LUC k L せん . 地図 を 書い て も , 全然 使い も の に な 
ア の 勝利 / で すね . まる で 本 を パラ ッ ヒ (e う が あ り ま せん . (o SO 
bi —-i2EeESLITT. さて , この ゲー ム の 舞台 は 伝説 が いう 剣 ご の あがり が 、 この ゲー ム の ロー ルアン 
の 時 代 の 北 ヨ ー ロ ッ パ で です. この ゲー ム を イ 性 な の か も しれ ま せん . し か し, 少女 (と 
遊べ ぶた だ ため に 北欧 伝説 を 読ん で みる の も いい て る も か わい い の に ) $t $tEv"' odH 
SU m pow Toma RENT こし て ぼ きじ く な が っ た “と 思い ます . 
id, B N と か な り 解 Шш? ロー ル ・ ベ ペ ベンチャー で で コミック 
ООСО СУ かち すう A" と 名 付け られ て いる この ゲー ム は な が 
ゲー ム は 森 の 中 に いる 少女 に 会 うこ と か O な か ホネ の ある ゲー ム で す . や き し い ゲー 
ら 始ま り ま す . と ころ が この 少女 どこ に ム に 飽き た , と いう 方 は どう ぞ . (9) 


いる の か まっ だ くわ か ら な い の て す . юр 。 (問い 合わ せ 先 〉 (株 ) マ イク ロキ ャ ビン 
の 位置 に いる の か , それ と も 動い て いる の &»510 三重 県 四日市 市 鵜 の 森 1-2-15 


ヵ ( 少 女 は “" ま どい の 森 "” が いけ な い の が ど , Jf ORAE CS kx 
どう し た らい いん だ ろう . ここ は 渡れ る の だ Lond LT УК s X 
ろう か , ЖАКСА САС と 言っ て いる の て す が ) さっ ぱり わ 2 (0593) 51-6482 


£7 ATT OS o b RERA EA, 
EU СО" I ERD 
ディ スク (5 インチ) \6.800 ル を 順番 どおり に 取れ ば いい の で す が , 2 
ディ スク (8 イン チ ) жт,800 の 順番 や 置い て ある 位置 も よく 考え られ て 


タイ ミン グ だ けが ガ が 問題 な の に … NOE Muze. dd. poort i る 


со 
© 
ご 
m 
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いみ で すし DUEL よう な も の ) は 炎 を ユラ ユラ させ て 飛び 回 数 ル は きのこ まで 縛 も て や まう の で や だ ら 
ゲー ム で すこ いつ も な が ら ば た ・ ス コア や AAPA CEC (v6 と 使え を ませ ん し , これ も 5 つ 集 め て し まう 

暮 き 換 える で らい は 遊ん で か ihi nine DICE ESL EOBM--b$5 51:503 と ボー ナス に は な る が 1 つ 撃 て ば 全部 消 ぇ 
2229 何 回 や っ て も も う 少 し の と こ の こ は 踏 まれ た だ 時間 に 胞 子 を バラ まく し ・ て し まう し … と 面白 い ア イデ ア が 何 箇 所 に 
k 5 сым аш プ DU. тиб ESTA PCOB УА も 見 付け られ ます . 


MES C^rL5i:8»50c4», voit 
も 遊ん で いら れ な い (お っ と , 遊び じゃ あ 
DLL 仕事 で す ) の で 。、 キー ボー' ド 症 
Ú BENT A it "T. 

で は , この ゲー ム の 面白 さき は -- 体 何 な の 
О У Sy hdi 


ハー ドウ ェ ア が PC-9801 ほ ど に な る と 。, 
AFAL TONTA E CEREREA S A 
A UDO CR 
の 部 分 ) に 頼ら な いで , 面白 い (アイ デア を 
だ くる ん 盛り 込ん で くれ だ の も うれ し い 限 
りす ここ ご 答 か ら も こう いう ソラ ジ ト . 計 増 守 


まず , キャ ラク タ の り リアル な 動き が 挙 ザ -— — —— " (s S Sa Aa жй (©) 
の で EA Лу E A. あこ HISCORE 020000 Fl " (問い 合わ せ 先 〉 シス テム サコ ム 
* S a TS SCORE 000700 L. 
ショ ン ゲ ー ム "と 銘打っ て ある だ け あ っ て , STRENGTH 4 * B101 東京 都 千 代田 区 外 神 田 3-6-3 


ERG COP ОАА УЧ お , ウォ ー ム ・ ボ ー ル が 出 て いな い . 
な に し ろ , ウォ ー ル ・ ボ ー ル (火の玉 の み を つけ て あの クリ スタ ル を 取っ 


ち に は ず 清田 商会 ビル 3F 
お う . 2 (03) 251-1803 
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エニ ックス すま し 顔 で 動き まわ る ゴン ベ 君 。 し か し 我ら 
PC-8001mkII が アラ レ ち ゃ ん に か か っ て し まえ ば ーー 
J = カセ ッ F Y3,600 ( 
リア クシ ョ ン $ 2 


アラ レ ち ゃ ん が ゲー ム に 出場 , さて どう な る や ら 


テレ ビ や マンガ で お な じみ の , あ の "Dr. Lat bd E EES LGOERBRLUTIu 
A ар MG ая УТЕ AOA ех УУ IL by РАА ОА Е; 
а. тА ФОР, 72v*7 を その ぶつ か り 方 に よっ て ある 一 定時 間 気 絶 
y EE. MXN ME S disc a ai し で たま いと ます 


mud. АА また だ, その他 の 仕掛 け と し て は 落と し 穴 , 
さき て, この ゲー ム の 舞台 は マシ リト 博 ] ワー プ ト ン ネル 。 ビー ム ス イ ッ チ な ど が あ 
BUD р у Заа от заа ат и $4. О yr А z ае н а が 
は 。 いろ ん な タタ イプ の ピス トシ の 他 に た いる と キリ が な い の で 。 Hn, Kk E SOE NEN S А y at 
きん の 仕掛 けが あり , マシ リト 博士 の 手下 に 活用 きれ れ ば や っ か いと いう , ご く ご < く だ と き の 面 に 含 わ せ て いま す . ここ まで 次 
RED, アラ レ ち ゃ ん の 登場 を 今 か 今 か が と 当たり 前 の こと だ け を 書い て お きま す 」 келй, EU E 9 EOS 
待っ て いま す . Же, この ゲー ム で は アラ レ ち ゃ ん が 蔵 жжке a А, M 
を それ で は, まず ビス トン に つい て 説明 し に や られ だ た とき,1 回目 は ロボ クレ ー ン が 
まし ょ う . この ピス トン に は , アラ レ ち ゃ 2 回目 は ガッ チャ ン が , 3 回目 は モン ベイ 《 問 い 合わ せ 先 〉 (株 ) エ ニッ クス 
ん や 帝 が ジャ ンプ し て 上 下 き せる も の や 。 さん が ロボ ビタ ン A を 持っ て 助け に き て < 99160 東京 都 新宿 区 西新 宿 7-1-8 
いつ も 上 下 し て いる も の , 1 つ を 上 下さ る させ and ( 他 に も .。 オ ボ ッ チャ ンマ ン な どか が в ава RUPES 


る と 他 の も 連動 し て 上 下 し て し じ ま う も の な 助け に き て くれ る そう で す が ). p.k E 1% (03) 366- 4251 


| スタ ー ク ラフ ト я " 
$ 2 m この ゲー ム を や っ て みて 思っ た の は と に 
人 VE, 77 J i リセ | CSR ор, кир "гоз фике. 


ディ スク  \7.,800 き に あれ を や っ た だ たか,。 これ を や っ た か と よ 


S.A.G.A. シ リー ズ の ら 作 目 アド ベン チャ ー < 考え て 行動 する こと . 石橋 を た た いて 渡 


Р ЗА Me DALAI VT デブ の DEKWOOD KIET 225A ЕШ b Ze 2 < бб жез»? EC U + 5. 
ヨ NN リー ズ は 現在 14 作 . こ く 探 し, 宇宙 人 の 残し た と 思わ れる 宝 を 捜し それ に し て も スタ ー ク ラフ ト き さん の サポ 
れ を 遂 次 スタ ー ク ラフ ト さ ん が 国産 機種 に HL, 壊れ だ た ロケット を 修復 し て 母船 に 帰る ー ト の 良き に は いつ も 感心 し сыз, 普 
移植 し て これ が 6 本 目 に な り ま す . piwi 60. ちょ っ と 面白い に と 思っ だ の は , Hm eLX—ND5L.ELDESXSA. 
アド ご ン チャー の の ストー リー は, 6 アド ベン チャ ー 自 体 が 遠い 未来 の 宝 探 質問 に も 答 を で くれ な いと いう と ころ が 多 


Cum と いう 会 社 の 入社 最終 審査 に な っ て LOU. О СВЕ eL 
(“ЛЕ СЗ 6 つの 宝 を 捜し , fex て い Кол» ДА Ыга р ЭА, 


復 


6 Ж tt 
すれ ば この 会 社 に 入社 で きる と いう 設定 に 葉書 で きた 質問 に も 答 を て くれ ます . こう 
eS 74. No A ゲー ム は 安心 

ゲー ム を スタ ー ト させ る と まず クラ ス を LtN C2 T5. (5) 
開い て きま す . これ は 初 ・ 中 ・ 上 級 と 分 か 
れ て いて , それ ぞ れ ゲー ム 時 に 着用 する 宇 (問い 合わ せ 先 〉 (株 ) ス ター クラ フト 
宙 服 へ の 酸素 供給 量 が 決ま っ て いま す . も &»171 東京 都 豊 島 区 南 池 装 2-23-4 
ちろ ん ゲー ム 中 で 酸素 が な く な る と , グレ 富沢 ビル 4F 
よう や く 宇 宙 船 の 外 へ 出 ら れ ま し た . ここ ま で は 発 ん で 上 まう の で 。 EN p t T (03) 988-2988 
で くる に も な か な か 大 変 で す よ . 無 睦 な 動き は できない と いう こと で すす 。 


More PiO10 


| = ラ |PC-8801/mkII,FM-7 | アド ベン チャ ー C Y 4,800 東宝 映画 “ゴジ ラ " が その まま アド ベン チャ ー に | 東宝 (03)591-6621 
m EK Ж 艦 | PC-8801/mkIl,FM-7 | アド ベン チャ ー CY4,800 | 懐か し の 映画 “海底 軍艦 " が アド ベン チャ ー て 登場 | 
チョ マメ リズ ター PC-6001/mkIl о а 5"DY6.800 | PC-6000 シ リー ズ ・ ユ ー ザ ー 待 望 の 移植 版 シス テム ン ソフト (092)714-6236 
PC-6601 | 3.5"DY6.800 | 
PC-6001/mkII/6601 | CY4.800 | 
ミッ トド トナ イト マジ シック PC-6001/mkll | リア クシ ョ ン | 5”D Y 6.800 デュ アル ・ フ リッ パー が 楽し い ビ ン ボ ー ル ・ ゲ ー ム 
PC-6601 | 3.5"DY6.800 
PC-9801 8"DY6.800 | 
| V A D E P PC-8801/mkII | リア クシ ョ ン C Y 4,000 高速 33D ら シー ティ ング ゲー ム ム | ウイ ン キ ー ソ フト (06)372-8566 
|. 5"DY6.000 | | 
шо 2ť yt X1 シミ ュ レ ーション 5"D Y 5,800 実機 と 錯覚 し そう な ラン ディ ング ・ シ ミュ レー タ コム パッ ク (03)375-3401 
UM | | 8.57D Y5,800 | | 
“` F ecu 2 F) FM- 7 gu | CY3,800 | 輸 快 な 動き の 横 ス クロ ー ル ・ シ ュー ティ ング ・ ゲ ー ム | 


oie ET 半田 市 Nakkey 調布 市 DANCING STAR 広島 市 MAE 静岡 市 野村 せ ー や 


87 


去る 1 月 4 日 一 9 日 , 東京 ・ 
で エレ クト ロニ クス - シ ョ ー が 開催 ざれ 画 細 た . 


сная, テレ ビ な どの 民生 用 写 レ クト ロニ ク 。 
ス 機 器 を 始め , 産業 用 エレ クト ロニ ク 


公 年 の エレ クト ロニ クス ショ ー で は , 衛 


ж 放送 用 2 パラ ボラ ・ ア ン テ ナ が あちら こち t4 295- 
ら に あり , 各 ブ ー ス と も 必ず と 言っ て いい hij E FK | 
ほど モニ タ ・ テ レビ が 置い て あり 。 正 に 映 


像 文化 た け な わ と いう . 感 じ で す . 
ッ パ ソン ユン 関係 の 出典 は 現在 あ 


О ОО ЧАСТА 


な ん と パソ コン に ステ レオ ・: 
= w + A PKR < +L C & £ L 
た しかも, この デッキ は タイ レ 
IMM mb て な なく, 
BASIC か ら コ マン ト で 制御 で 
И бшш фору жу mu RAT 


SCT, 
その 他 MSX 仕 様 .RAM64K バ 


X1 シ リー ズ の ニュ ー フ ェ イ 
ス と し て 登場 し た X1turbo は こ 
の シリ ー ズ 最上 位 機種 . 

640X400 ド ッ ト の グラ フィ ッ 
ク ( ド ッ ト 単 位 の 色 指 定 が 可 ). 
高速 漢字 BASIC.。 ビデ オ と 直結 
で きる スー パー イン ボー ズ ・ エ 
ンコ ー タ 内 蔵 な ど と 機能 が 強化 
され て いま す . さらに, ベイ ン 
トル ー チ ン が 従来 の 20 一 70 倍 に 
高速 化 さ れ . 高 解像度 用 に 8 x 
16 ト ッ ト の PCG も 使え る よう に 
な っ て いま す 、. 

こん な に 機能 が 強化 され て い 
る の に ソフ ト は X1 シ リー ズ ス と 完 
全 コ ン バ パチ と いう の も 大 き な 特 
[ч (р 1 つて す 。 
< 価格 > CZ-850C Y 168,000 

CZ-851C( ト ライ ブ 1 基 ) v248,000 
CZ-852C( ト ライ ブフ? 基 ) v278,000 
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る も の を PR 
する 感じ の も の が 多く 新 製品 と 呼べ る も の は 
そん な 中 で 注目 る 
れ だ の は 日 立 の H2, ソニ ー の HB- P100/P200 


イト 標準 実装 . イン トロ クイ ズ 
が か て きる スキ ギャ ナブ レイ か でき 
る カセ ッ ト オ ペレ ーション ・ ブ 
.-12 ШМ сле шр ур U шы. x 
PK. 3 段階 の スピ ー ト コン ト 
ロー ル 機 能 と 多彩 な 機能 を 持ち 
з. 

< 価格 > \79.800 


晴海 の 国際 貿易 セ > Ж — 


この ジョ 


701FD, カ シオ の PV 


TT US XS I. aem aT 
?LXAUBmSTSO0Iz—3z-—rb- 
хла вт а TT 75 
ソコ ン は ビジ ネス 指向 の 強い デー タ シ ョ ー 
て で 多く 出展 きれ て い ぃ いた の に 。 
РОТОР aa ИЧЕ: 

J Z k = б> Жо а СІ ЛА 


ソリ ニー 


展開 する ニュ ー メ ディ ア と こと 先端 技術 


クト ロニ タク タス. 


電子 
E von. Д 


mm な 0 85 


РІО は 特に 民生 用 エ 291 


今年 の デー タ 


HB P100/P200 は .HB-101 を 
中 心 と し て 初 ・ 中 級 者 用 に 組み 合 
ね わ も され た パソ コン の コン ボ ポ л 
ニー ク な の は 本 体 の HB-101 の 
カー ソル ・ キ ー の 中 央 に は 穴 が 
Фос. ここ に ステ ィ ッ ク も を も 券 
し 込む と ジョ イス ティ ッ ク に 早 
отити эсс Э. 

本 体 デ ザイ ン も ユニ ー ク で 
両 シ ステ ム と も ゲー ム 性 を 重視 
LENLCTY. 

一 方 HB-701FD は スー パー イ 
SOR NM. TRES ヒデ ナオ 
- аш 


価格 が MSX 仕 様 で 一 番 安 い 
\29.800. 基本 シス テム で は R 
AM が 8K バ イト と 少な めで 。 H 
ー ト リッ ジ ・ ス ロッ ト も 1 つ だ 
け と 初心 者 向け . し か し , 拡張 
性 に 優れ て いる の も PV-7 ots 
MT. 8K--64K バ イト の 増設 R 
AM カー トリ ッ ジ と 拡張 ボッ ク 


ら he uo AT 
Seo CECOT 
А р о, AC 


7, シャ ー プ の X1turbo 製品 の 多い 民生 用 ブー ス て 今回 の ょ うに 多 
く 出展 きれ て いる と 

それ だ け フ パソコン が 私 た ちの 生活 の 中 に 
Кс А чур нб Ко сав BA уй hr. 


いう 状況 で す 。 


この 
ア の 発展 と 共に , より 身 

"は な いか ょ 感じ た v 
ショ ー!84 で し た. 


HB-P100/P200/701FD 


可能 。 3.5 イ ンチ ・ フ ロッ ピー 
ディ スク 内 蔵 。 セパ レー ト + 
ー ボ ー ト と 本 格 派 . さら に ワイ 
ヤレ ス ジョ イス ティッ ク (Wl 
WO) を 使う と , 離れ た と ころ か 
ら バ パソ コン の 操作 が で きる と い 
う 面 白い 機能 も あり ます . 
55. HB-101.HB-701FD と 


も MSX 仕 様 で す . 

< 価格 > HB-P100 74,800 
HB-P200 *118,000 
HB-101 Y 46, 800 


HB-701FD Y 148,000 


ス の 組み 合わ せ で 最大 64K バ イ 
ト ま で RAM の 拡張 が で き . 市 販 
の フロ ッ ピ ピー ディス ク な ど を つ 
な く こ と も で きま す . 
< 価格 > PV-7 
拡張 ホッ クス  \14,800 
増設 RAM カ ー ト リッ シ \ 5,800 


Y 29,800 


プ П Ӯ 4 раста 4 7 = 明 

ォ ー ル BASIC HDT, 解析 は 簡単 だ と 
思い ます が , 参考 用 と し て 行 番号 マッ プ を 
載せ て お きま す . 


di, この ブロ グラ ム で は CHHR$(15) C 
綻 ス クロ ー ル を 行なっ て いま す . 


Q М2-700 


マイ ナー ミラ クル 
ガー レー ス с 


も と も と この ゲー ム は 別 な ゲー ム で し た 0, これ ら に 上 自 車 が ぶつ か る と ゲー ム ・ オ に 
が , 内 容 が PiO 84 年 5 月 号 の “スー パー ミ md e 30 最後 lc 
ラク ル ・ カ ー レ ー ス " に あま り に も 似 て い また だ 自 車 は 水色 で , 50m 進 む ご と に 1 段 
77-5, 作り 直し た も の で す . が つた あがっ て いき 。 ч А КИТ. Ж も 超 時 空 要 塞 マ クロ ス は よかっ た (映画 ). 
ゲー ム 終 了 と な り る る や か で す が エ ン デ ィ 私 は 1 日 1 回 ビデ オォ オ で 見 て ます . だ れ か >, 
ング が あり ます | マク ロス の デ ・ カ ルチャ ー な ゲー ム を 作っ 


入力 方 法 車 , 人 , 水たまり が こん な に あっ て は …… А. 


ォ ー ル BASIC HOT, 特に 注意 する 所 
は あり ませ ん . リス ト を よく 見 て 間違い の 
が いよ ゆら に 大 衣 じ で で だ Svo; 


3:077 


オー プ ニ ン グ SUB へ 
初期 設定 

変数 発生 

キー 入力 
障害 物 と ぶつ か っ た か ? 
車 の 色 と そ の 跡 


スク ロー ル 
オー プ ニ ン グ 
ゲー ム ・ オ ー バ ー 
走行 距離 


エン ディ ング 


[ 灯 隊 | キー で 自 車 が 左右 に 動き ます . 障害 
物 に は , 水たまり , 敵 車 , 通行 人 な ど が あ 


EN マイ ナー ミラ クル カー レー ス BASIC U ス F mus 


] ОЕ U ЖЖ 
2 “жж DATE 1984- Ge MACROSS MINMAY жж 

3 kM H- ミラ 2 中 Dn-L-3 BV PIII = キロ ラキ ホホ 

4 ас Poi dpi pavit RNN 

18 GOSUE118: COLOR2; 1: LS: СОН501 ЕЙ, 25, 14, 11: COLOR; &: CLS: Я=6: SPEEDG 
28 DEFFHRHCZ2ZINTE&RHD( 1 2:25 

30 Яса) =". "日 まで 2)=CHR ま (1 ロロ DI H$C12-CHRfC982: DZ&HD CE 

48 R-FHACIiS:L-FHACSO:Rf$2H$CL): COLORL*1: ОСАЯТЕ 14+, A: PRINTH ま TL 2 5 СНЕЖ 150 
Sø Kf-IHKEV$CO»: 5=5+1: РОКЕВ+40+Я;, 46 

68 IFik$=" g" A+A) THENH=H- 1 

7B IFXK$-2"E"):x*CAac 102 THEHRZR*1 

39 POKED-4&HS,GO04H; &H58: POKED-*R : 281 

эй F-PEEKCD-*R-4&8»: 1Е5=5960510Е 134 

180 IFF»aTHEH14GELSEGOTO46 

118 FOüRIS?TOGSTEP-1: COLOR; I: CLS: HERT 

120 FLRV6;. "*C34C6*D34DO6*E4RS*D34*C 3549" 

1:8 TIME$=" 06: 06: AA" : RETURH 

148 FORI-GTOS:BEEP: NEXT: COHSOLE : CLS 

150 СОСЕТ: ЕЕІНТ "ТОШЕ ゅ T@IHE :29"s:TIMES 

168 LOCRTE18; 18: PRINT "um コウ taU gag": H+ "RRBSSSSg イ TRY AGAIN?" 

17 IFIHKEY ま (15 く > リリ "THEHRUH 

188 BEEF: D2D-48: Н=Н+50: Szü: ドニ ド +1 5 IFKZ222THEH19GELSERETLRH 


198 LOCHTE14;4:PRINT". EHD "; 
288 SPEED1:FOüRI-BaTO23: LOCRTE14; 2: PRINTCHR ま (1555 BEEP1: BEEFG&: МЕХТ: cs Мы уй А ы 


TU1 4 
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に 移り だ いよ ー. 


J MZ-2200/2000/80B 


DOWN DOWN DOWN 


ダウ ン ダウ ン ダウ ン 


ハイ ・ ス コア 
RUN し た 後 か , ゲー ム 終 了 か 
"d" # 1 段 下 げ て 表示 


ФСАТ. T soft スコ ア 
GET 用 
DEL 
PiO 8 月 号 の ミニ PiO コ ー ナ ー を 見 て , 穴 を 降り て くだ さい . Host (“ВА”) に 1 回 x —< r OA 
「 こ れ だ け 短 い プ ログ ラム な ら 20 分 で で き Cb Pn satt, V db Oo Y КЕЙ 


$/, Ev, 20 分 で 作っ て み ま し た . | X | XY の ワー ク 用 


600 点 近く に な る と , Error 3 が 出 ま す . 


ШШ DOWN DOWN DOWN BASIC! Я F üg 
10 HI=O0:Q=0:R=0:TEMPD 7 


Eu diis: る か ロー ド し に あし に が に 行 ( 大 は い を いい だ みう と 20 PRINTCHR$ (6) ; "HIGH-SCORE: "$ HI 
ЗО IF Q=O THEN 0=1:60Т0 50 
て か が から RUN し て くく だき い : を し て |SPA 思い 。 その まま に し て あり ます . 40 PRINT"YOUR-SCORE: "; SC 


dis rM ; 50 PRINT: PRINT"PUSHLSPACEJ ": SC--21 
СЕ キー を 押す と > URNAM ら 中 &0 GET A$:IF A$<>" " THEN 60 


央 部 まで 出 て くる の て, 14116) キー を 使っ て 終わ V) l: к M ut: ФЛУД! "S MUSIC"ASCDFBDGRS": PR 
< 


今 は まだ いい が , 穴 は も っ と 細く な る … INTCHR$(2);" #";SPACE$(6);:Y=1 
90 FOR X-1TO20: CURSOR Х-1, 5+8: РКІМТ" 4" 
: MUSIC"EOR2"t NEXTX: SX=1: XX=10: R91: BX=X 
"a yk Z P 5 r B s = š 100 GET A$:IF A$-"" THEN 1 さ O 
$ は 実 を 言う と 不思議 の 国 の アリ 110 IF A$="4" THEN SX--1 
ス 」 の アデ リス の つも りな の で す .。 この ゲー 120 IF A$="6" THEN SX=1 
ТАЙЫ Li. 130 X-X4SX: IF (XXO)+(X> さ 9) THEN SX--SX:G 
AX, アデ リス が 穴 に 落ち た シー ン を 表わし DTD 130 
So RUP a 131 AX=XX+INT(RND(1)*3-1):IF (AX<0)+(19 
p o5 y a 落ち 方 に 失敗 し た GRAT LE: +Y-AX< 1) THEN AX=XX 
いう 悲し い ゲ ー ム で 132 XX=AX: IF SC>HI THEN HI=SC 
と いう 恋し TF. 140 IF CHARACTERS (X, Y+2) =CHR$ (30) THEN 
P.S: MZ-80B と の 付き 合い が 2 年 . も う MUSIC"DSDD3DSFEZESDZDS4C3D5":GOTO 20 


150 CURSOR X.Y*2:PRINT"4":CURSOR O, 24 
[£] キー は 動か な いし , [e| キー, [F5] キー も 160 PRINTSTRING$(CHR$(Z0) , XX) š SPACE ま (20 
使え な く な り . や っ て いる うち に Be~; | Y)STRINGS(CHRSCIO), 19+Y-XX) 


170 SC-SC-*1: Y-INT(SC/30)*1:GOTO 100 


と 叫ぶ し , と も う 狂 っ て る ./ 220021500 


左 へ 左 へ と 行っ て も いい が , 後 が 怖い 


J LEVEL3/MARK5 


«€ —B80 XB. 


人 @ 中 井 X 


オー ル BASIC で と て も 短い し , や や こ FP ユ ー ザ ー の 方 ご めん な きる い / ぼく 
し い 命 令 や 変数 も 使っ て いま せん . だ か ら は 10 月 号 p.92 で て 「FP& る よ な ら 号 」 と けなし ん 頑張 っ て くだ さい. 
簡単 に 入力 で きる し , また 簡単 に 移植 も で だ 由井 で すず FPO2 2 2 р Уу LIDA と ころ で て で, 中 森 明 菜 は 最高 で す ./ 


きる と 思い ます . 結構 スピ ー ド も あっ て 友 ビ ピード な ど 。 まだ 捨て だ も の じゃ な い の で , 
達 の 評判 も いい の で , ヒマ つぶ し に で も 遊 お 互い 頑張 り ま し ょ う . ぼく 〈 も 佐々 木 君 も 
ん で みて くだ さい . 中 3 な の で パソ コン は で きま せん が 。 Б 


マー 君 の 大 冒険 BASIC リ スト iE 


35033 10 CLS:8CREENO, 1 , 11 WIDTH4Q1 X131 Y=1 さ 』 RAN M$ (A) LOCATE 26,0:PRINT SCj"m 


DOMIZE (TIME) 200 IF XX= さ の THEN XX-Q 
SC= の i XX= の 』 M= の iP=11FOKE&HFFD4 。255 210 LOCATEYX,Y-1:PRINT" "16070120 
diet ON de Ms (a) =" E 220 A$-INKEYS 
ブログ ラム を 入力 する か ロー ド し た 後 , M$ ( 1 ) =" GR 230 IF А%="4" AND SCREEN (X-1,Y)4»135 TH 
m Ag ap М9 (2) =" ша m ЕМ LOCATEX,Y:PRINT" "iXeX-11:G0TO260 
RUN す る と € が 出 て きま す . この e M$ (3) =" Gam 240 IF A$-"5" AND SCREEN (X+1,Y)<>135 TH 
を |4||e| で 左右 に 動か し, 行き 止 り に な ら СУЫ — umaq EN LOCATEX,Y:PRINT" ": Х=Х+1: 6070260 
M$ (5) =" El 250 LOCATE26,1:PRINT"Give up...G"11F A$= 
いよ の に 容 定 短 り で いつ で て 7 マ そ MS (о) = "EERE um "G" THEN 270 ELSE 220 
| oe : МӨ (7) =" BENE 260 GOTO120 
に て 行き 中 まり に だ っ て し まっ だ 回 qe M$ (8) =" lB 270 COLORP+2:LOCATE Z,11:PRINT"ww*w* GAM 
УУ" УТӘ?» M 4, qM A “3 YX=X E OVER 33"; SC; "m" 
( ギ プ ア ッ プ ・ キ ー) を 押せ ば ゲ T Ss COLOR7:LOCATEX,YiPRINT"@" 280 IF HS«SC THEN HS-SC 
t. 140 A=INT (RND (1) #9) 29@ LOCATE26,4:PRINT"HI-SCORE"sLOCATE さ 9 。 


15@ 7=SCREEN (X。Y+1 ) 

160 IF Z=1 さ 5 THEN 220 

170 SC=SC+1』M=M+1』IF M=5@ THEN Р=Р+11М=@ 
акә : ВЕЕР ELSE 190 
гең 180 IF P»7 THEN P=1 ELSE 190 
190 COLOR P:XX=XX+1: LOCATE 0,22«XX1PRINT 


S:PRINTHS; "m" 

300 COLORP*S: LOCATE 6,14: PRINT"REPLAY?(Y 
ZN) " 

310 A$=INKEY$:IF A$-"N" THEN COLOR7:WIDT 
H80:END ELSE IF A$-"Y" THEN 10 ELSE 310 


pFM-7 の フラ ッ ピ ー, つい に 200 面 の パス ワー ド を 手 に 入れ まし た (9 月 29 日 ). も う 感 激 の 一 言 で すす. その キー ワー ド は "※ メ メメ ※”"。 ふ ー 
AT, 教え て や る も ん か / 苦労 し た ん だ か ら ….。 ま だ や っ だ こと の な い 人 に は お 勧め . 値段 分 の 価値 は あり ます よ / PSL 常連 に なり だ 
い / P.S.2 1/O で も CPU で も いい で すか ら , BASE-09 に よる マシ ン 語 講座 を 連載 し て くだ さき さい. お 願い し ます . P.S.3 字 が 多 す ぎる か な ? 

乱文 失礼 し まし た ,。 PSA ファ ミリ ー コ ンピュータ の ロー ドラ ン ナ ー 面 白い 。FM 版 が 早く 欲し いよ ょ ー (NDIKAME) 


! 


ou 


O PC-6000 シ リー ズ 


BASIC 


アズ ステ デロイト ベル ト 


20 行 し か な い の に , な ぜ か 熱く な り ま す . 
9 月 号 の 逆 ス クロ ー ル が うま く 走 ら な か っ 
HOT, ハー ド ・ ス クロ ー ル を 利用 し まし 


32073 


要する に "nmn" (カタ カナ の ろ ) を よ け て 
変数 表 


得点 
STICK (0) の 値 
乱数 


突っ 走る と いい の で す . キー 操作 は | 知 |[ 呂 | キ 


ー で 左右 に 動き ます . な お ぢ お 最初 の レベ ル は 
無理 サ せ ず 1 に し た 方 が いい で で しょう. 


最後 に 


レベ ル は 1 一 5 まで あり ます が 。 1 で も 


か な り 難 し い の で は ? な お , レベ ル 5 の 
と き に 当 だ っ て も 死な が な いこ と が あり ます 
»" ああ 詐 も て で て だ る 

や は り ,。 アク ショ ン ・ ゲ ー ム の 良し 悪し 
は スピ ビ ピード で 据 ま り ま すね 。 


わっ , 目 の 前 に は 地獄 が … 


アス テロ イ F ベル ト BASIC U Z F 


CONSOLE ,,9,1 
CLS:PRINT "LEVEL (1"; СНКФ (126); "5) " 
INPUT A 

IF A<1 OR A>5 THEN 2 の 
AS=LEFT$ ("00000" , A) 
B$z"V"1:Bz15: T0: CLS 
LOCATE B,7:PRINT B$; 
C=STICK(@) 

IF C=O THEN 129 

IF C=3 THEN B-B*1:IF B> さ 1 THEN В=51 
IF C=7 THEN B=B-1:IF B<@ THEN В=@ 
D=INT (RND (A+A) #32) 

LOCATE D,15:PRINT A$ 

IF SCREEN (В,7) =219 THEN 170 
LOCATE B,7:PRINT B$;:T-T-*1 

GOTO 80 

LOCATE 5,10: PRINT "CRUSH':POINT"; T+1 


;"1:PUSH's'" 
180 LOCATE B,7:PRINT "X"; 
190 IF INKEY$-"s" THEN RUN 
200 GOTO 190 


PC-6000 シ リー ズ 


The Bomb; 


@ コ ゴロ スケ 


あな た は , 哀れ な 警察 宜 で て です. УУ УКЖ 
の 箸 長 荒田 累 三 の 命令 で , バク ダン マン を 
捕まえ な けれ ば な り ま せん . し か し 相手 は 
バク ダン を 無数 に 持っ て いる の で , こち ら 
が 負け る の は 確実 で す . そ れ で も , 死 を 覚悟 
で ひたすら 受け 取っ て くだ さい . 


遊び 方 
プロ グラ ム を 入力 (ペー ジ 数 は 2 以上 , 
モー ド は 何で も 構い ませ ん ), ま だ は ロー ド 
し て か ら RUN す る と , まず レベ ル を 聞い 
て 〈 く る の で , 1 一 13 の 数 値 を 入力 し て くだ 
る さい (レベ で ベル 1 が 最も 遅い ). 
する と ЧЕ? が 上 か ら 落 ち て くる の で 
も ーー いや , 警官 な ん か や め ち ま いた いい ノノ 


Score 38 
Hi—Score 38 


+ 


You 3 


"A" を 動か し て 取っ て くだ さい (落ち て 
€ る 場所 に いれ ば いい の で す ). 得点 は 16 一 
レベ ル で す . な お , 途中 で 救急 車 が や っ て 
きま す ( 斉 だ け ). そ うす る と , 警官 が 1 人 
増え を ます . その か わり , バク ダン の 落ち て 
くる スピ ー ド が 速く な り ま す . 

バク ダン を 取り 損なう と 死に , 全 部 (最初 
は 5 人 ) 死 ベ と ゲー ム ・ オー バー で ぞ す 、 


ブロ グラ ム の 説明 


ォ ー ル BASIC な の で 簡単 で す . し か も, 
だ た っ た 29 行 じ し が あり ませ ん ,: ブロ グラ クラム に 
多少 無駄 が ある と は 思い ます が 。 短い の で 
気 に し な いで くだ る きい 、 


神奈 川 に 住ん で る 佐藤 敏治 (ゴロ ちゃ ん ) 
元気 ? 杉田 に ヨロ シク 言っ と いて くれ / 


レベ ル 

SE Х, Y 座 標 
スコ ア 

警官 の 数 

ハイ ・ ス コア 

バク ダン X, YE 
バク ダン の スピ ー ド 
ステ ィ ッ ク の 値 
サウ ンド 


The Bomb BASIC リ スト 


10 INPUT "LEVEL 1-13";L 

20 IF L<1 OR L>13 THEN 19 

30 SCREEN 1,2,2: CONSOLE ,20,0,0: 

CLS: X=15:Y=1 の : SC=0: YU=5: HI =0 

40 Z=INT(RND (1) * つ フォ 2 ) 

50 FOR T= の ТО 10:1 ОСАТЕ 2,T:PLAY 
"OSC4Q":PRINT "¥" 

60 LOCATE 1,12:PRINT "Score";SC 

70 LOCATE 3,13:PRINT "Hi-Score"; 

HI 

80 IF YU-Q THEN 210 

9 の PRINT " You"; YU 

100 IF (X«ZORX?Z)AND(Tz1Q) THEN Y 

UzYU-1 

110 FOR F= の TO 15-L:LOCATE Z,T:P 

R I NT " " 

120 IF (Z-X) AND (T=1@) THEN 180 
130 LOCATE X,Y:PRINT "^" 

140 S-STICK (0) 

150 IF S-3 THEN LOCATEX,Y: PRINT 
" "rX=X+1:IF X= さ の THEN X=29 

160 IF 8-27 THEN LOCATEX,Y: PRINT 
" ":XzX-1: IF X-Q THEN X=1 

170 NEXT F,T:GOTO 40 

180 PLAY "O6B9":SC-SC*1:IF SG ヒ >=H 
I THEN Hi=SC 

190 IF SC-100-L THEN PLAY "ECECE 

CEC": YUZYU*1:L-L +2 

200 GOTO 170 

210 CLS 

220 FOR H= の TO 15 

230 LOCATE 12,3:PRINT "GAME OVER 
": SOUNDH,H*10 

240 NEXT 

250 PRINT " 

START!!!" 

260 IF STRIG(Q)-1 THEN SC= の 』 YU=5 
: CLS: GOTO 4 の 

270 GOTO 260 

280 REM*«*1984 7.22 By Y.H*** 

290 REM THE BOMB 


HIT SPACE KEY TO 


91 


Pio 


 MZ-1800・80K/C 


プラ ッ ク ・ ボ ックス 


BLACK BOX 


BLACK BOX を 知っ て ます か ?2 ほとん 
どの 人 が 知ら な いか も し れ ま せん .!/O 別 司 
の 「 マ イコ ン ・ ゲ ー ム の 本 |2|」 に も 載っ て 
いる そう で す が , あま り 知ら れ て いな いよ 
う で す . そちら の BLACK BOX は や っ た 
こと が な い の で , 多少 ルー ル が 違う か も し 
れ ま せん . し か し , な か な か 短く て 自分 で 
も 満足 で きる も の に な っ た の で , ぜひ 一 度 
試し て みて くだ さい . 


いちど うれ い 


自分 が プロ グラ ム の 中 を 歩き 回 る よう に 見 
も し ん ん БУ Р Us. 

is, 変数 名 XY と YZ は 進行 方 向 を 指 
СЗАН КЕФ КРЕТ EYZ КАРЕН 
どちら か の 和 斜め 前 方 を 指し て いま す . ま か た, 
460 行 は 左右 の 方 向 転換 サブ プル ー チ ン で す . 
あと は REM 文 を 見 て 頑張 っ て くだ さい . 


BUS 


そし て , 石 の 位置 の 予想 が つい た ら [Al を 
入力 し て くだ る さい. 正解 が 表示 る され ま す . 
まだ “ シ ツ モン ”" が 38 回 目 に な る と 自動 的 
に 正解 が 表示 る れ ま す . 


お まけ 


この ゲー ム の コツ は , 4 つの 角 の 両隣 b 
を 探る こと で す . そう する と 少し は わか り 
や すく な. り ます , 

この プロ グラ ム で は , 結果 を 表示 する と 
き に カモ フラ ー ジ ュ な ど し て いま せん . 本 
当 に 推理 力 を つけ だ いな 6 ら 350 行 あ た り に カ 
ウン タ を 作り , カウ ント 数 が 少な いと き に 
は M$ (メッ セー ジ ) を 表示 する 前 に FOR 
ーNEXT ル ー プ で 時 間 待 ちる きせ る と いい で 
bow. 

な お な この ブロ グラ ム は , 200,.230,. 510, 
520, 530 行 の CURSOR や 560 行 の GET, 550 


行 と 600 行 以後 の PRINT 文 な ど を 書き 換え 

れ ば ほとん どの パソ ュ コン で 動き ます . ま だ た, 
画面 内 に 収まら な い 場 合 で も メッ セー ジ だ 
は 人 に お ああ だき ます そう する も 所 
ケ コ ン で も で きる か も し れ ま せん ね . 各自 
の 機種 で 頑張 っ て くだ さい . 


ブ プログ ラム の 説明 


ォ ー ル BASIC な の で 簡単 に 理解 で きる 
で し ょ う (単純 BASIC と し て 有名 な シャ る さて, ブログ ラム を 入力 し て КОМ する 
—7' BASIC だ か ら ね ). 考え 方 と し て は , と “ シ ツ モン 1 カイ メ " と 表示 され, X 
さて , 次 の 一 手 は どう し た らい いで し ょ う カカ 待ち に な が なり ます . こ こ で 1 一 32 の 数 字 を 入 
力 す る と , “х” まだ は 数 字 が 画面 右 上 に 表 
eti). 0"x" 13, ЖІ ЖЕЙУ: 
らぶ つか っ だ の で 吸収 さき れ だ の だ , と 思っ 
ECL OK е 

また, HET HRD Bii DD 2 Là 
は , その 石 と は 反対 方 向 に 屈 接し ます . < 
07:5, 両側 に ある と き は 進行 方 向 が 180" 
反転 し ます . Lis, EHD G RHD RIAD? 
ある と き は , 中 に も 入れ ず に を そこ の 番号 が 
ота ғ. 


簡単 に 言え ば “ 石 当 て ゲー ム "” СТ. 8х 
8 の マス メ の 中 に ある 石 の 位置 を 当て る ゲ 
ー ム で す 。 


変数 表 


PX(n), pv 


石 の X, Y 座 標 
| サー チ の と き の X, VER 
X, Y 方 向 の 増分 
斜め サー チ 用 X, Y 方 向 増分 
質問 し た 数 
メッ セー ジ 


„г 
sif 
se" 
esl 
2 
F 


24 22 20 18. 
28 21' 19 17 


y"»t» 854/108 


mM BLACK BOX BASIC!) x F NENNEN 


99 ЕЕМжжжжж aT セッ エイ жжжжж 
199 CLR:DIMPX(4),P' 04), Ed.9)8 QUA: TEMPOG 
143 БЕМжжжжж T° (UR Fy? жжжжж 
15 FORI-aTO4 
168 PKK(I う =INTKRNDC і )жа+1 >): РУСІ) =ІНТСЕНОСі )*B+ 1 > 
178 IFB<CPxXZ<I ,PYKCI5)=1THEH168 
188 ECPECIO;PVCIOOZ1: НЕХТ 
1980 GOSUBEGG 
199 RE ホホ ホホ KEY 222797 жжжжж 
2080 CURSORG8;22: PRINTSPC 242 
258 QUZQU-1: CURSORG; 22: USRC62»: RINT IED "sols "ПЛ": 
248 INPUT""; G$: IFG$="A"THENS30 
250 G=VALCG$): IFCG&12*£G»322»2 THENGUZOLI- 1 : GOTO260 
233 РЕМжжжжж サー キー жжжжж 
300 ІЕБ<ЭТНЕНХ2=0: リン = 1 5 パニ ロミ =й 
3180 IFKG28»x*CG417» THENEZz-1: リン ニ ロミ 429: /zG-8 
328 IFCG21625«*CGCX2B5» THENXZ=0: アビ ニー1 5 が ニ ( ロ ー グ ロッ キー1 : 29 
330 IFG-24THENXZz1:VZz-z0: X20: " ニ バ ロー3 さ うう ネー1 
340 ХР=ү2: ҮР=ҳ2ж-1 
350 ТХ=к+к2: TY=Y+YZ 
360 IFB<T%,;T'/y=1THEHhMI$=" x":GOTOS168 
370 IFBCTA*AKP; TY+YF)=1THEN426 
3860 GOSUB460 
39 ІРҒВ‹ТК+ХР, TY+YFP)=1THEN436 
400 xX-TX:Y-2TV: TFC て = ロロ )+( リ = ニ ロ う + て 9 う + て Y=9)THEN47 ロ 
418 505064609: GOTOSSA 
420 エニ リン ジョ ミリ ジニ バン ジニ エネ ー1 s GUTO440 
エニ CI ジニ リザ 5 リジェ エネ ー1 


ーー O m V 

(O) "(9 を ビン ボー ン . 見 栄 COM 講 座 Part 3 が 始ま り ま す ( 番 号 が 飛ん で いる と き は 前 回 が ボツ だ っ た の で す ). 今回 は 「CPU」 L ГО, "CPU, L 
QA Ол は , 御存じ コン ピュ ー タ の 頭脳 で す . これ が な いと コン ピュ ー タ は 動き ませ ん . し か し , CPU の 仕組 みな ど 知ら な く て も コン ピュ ー タ は いじ 
れる の で , 下手 に 勉強 し て 頭 を パイ ナッ プル に する こと は あり ませ ん (筆者 が 知ら な い だ け だ っ た り し て …).。 CPU の 話 が 出 た ら す で に 「68( ロ 


92 Ce クハ チ ) な ん て 大 嫌い ダッ リ 」 と 言い ま は しょう. 筆者 が 個人 的 に 嫌い な の で す . 次 は 「1/O」 で す . 人 は これ を よく 知ら な いよ う で す が 簡 単 な 


pio 


IFCX-00 +=) t X=9) + Y=93 THEN4 70 
GOTO348 

468 XP-XP*-1:VP-2VP«-1: RETURN 

470 IFY=ØTHENM$=STR$ (x) 

480 ІРҮ=ЭТНЕНМҰ=5ТЕ$С сж 1 5+25 0) 

490 IFX= ロ THENM ま =STR ま て て キー1 )+ さ さく) 

S00 IFAZSTHENM$S-STR$Cy49) 

5809 КЕМжжжжж E3927 жжжжж 

518 IFQUZZOTHEHCURSOR27 ; QU: PRINTG: "-": Mt: СОТО200 
528 CURSORSS;GLU-19: PRINTGs: "-"5 M$: TFRLK3STHEHEER 
929 БЕМжжжжж ff} E3927 жжжжж 


549 БЕМежжжж END OR RGEIN жжжжж 
55 CURSORG8.; 22: PRINTSPCC2O2: PRINT "8 
S68 GETG$:IFG$-""THEHS668 

570 IFG£-"V"THENRUN 

58 IFG ま ="H"THENERND 

soa GOTOSED 

S99 ЁЕМжжжжж 2X2; Ез" жжжжж 

600 PRINT"E 1 2^*45*67 98" 


618 РЕІНТ" ———— P" 


628 FORI-9TO16:PRIHT41-Is"] | | | ! PT EI I"5I 
E3 PRIHT" Sr aG man ƏN EP pr pe sem "ROS x. 741 
6408 PRINT"Z 人 
PRINT" 24 .22.. 20 19" 1PRINT" ES Wl ES 


538 FORI-OTO4: CURSORPXCIO*2*2; PVCIY*2: РЕІНТ "е" : MUSIC"CSR": НЕХТ 
TRY AGEIN? СУН": MUSIC"RSR?" 


іг": RETUEN 


< MZ -2200720007808 


ジャ ン ピ ン グ ・ エ イチ 


Jumong Hs 


@ Catched. О [^ 


ある 日 , PiO'84 年 6 月 号 を 見 て いた ら , 
初心 者 の BASIC の み の プ ログ ラム で も い 
いと の こと .. ま た 。 8 月 号 か ら は “ミニ P 
ji) コー ナー" と いう の も で き て いて , “これ 


な ら … と 思っ て 頑張 っ て 作っ て み ま し た . 


プロ グラ ム も と て も 短い の で 。 入力 し て 遊 
ん で みて く 〈 く ださい. 


遊び 万 


ォ ー ル BASIC な の で , АЛ; モ セーブ と 
も わか る と 思い ます . な お , 1010 行 の DEF 
KEY 文 で , FKKD “1” は |SFTLOCK|+ |G 
RAPH| キー で 入力 で きま す . 

きる て プロ グラ ム を RUN す る と , まず ラウ 
ンド 数 が 表示 る され て ゲー ム ・ ス ター ト で す . 


CONSOLE C40 
1010 DEF KEY(5) =РОКЕ $0953, $733 

1020 POKE $0753, $00 

1030 P$="0" 

1040 M$="H" 

1050 FOR N=1 TO 60 

1060 NN=N 

1070 PRINT CHR$ (6) 

1080 CURSOR 10,10:PRINT "ROUND"; N 
1090 MUSIC "Кё" 

1100 PRINT CHR$(6) 

1110 FOR I=1 TO N 

1120 X-RND(S5)*39 

1130 V=N: IF V210 THEN V-10 

1140' Yz10*RND( 5) XV 

1150 IF CHARACTER$((X,Y)-P$ THEN 1120 
1160 CURSOR X,Y:PRINT P$ 
NEXT 

X210: Yz22: NXZX: NYzY 


あな た は 画面 左下 に いる “H” T, [8] キー 
で ジャ ンプ, [4||e| キ ー で 左右 に 動き ます . 
を そして, 画面 右 中 央 部 分 に ある “О” eH 
oU T и е4 

だ た だ, 以上 の 遊び 方 だ ば け で は あま り に も 
簡単 すず る の で , キー 入力 は 画面 最 下 段 に 
いる と きだ け に 上 。: ШУТИС Б 
度 か は ね て いる (トラ ン ポ リン 機能 ? ) X 
みれ 9 Эу 008 


ЕТА 


プロ グラ ム は 単純 だ し 。 お まけ に と て も 
短い の で , 解析 は 楽 だ と 思い ます , な お , 


と ころ どこ ろ に ある POKE$0953, nit, n=$. 


73 で キー オー トリ ピー ト 解 除 , 0»—$00C + 


Jumping H BASIC U А F 


1190 VX-0:VY--. 5 

1200 FOR T=1000 TO O STEP -1 

1210 PRINTCHR$(S):T;" ";TAB(10); "POINT" 
; P; 

1220 TD=T 

12:0 IF CHARACTER$(NX,NY)=P$ THEN NN=NN 
-1:MUSIC "CO":P=P+100 

1240 CURSDR X,Y:PRINT " " 

1250 X=NX:Y=NY 

1260 CURSOR X,Y:PRINT M$ 

1270 NX=X+VXiNY=Y+VY 

1280 VY=VY+. O3 

1290 IF NY>22 THEN NY-21:VY--.BXABS(VY) 
:GOSUB 1460 

1300 IF NX«O THEN NX-0:VX--VX 

1310 IF NX>39 THEN NX-39:VX--VX 

1320 IF NN=O THEN T-O 

1330 NEXT 

1340 IF NN»O THEN N-1000 


あら よっ と . 今度 は 届く か な ? 


ー オ ー ト リピ ー ト 設定 で す . 


終わ り に 


長い プロ グラ ム 作 り は 苦手 で す が 。 こう 
いう 短い の な ら か な り 作 れる の で , これ か 
ら も 発表 し た いと 思い ます (だ だ , ペン ・ 
ネー ム は いつ も 違う も の を 考え 出し だ いと 
思い ます ). ちな み に , 今回 の “Catched 
О” ix, 単に 捕まる 方 の “O" の こと な の で 
d. £LUC HD TAE D E WO 
SEA GL ЕЕ УСА" 


PRINT CHR$(6&) 

CURSOR 10,10 

PRINT "BONUS"; TD 

P=P+TD 

PRINT TAB(10); "РОІМТ";Р 
MUSIC "Кё" 

NEXT 

CURSOR 9,12 

PRINT "Eia" +CHR$ (30) "Ds" 
POKE $0953, $73 

END 

REM 

GET A$ 

IF A$="4" THEN VX=VX-.1 
IF A$="8" THEN VY=VY%1.5 
IF A$="6" THEN VX=VX+.1 
IF VY<=1 THEN VY--1 
RETURN 


bOTT. この "I/O, lk, CPU か ら 入 出力 す る も の が 通る 港 の よう な も の で す . も ちろ ん キー ボー ド の 情報 も ここ を 通り ます . 1I/O で 話 を す 
る と いろ ん な 所 に 話 が 飛ぶ お それ が ある の で , Hl, Thh, 1/0? あの ぶ 厚 い 本 ね 」 と 言っ て 話 を そら し まし ょ う . 
(あな た に ここ に いて 欲し い KEO) 
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PC-8001mkn 


・ ダ ウン 


DOWN DOWN 


ある 日 , 空 か ら 空 きか ん らし きも の が 降 
っ て きた 。 それに 紛れ て モン スタ ー も …。 
そこ で あな た の 目的 は , 落ち て くる 空き か 
ん を よ け な が ら , モン スタ ー を ビー ム 砲 で 
や っ つけ る こと で すず す . 


入力 旋法 


BASIC な の で わか る と 思い ます が , 
ン 語 の デー タ 部 分 は 間 違 を な いよ うに し て < 
だ さる さい. きも な いと mKII が 上 黙 り 込ん で し 


ЖОЛ 


ビー ム 砲 を [4][6] キー で 左右 に 動か し , 空 
きか ん を よ け な が ら モ ンス ター を 殺し ます . 
ビー ム 発 射 は ISPACE| キー で す . 20 匹 や 


マシ 


本 メ スエ エエ ナオ エエ イメ エ メ テ テ イイ ネネ イミ マミ ャ ャ マコ] 
* 
Down Down * 
by M.Totsuka 
* 
ТЕЗЕ ЗЕЗЕЗЕЗЕ ЗЕ AE IE AE ЗЕ AE DE AE DEAE Зе Зе AE AE AE зе AE AE зе 
CLEARZØØ 。 &HDFFF: CMD SCREENZ, 0,0: WIDTH 
25: CONSOLEØ,25,Ø,1:CMD COLOR, 3:CMD CL 
ss 
80 DIM DZX(35),EZ(21),F7Z(35) 
90 FOURI=&HE の の の TO &HEO11:READ D$:POKE I, 
VAL ("&H"*D$) : NEXT 
100 DEFUSR=&HE の の の 
110 DATA 3e,Q@,d3,5c,21,ff,bb,11,7f,be,01 
,89,39,ed,b8,d5,5f,c9 
120 FORI-&HDBCO TO &HDBEF 
130 READ A$: H=VAL ("&h"*A$) :POKE I,H 
140 NEXT 
150 DATA 5Se,af,0e,40,bb,28,165,05,20,57,2 
1,40,02,ed,41,cd,ei,db,ed,79,cd,el,db,b7 
,9d,952,30,f1,c9,1c,47,18,068,d5,15,10,15, 
20,fd,1d,20,f8,d1,c9,00,00,00,00 
160 DEFUSR 1 =&HDBCg 
170 FORI-ZOTOSS:READ DZ(I):NEXT 
180 DATA 32,156,0,20,0,85,256,15469,1280, 
20565,10752,-22358,-22016,-21846, 21761,2 
1589,-22006,-24406,-21974,-32598,21845,8 
21765,64,21761,0 


5,-21846,168,-21974,160, 
,21504,0,4096,0,0,0 
190 FORI-QTO21:READ EX(I):NEXT 


200 DATA 32,8,512,0,512,0,576,1024,575,1 
| 8024,2904,1216,24415,9428,22617, -23307 , 32 
617,-23207,0,0,0,0 
210 FORI-OTOZS:READ ЕУ (І) : МЕХТ 
220 DATA 52,16, 12549,25041 。 4256 。 2564 。 1 の 2 
4,16,3840,240,-255,255,-252,-16129,-241, 
-3841,-12529,-3852,-241,-2841,-497,-53905 
-497,-3905, 1509, M16193; -235,21756,3856, 
1264, 16, 1024, ай, 1280, 0,0 
230 бмр COLOR, : CMD CLS さ 
240 DEFINT A- z: :5С= @:Н5=@:1Е=5:МО=2@;:М1=2 
の : ド に し = の : DF=4 の の 
COLORS 
PRINT ' 
PRINT 
PRINT 
PRINT 
PRINT 
COLORS 
LOCATE15,7:PRINT "mmm. am s пш 
LOCATE15,8:PRINT "M ша ESEE M 
LOCATE15,9:PRINT "M MS ааа а ч 


LOCATE15,10:PRINT "ü mú PESEE 


書き 込む の を 忘れ な いで くだ さい . 


OFRE 


SEEE TWA 07. ЕА 1501 S 


に つき 20 点 で , 面 ク リア する と 1 面目 は 50 
ki, それ 以後 は 100 点 ずつ 加算 きれ た ボ 
SPACA T, その か わり 5/ 宅 つ つけ 
な けれ ば な ら な い モ ンス ター が 5 匹 ず つ 増 
まる 

きか ん に 当たっ た だ たり, モン スタ ー が 地 
di RE Ces 
iv. そし て 5 可 や られ る と ゲー ム ・ オ ー 
バー で す . 


プロ グラ ム の 説明 

PiO|2| に 載っ て いた 逆 ス クロ ー ル ・ プ ブロ 
グラ ラム を 使っ て 作り まし だ. それ 以外 は B 
ASIC で す ( 行 番号 110,、 150 行 の DATA X 
が マシ ン 語 デー タ で す )。 

まず, 行 番号 90 一 160 行 は マシ ン 語 の 書 


SAA, 170 一 220 行 は キャ ラク タタ 定義 , 23 
"DOWN DOWN BASIC リ スト Bi 


平和 な 街 を 守る た め , 頑張 ら な けれ ば . ノ 


0 一 480 行 は デモ , それ 以後 が ゲー ム の メイ 
ン で す . 特別 な が テク ニッ ク は 使っ て いな い 
の で わか る と 思い ます . 


その 他 


単純 な ゲー ム なので, 説明 が 簡単 に な り 
まし だ . と ころ で , ハ イ ・ ス コア 時 の 音楽 は 
ある 曲 を 作ろ うと し て 失敗 し た も の だ っ だ 
の で す が , まあ まあ の 曲 だ っ だ の で その ま 
$ 入れ で な きま し た 。 

最後 に / PC-8001mk II ユー ザー 
^. 8001 の ソフ ト に 頼ら ず 。 t > L mk II の 
ッ ク ト を 作り まし ょ う 。 そし て PiO に 投稿 
し よう (320 メ 200 で 4 色 … 悲 し い )。 


DIS 


a" 
360 LOCATE15,11:PRINT"EENP" WE" ws 
m" 


370 CMD PUTe(30,103) ,EX: CMD PUT@( さ の 。12 の ) 


, DX: CMD PUT@( さ の 。 1 4 さ ) ЕУ 

380 COLOR4: LOCATE6 。 135: PR INT"・・・・・ E^-4 f$ 
9 by M.Totsuka":LOCATE6,16:PRINT ".. 
... 7 * N Y ?":LOCATE6,19:PRINT "..... € 
フス ター " 

390 COLOR6 

400 LOCATE23,15:PRINT " — —" 

410 LOCATE23,16:PRINT " 14 61" 

420 LOCATE23,17:PRINT " — 
430 COLOR7 

440 LOCATE24,18:PRINT " ——" 

450 LOCATE24,19:PRINT "ISPACE I" 

460 LOCATE24,20: PRINT " ーー" 

470 LOCATE29,22: COLOR2:PRINT "Hit RETURN 
Key !!" 

480 IF INKEY$ ぐ >CHR ま (1 さ ) THEN 480 

490 CMD CLS さ 』 RESTORE929: GOSUB620: COLOR1 
500 LINE(O,1)-(0,24) ,"B":LINE(37,1)- (39 。 
24) ,"E",BF: COLOR4: LINE (0,21) ~ (40,24) , "B" 
„BF: X144: LOCATEO,0: PRINT "SCORE: @ 
HI-SC: の LEFT:5 "SLOCATE19,90:PRI 
NT USING" ######";HS 

510 CMD PUT@(144 。16 の ) ,E7. 

520 BEEP1:BEEPO:GOSUB 650:Z-RND(1)9*7:IF 
2-3 THEN GOSUB 720 

S30 IF INP (9)=191 THEN GOSUB 750 

540 A=USR (0) 

ら 5 の FORH=48T0288STEP48: IF STATUSPOINT (H, 
152) =1THEN 60508860: GOSUB 590 

S60 NEXTH 

570 X=X+( (INP (0) =239)-(INP (0) 21912) *16 : 
IF X く 16 THEN X=16 

580 IF Х>288 THEN X=288 

S90 CMD PUTe(X 。169) 。EX 

6 の の GOTO 520 

61 の END 

620 OUT81,0:POKE&HDBCC, 3 

630 READ M: IFM«255THENA-USR1 (М) : GOTO 630 
640 WIDTH, : POKE&HDBCC , 2: RETURN 

650 Y=(INT (RND (1) +17) +1)*16 

660 CMD PUT@(Y。16) ,D% 

670 IF STATUSPOINT(X*7, 160)-3 THEN FORI- 
170100: ВЕЕР і: BEEP の : NEXT: CMD PUT@(X 。152) 。 
рх: GOTO 699 

680 RETURN 

690 LF-LF-1 

700 LOCATE32,0:PRINT USING"s":;LF:IF LF-Q 
THEN 870 

710 RETURN 

720 SV= (INT (RND (1) #6) +1) #48 

730 IF STATUSPOINT (SV+ 1 の 。16)=2 OR STATUS 

POINT (SV+1@.24)=2 OR STATUSPOINT (SV+10,3 


PS. ク ラブ の みん な 見 て ます か ? 


原稿 送っ て くだ さい ね / 


2)22 OR STATUSPDINT (SV。 16) =1 DR STATUSPO 
ІМТ (SV。24)=1 OR STATUSPDINT (SV 。32) =1 THE 
N RETURN 

740 CMD РОТЕ (5V, 16) ,FX: RETURN 

750 FOR 1=144 TO 16 STEP -8 

760 IF STATUSPOINT(X*8,I*11)-1 THEN 780 

770 NEXT 

780 FDRJ=1TD2 の : BEEP1 : NEXT: BEEPO: CMD LINE 
(X*7,159) - (Х+7,1+24) ,Q: CMD LINE (X*7,159) 
—(Х+7,1+24),5 

79@ IF STATUSPOINT(X,I)=1 THEN CMD PUT@( 
X, I) ,FX:MOzMO-1:SC-SC*20: FORJ«1T029: BEEP 
1: BEEPQ: NEXT: GOTO 810 

B の の RETURN 

B1 の LOCATE 5,0:PRINT И51Мб"######";5С:1Е 
MD= の THEN KL=KL+1: MO=MI+5: MI=MI+5: БОТО 

830 


820 RETURN 
830 COLOR6:DF-zDF*100:LOCATE11,10:PRINT K 
L;" 22 9UP '!'! ! sLOCATE14,12: PRINT "BONU 


S ";DF: COLOR4: SC=SC+DF : LOCATES,Q: PRINT U 
SING" ######"; 5С 

840 RESTORE85Ø:CMD SCREENS , 1 , 0: GOSUB620: 
CMD SCREEN3,0,0:FORT-1TO6009: NEXT: LOCATE 
11,10:PRINT " "sLOCATE1 
4,12:PRINT " ":$X2144: CM 
D CLS2: RESTORE920: GOSUB520: GOTO 510 

850 DATA 26,30,534,0,26,50,54,0,34,530,26, 
24,20,17,15,11,0,255 

860 VV-2:BN-3:FORI-1TO100:CMD SCREEN VV, 
9: SWAP VV, BN: BEEP1: BEEPO: NEXT: CMD PUTG (H 
3192) „ЕУ: RETURN 

870 RESTORE 510: : ҒОКТ=1Т0500: NEXT: CMD SC 
REEN3,1,0: 60508620: CMD SCREEN3,90,0: LOCAT 
E14,10: COLOR6: PRINT "GAME OVER ''":LOCAT 
E12,12:PRINT "REPLAY [RET] KEY" 

880 IF SBC>HS THEN HS=SC: LOCATE? , 14: COLOR 
S: CMD SCREENS, 1,0: RESTURE9 さ の 』 GOSUB620: CM 
D SCREÉN3,0,0:PRINT "YOU GOT A HIGHSCORE 
ttin 

890 IF INKEY$<>CHR$(13) THEN 890 

900 KL=Q: DF= ニ 4 の の : LF=5: SC=Q: MO=20: MI-20: X= 
144: GOTO 490 

910 DATA 0,34,0,54,24,54,0,28,30,30,34,5 
4,36,34,0,255 

920 DATA. の 。 さ の 。26 。22 。2 の 。 3 日 。 さ 4 。 さ 2 。 さ の 。 46。 の 。 
0,50,0,25,0,50,0,28,0,46,0,46,0,48,0,255 
930 DATA 11,10,17,10,15,5,11,10,24,10,,2 
0,5,17,5,15,5,11,5,15,10,17,10,20,29,17, 
$2541594,94,11,5,7,5,11,10,114,10,11,10,15,10, 
17,10,20,10,24,15,24,20,15,0,255 

940 END 


も 4X 十 3 で 表 わ せ る 値 (255 以 


(会 員 が た くさ ん 欲し い Robin) 


——— nm —n-Va a U c c ra rra ssraarrasa Fac 
* (O) Q (O) > PiO10 月 PiO 探 偵 団 の PC-1245 の ミニ ミニ 解 折 を , 私 の PC-1255 で も や っ て みた と ころ うま くい きま し た . どう é й 
Ол QA 2 F) を &F83E に 書き 込む と で きる よう で す . その 他 に 6, 7, 14 な どの 値 を 書き 込む と た 、RUN モ ー ド で RSV 設 定 が で きま す . た だ し , 後 で 0 を 


CJ) JFi- 100 


BASIC 


パ ズ ラ ー 


PUZZLER 


近所 の JR-100 ユ ー ザ ー で ある , Mr. MO 

HEJI 氏 か ら JR を 借り る 機会 が 何 度 か あっ 
た の で , その と き に 作っ た プロ グラ ム を 発 
表し ます . 1 年 くら い 前 の ゲー ム で は あり 
ます が , いま だ に 古 さ を 感じ させ な いこ と 
も な き に し も あら ず と 考え る 今日 この ご ろ 
Cy. 


ぶろ ぐら む 


ォ ー ル BASIC な の で , 入力 し た ら テ ー 
プ に セー ププ する だ け で す . 

この プロ グラ ム で は , 仮想 画面 (モドキ ) 
を $3D00 一 に 取っ て いま す . この 仮想 画面 
クリ ア に 時 間 が か か る だ た だめ に "WAIT A M 
OMENT" に し て し まっ て いる の で す . 5 
し か ら ず 。 


あそび か た 


RUN す る と キー 操作 な どの 説明 が ある の 


DIMP (6,6) ,W(10) , Y (10) :GOTO390 
REM ---MAIN LOOP 
FORT-1TOL:PICK K 
X12 (K275) - (K274) + ((K277) - (K272) ) #32 
IFPEEK (X*X1*2) =7BTHENX 1 = の 
Р=РЕЕК (X+X 1 ) : IFP>12BBDTD15 の 
817 (P276) : IFS1THENBDSUB さ 4 の 
POKEX,0: X=X+X 1 : PDKEX 。 128: P=PEEK (X+X 1 一 
$8400) : P= (Р>0) *128+P 
9 の POKEX*X1,P: YI-RND(3)-1* (АМО (3) -1 ) #32 
100 ІҒРЕЕК (Ү (Т) *Y1) THENY 1 = の 
105 IFM(T) THENPOKEY (T) +58400 。 の :M(T) = の 
110 РОКЕҮ (Т) 。 の 』Y(T) SY (OO *Y1: POKEY (Т) ,9 
120 IFPEEK (Y (T) +%$8400) -ÜTHENPOKEY (T) +$84 
00,137:W(T) =1 
130 NEXT T:GOTO30 
140 REM ---PUZZLE SUB 
150 IFP=1 さ 7BDT0919 の 
160 FORI-OTO1Q00: BEEP1:NEXT:R=P-128:IFR<5 
GOTO200 
165 R=R-4 
170 FORI-STO2STEP-1:P(I,R) =P (I-1,R) 
180 NEXT:P(1,R) P (CS, R) SFORI-1TOA:LOCATE1 
9+R 。 25+1 
| 19@ PRINTCHR$(P(I,R))::NEXT:PICKK:GOTO17 


@+ (К >@) #60 


200 FORI-STO2STEP-1:P(R,I) -P(R,I-1) 
210 NEXT:P(R,1)-P (R, 5) ょ FDRI=1T04:LDCATE 1 
9+1 。25+R 
220 РКІМТСНКФ (Р (К,1) ) 』:NEXT:PTCKK: TFK= の G 
DT02 の の 
230 51=10: GOSUB340: РОКЕХ+Х 1 -%8400,0: FORI 
=1704: FORJ=1T04 
ІҒР (1,7) 4»ZTHENNEXT: NEXT: GOTO7Q 
IF (P(1+1, J) =2) ж (Р (1+2, J) =2) GOTO290 
IF(P(1,J+1)<>Z)+(P (1,J+2) <>Z) GOTO70 
REM ---PUZZLE ОМ 
FORI-QTOS:FORJ-OTO2SSSTEP10:POKE1,4J: 
ВЕЕР 1 : NEXT 
さ の の FDRJ=255TD の STEP- 1 の : POKE 1 , J: BEEF 1 : NEX 
Т: NEXT: BEEPO: РОКЕ1 , $AA 
310 CLS:LOCATE10,8:PRINT"BONUS "』Nx さ の の 
320 S1-N*200:N-N*1:L-L*1: IFL>1 の THENL=19 
525 6070650 
330 REM ---SCORE PRT SUB 
340 S-S«S1:BEEP1: IFS2HTHENH-S 
ュ 5 の IFV*5000«-STHENV-V*1:M-M*1:FORISQTOS 
m 
360 BEEF:LDCATE2 , 26+ (S< 1 の の の の ) + (S< 1020) + 
(5<1@@)+(5<1@›):РЕ1МТ5; 


で , [RETURN] キー を 押し て ゲー ム を スタ ー 
ト き せ て くべ く だ きい . 

最初 画面 中 央 に 表示 され る の が パ ズ ラ ー 
で す . [MjlIK| で 上 下 左右 に 移動 し な が 
ら 土 を 堀 り 進ん で い 〈 と , 数 字 が 書い て ある 
ブロ ッ ク が 出 て きま す . この ブロ ッ ク に 体 
当 だ りす る と , 画面 右 下 に ある スロ ッ ト の 
ト 上 や 左 に 書い て ある 数 字 に 対応 する ドラ ム 
が 回 り だ し ます (上 の 1 一 4 が 上 一 下 に 回 転 , 
左 の 5 一 8 が 右 一 左 に 回 転 し ます ). を そして, 
COM" と 思っ な だ な とき. に 達 当 な キー を 押 
せ ば ドラ ム は 止ま り ま す . 


② の ドラ ム が 回 っ て も し ょ う が な い ノ 


370 LOCATES, 26+ (H< 10000) + (H< 1900) + (H< 100 
)+(HK 10) :PRINTH; :51=0: RET 

380 REM ---RUN 

390 OPTIONCMODE1:FORI-$COQOOTOS$COAF:READA 
$ 

4 の の A$="$"+A$: A=VAL (A$) :POKEI,A:NEXT:CLS 
410 DaQTA3C 。 7E 。 DE , DB 。FF 。FF 。 7E , さじ 

420 DATA7E,E7,F7,F7,E7,E7,E7,7E 

430 DATA7E,CS,FS,FS,CS,CF,.C5,7E 

440 DATA7E,C3S,F3,F3,ES,F3,C3,7E 

450 DATA7E,DF,CR,CB,C1,F3,F3,7E 

460 DATA7E,C3,DF,DF,C3,FB,C3,7E 

470 DATA7E,C3,DF,DF,C3,.CB,C3,7E 

480 DATA7E,C3,FB,F35,E7,CF,CF,7E 

490 DATA7E,C3,DB,C3,81,8D,81,7E 

500 DATA3S8,7C,B6,92,92,FE,44,:38 

510 LOCATE235,0: PRINT: PRINT: РКІМТ : РКІМТ: Р 
RINT 


520 PRINT" Шу Шр "4 — E pw 
um" 
S30 PRINT" gm i P" "m ш” 


540 PRINT" EM ШАЛ Ж JK... HR... Шы 
miu" 

550 PRINT:PRINT:PRINT:PRINT:PRINT 

560 PRINTSPC (9); "I"; SPC (9) ; "АМҮ KEY" 
PRINTSPC (8) 3 "J";FLD(1)3" "saFLD( の 9) ョ "に 


PRINTSPC (9); "М"; SPC (8); "STOP PUZZ” 

590 PRINT: PRINT: PRINT: PRINT: PRINT 

600 PRINT" COPYRIGHT 1985 BY К.К SOFT" 

610 PRINT:PRINT:LOCATE23,S:PRINT"HIT RET 

URN KEY TO START"; 

620 PICKK: IFK«7»13G0TO620 

630 CLS:N-1:820: V-1:M-3:L-4:09-0 

640 REM ---CRT PRT 

50 LOCATE12,6:PRINT"WAIT A MOMENT": 

660 FORI= $3DOQTOS$3FFF: POKEI,9:NEXT 

670 FORI-QTO2S5:LOCATEO,I: PRINT" Ø"; : POKE 

%5000+1,10: POKE$ZFFO*1,10 

Lowe LOCATE23 QIfPRINT'"ME"; : NEXT: FORI-1TO2 
: LOCATEI , 0: PR їмт"Ш"; 

м LOCATE I,25:PRINT "ш"; : :POKES$SDOO*I*3 

‚10: POKE$ZDIF*I*22,10: NEXT 

700 FORI- 1T022:FORJ-1T024:LOCATEI,J:PRIN 

Т" "11: NEXT: NEXT 

710 LOCATE1,26:PRINT"SCORE"; : LOCATE4, 26: 

PRINT"HI-SC"; 

720 LOCATE7,26:PRINT"SCENE": :LOCATE10 , 26 

s PRINT"PUZ2"; 


ШШРО221 ЕК BASIC!) x Hmmm 


この よう に し て , スロ ッ ト の 中 の キャ ラ 
クタ を 縦 ま だ は 横 一 列 に 並 ら で る と 一 面 ク 
リア で す . な お この ブロ ッ ク は , 一 画面 中 
に 8 種類 x AR, 計 24 個 が 隠 る きれ て いま す . 

また だ た, 画面 中 に は ゴー スト と 呼ば れる 和 無 
慣性 的 浮遊 型 (7) М {т СТ, o 
の 上 や > パ ズ ラ ー の 行く 手 に いき な り 出 くわ 
す ょ いう 。 ECS И) Р ТЫ CTI cn 
に 触れ る と アウ ト GEM) で あり ます . 


わん も あちゃ ん す 


2 ッ * ズ ラー が 全員 や られ る と , 普通 な ら ば 
a| te жеее у Lau Doe 
ム に は ワン モア デア * ャ チャ ンス と いう の が あり 
i. これ は , 画面 中 央 あたり で ルー レッ 
ト が 回 っ て いて , 適当 な キー を 押し な た だ とき 


( 4 


に に 7 は の 中 る と も うー 人 分 ゲン イオ イマ きる 
と いう , な ん と も あり が だ いも の で す . 
さい ご に 
土 を 掘る と き は な る で く 直 線 で , 慎重 に 


進ん だ 方 が いい と 思い ます . 曲っ た と き に い 
き な り ゴー スト や ,。 いら な い ブ ロッ ク が 
ある と ムカ ン キ ます か ら 。.。 

た と. それから ぼく は JR ユー ザー 
ゃ な い の で ,。 ブロ グラ ム に ムダ な 部 分 が あ 
る か も し れ ま せん が , そこ の と ころ は お ぉ お 許 
し の は ほ と を . 


730 LOCATE11,28: РКІМТ "ЕК"; :LOCATEB8,28:FP 
RINTN; 

740 LOCATE12,28: PRINTM; : 60508540: Z-RND (1 
2)4*129 

750 FORI-1TO4:FORJz1TO4: PU, J)=46s NEXT:N 
EXT:FORIZQTO2 

760 X=RND (4) +1: Y=RND (4) *1: IFP(X,Y) ZGOTO 
740 

770 Р(Х,Ү) =2: NEXT: FORI-1TOA 

780 POKE$C379-*1I,128*I: NEXT: FORI-1TOA 

790 POKES$CZS7E-*I*32,132*I: NEXT 

800 LOCATE18,26: PRINT"PUZZ" 

810 FORI-Z1TO8:FORJ-QTO3 

820 X=RND (22) +2: Y=RND (20) +2: IFPEEK ( $3DO0 
+Y*32+X) Б0ТО820 

830 FOFE$ZDQQ+Y*Z2+X,I:NEXT:NEXT:FORI=1T 
OL 

840 X-RND(22)-41:Y- RND (20) +2: IFPEEK (まう D の の 
*Y*224X)G60T0840 

850 Y(I)-2$2DO00-Y*324X: POKEY CI) ,9:W(I) =0: 
NEXT 

860 X2$C28D:FORIZ1TOA4:FORJ-z1TO4: LOCATE19 
+I ,25+J 

870 РКІМТСНКФ (P(J, 1)); :NEXT: NEXT 

880 FORI-s-1TO1:FORJ--352T032STEP32:I1zX-*I 
*J:PzsPEEK(I1-$8400) 

899 POKE 1 1 (Р>0) *128*P: NEXT: NEXT: БОТОЗВ 
900 REM ---DEAD. OVER 

910 FOURI= の TOD1 の 9 の: OPTIONCMODEO: РОКЕ 1 , RND (1 
Ø) +100: BEEP 1 : OPTIONCMODE1 

920 NEXT: BEEPQ: РОКЕ 1 , $AA: POKEX,0: X=$C28D 
: M-M-1 

950 LOCATE12,28: PRINTM; : РОКЕХ , 8: IFMGOTO3 
の 

94@ IFO9GOTO1000 

950 LOCATES,S5:PRINT"ONE MORE CHANCE" 

950 R-RND(19):LOCATE7,13: PRINTR; : PICKK: I 
FKzQGOTO960 

970 IFR«»76G0TO1000 

980 LOCATE9,10: PRINT"LUCKY ! ": M21: 09-1 
990 ВЕЕР 1: ҒОКІ=070200: NEXT: BEEPO: BODTD さ の 
1000 FORIz175TO2S5SSTEP290: FORJ-QTO3: POKE 1 
。 I: BEEP1:FORI1-20TOA4Q 

1010 NEXT: BEEP の : FUR 1 1=0Тт040: NEXT: NEXT: NE 
XT: POKE1 , $AA 

1020 LOCATE10,8:PRINT"GAME OVER":FORI-OT 
02000: NEXT: GOTOS19 

1050 REM PUZZLER 

1 の 4 の REM PRES.&PROG BY K.K SOFT 

1050 REM 1985 10/21 (NO. 58) 


95 


この ゲー ム は , 白い 宇宙 船 を 操作 し て う 
まく 着陸 し , 遭難 者 を 助け た 後に 母船 に 戻 
る と いう ゲー ム で す . 


入力 方 法 


kd, キャ ラク タタ 定義 プロ グラ ム (リス 
ト 1 ) を 入力 し て セー し , 次 に ヌメ イン 
プロ グラ ム (リス ト 2) を 入力 し , ЈАН 
1 の すぐ 後に モ セーブ し て くだ る さい. 


リス ト 1 を CHAIN 命令 で ロ ー ド し , し 


ば らく する と “LIST 2 を LOAD し ます .“ 
t 表示 る れる の で , も うし ば らく お 待ち く 


RU L7 
n 
人 @ 渡辺 淳一 


飛び か う 限 石 を [ 二 較 | キー で 左右 に よ け , 
ピン ク の 着陸 台 に うま く 着 陸 し て くだ る きい. 
この と き |SHIFT| キー を 押す と , 逆 噴射 し 
て 落ち 方 が 遅く な り ま す . そし て 着陸 する 
と 1 人 だ け 助 けら れ ま す . 
シー ン 2 (救助 ) 

助け た 人 を 母船 に 運び ます . あな た は た 
だ 上 に 行け ば いい の で す が 。 UFO が 邪魔 す 
る の で |SHIFT| キー で ミサ イル を 発射 し て 
撃ち 落と た し て くだ さい . な お UFO も ミサ イ 
лл. сешмш суша ы ле Г, Ж л дЫ рге бу бы 
ei. 
シー ン 3 (母船 ) 

EERE TEDE, 助け だ 人 が 母船 に 
収容 きれ だ こと に な り ま す . あと は 6 回 こ 
れ を 繰り 返し ます . . な お 着陸 や 救助 に 失敗 
する と , 章 難 者 1 人 と 宇宙 船 1 機 が 減り ま 
す 


逃げ きれ る か どう か 心配 で す 


Or 
i 


し て 1,000 点 も ら え ます . し か し 5 人 以下 だ 
と ルー レッ ト が 回 り 出 す の で , [RETURN | 
キー で 好き な と き に 止め て くだ さい (レー レ 
ッ ト は 1 一 9 の 間 で 変わ り ま す ). そ の と き 
の ボー ナス は (助け だ 人 ) х10х (止め た 
HK) です. そし て , ラウ ンド を クリ ア す る 
ご と に 難し く な り ま す . 


最後 に 
Ф. 
M5 ユ ー ザ ー の 皆さん , 論理 式 を 使っ た 


高速 ゲー ム を 発表 し よう / 
変数 表 


スコ ア 
ハイ ・ ス コア 


ラウ ンド 数 
宇宙 船 の 数 


dies vac (LX) | 
6 回 救助 に 向かう と ラウ ンド ・ ク リア で R 助け た 人 の 数 

ボー 占 が も ね もらえ X | ML prend PS 21001 

ポー ナス 点 が も ら え ます . Ж ә» 6 人 | | LO の レベ ル | KEE ill 
全部 を 助け る と ノッ パー フェ クト ・ ボ ー ナ ス と 


だ るい. そし て , ロー ド が 終わ る と デモ 画 
面 が 表示 され る の で , よく 理解 し て か ら | 
ETURN| キ ー で スタ ー ト し て くだ さい . 
シー ン 1 (ME) 


muu!) ДЇ 1 LANDER キャ ラク タダ 定義 プロ グラ ム НЕ 


10' *** LHNDER。1 жжж "ЗИВАТӢИГТӢИТӢзЙ зӣ зӣ" t. 440 data й7т1#1#5#3527#1#0#.35+#74 
29 Print "AMUDSNIBMESN":ma93 2:cons 494Ь5$6Йй4бйей,ей+58+#8#с4с+е+#83+#Йй0. 
ole 2,1 2 fcbe92d2ca860207 
30! ж DATA READ ж 450! ж MISSILE ж 
40 restore:for I=0 to Ziiread 468 data 4312434349393939, 0090 
A$ ロロ ロロ ロロ ロロ ad. 1038101410101014; 
50 stch A$ to Itnext£ I 4444949449494422 94 
60 stchr "3c4299a1a199423c" 470! * UFO * 
129,1 480 data O1030207070t£0a3f£.ft3f* 
70 st に hr "80830сӣсӣейей +0 #0" Ma1 2000090000, 30 с0 сдйейей #050 ·с, 
1509,5 f*fc505800000000 
80 stchr "ft8fS3fctcfetetttt" j490! ж МЕТЕО. ж 
Q5L1s93 REDIS, 500 data D00000DD7Db172ft34,Z+f1f 
90 stchr "010103503070970+0íf" 44799494494929, 0000001 с30сееӣет, 
13253 ейсе80 1 с00090090900 
Е Е КУ А CT е е Да г л 510! ж METEO.R ж 
015553 520 data 0020000388177207e7,0773 
110 stchr  "fffftfffftft$f$+$t +f" a01:800000000.000000e0dD0e8ft4fc; 
o 1354,3 + こ と 8† ゥ ロウ けけ 99 | 
120 stchr "àB8í183c66db7e2400" 530! ж UFD MISSILE ж 
o 139,2 540 data 80000000000000000.0101 
130 stchr "99 は dd けけ ff" 8101010201901,00000000000002000; 
o 17713 B00000000Dp030908080809D 
140 stchr "0009000000000 +00" 558! * CRRSH * 
o 178,3 560 data 094040686е6575 #24, 191 а 
150 stchr "000+#01050#35+#+#+#+#+#" Зе? ее552100,001010547308ь0+3, 
o 248, 2 fci4?7ae?7t090380380 
150 stchr "retteét3torcazxaogoaoQa" 570! ж ERUPTION * 
o 249.2 530 data 03580307070t0f1f1f.3*2f 
170 stchr "tfttf24t£ttftc358100" Tt?Tt?7£3tB0tBü3,.,cacBeBeBOftafatata, 
о 250, 2 fctctefefetcstüaca 
190 stchr "00 +#050сӢ+#0їс# + #+#" 590! жжжжжжжжжжжжжжжжжжжжжжжжж 
o0 291,2 6080! жж (С) 1984 Сорч Right. жж 
190 stchr "##+#+#+#сС+#@сСс@@ййййй" 410 Print "!N 610' жж Bu Iunichi-Watanabe жж 
бб? 02 AD LET." 620! жжжжжжжжжжжжжжжжжжжжжж жж ж 
200 stchr "aDnzc?e?elc?7eSacz;" 428 chain 
o 253;r 4308! ж LANDER 


| リス ト グ の LANDER BASIC リス F BENIN 


SC=Q:LE=5:RO=i:RS=5 
ML=4:UL=4 
3osub 16390 


o 


20 B$-2"habpa54383823236c" 
ж 


ж COLOR ж 
scod Й,й:=со1 B; 15 
11,4:5с01 11,14 


х) 
їл 
E 
=> 
ч 
= 
v 
m 
a 


Qu p ¿A t 


O 7 U^ 


bJ) زم زم م‎ F2 F2 F3 F3 F3 


: 5c 


i O 


I+5;,14:ne 


ы 


$color 
color 45,2B880:color 


;&Fü:color 15354, %0 


+ 


245.8 


o» uan 
© = 


J 
e 


СА CD C4 CD C4 COD C4 O C4 Ch C4 — C4 C4 C4 X 


А ч) r3) co 
^ ONG 


en c4 


190 MUsi:mouve on: scol 315,0:X-21 
20:216 

118 loc 8 to X,V:loc 31 to XV 
*11 


120' ж MAIN ж 


10! xxx LRNDER-2 жжж 

20 dim (9)。Y〈(9).H(9) ,PX(5) PY 
C8) 

30 randomize-time:S$-"O0000" 

40 9osub 1310 


RSzS:HE-80 
gosub 1442 


p PiO PiO で メジ ャ ー に な る 方 法 . £01: 
青 取 信吾 きる ん ) の ファ ン と い 5 "€ k. 
っ し 」 と 書か れ て まし た よ 。 


上 手 な 絵 を 描い て 投稿 する こと . その 2 : ファ ン ・ ロ ー ド を 読む こと . その 3 : xx SA (И: 
その 4 : 本 当 に 有益 な 情報 を 送る こと . これ で あな た だ も 常連 に PSI どっ か の 新聞 に 「 ゲ ー ム の ぎ 
P.S.2 むち ゃ くち ゃ 書い て すい ませ ん . (駒場 の Creamy Mami) 


150 .9050Ь 190:9050Ь 420:3osub 
560 _ 

140,30to 138 

158! ж SCORE ж 

160 locate 2,1 

170 Print rig9ht$(S5$*num$CSCO,5 
> 8 return 

130! ж LANDER ж 

190 К=іпрР 54) : Ғ=іпр‹ 48) 

200 X0=(K=32 and X>8)-〈K=64 an 
d xX«232) 

210 XzX*X0*MU 

220 on MU Joto 230,720 

230.o0n Plau(0)+1 Joto 240.250 

240 Play "o6r16a32" 

258 if F then FR=1-FR:YB=FR:sc 
01 31,8:90?%0 270 

260 sco! 31.0:FUz1-FU: VOzFU-*2 

270 wYVzsV«-VO:move ð to Х.У, 2: моч 
О Vy SU X» a A O 

280 if VX152 then return 

298 Рі=роіпі бХ, 170) : Р2=роіп? с Х 
+15,170) 

3600 if(P1229 and P2=29)then re 
turn 750 

310 return 830 

320 TL=19-TLis9 2,100,Ті:59 1, 
‚д 

338 5Т=51а105(11) +1: оп ST 90t0 


340.370 , 

340 RQs24(F»0»5:0n AM Joto 350; 
339 
559 loc 11 to#Ə:move 11 steP Ü 
.-4, 2 а 
3560 59 1,1900, 15 

370 V=V-1 


380 if Y<16 then return 1160 

390 V121-V1:VzsV-V1 

400 move B to x.V.2'return 

419! * COINC ж 

420 DR=1-DR:on DR+1 goto 4359, 4 

480 

430 stchr R$ to 137?75,3:90t0 450 

448 stchr В to 157,3 

450 on MU Joto 460, 480 

460 CBg= こ CoinC〈9,1 1) 

470 if C9>0 then return 33808 e! 

se return 

480 CO=coinc(0;12,;21>:Cl=coinc 
(11512516) 

490 it Cg>gd then return 350 

5800 if Ciz-1 then return 

510 erase C15^;11:SCsSC*(rnd(25* 
1) *10 

520 for 1=299 to 100 stepP-5:s39 
Z Ж Р, 

550 next 1:59 2,,0:9050Ь 160 

540 return 

550! жж ENEMY жж 

568 on MU 9oto 580,630 

570! ж METEO МОЧЕ ж 

580 POsPost(1,.100:if Р0=-1 the 

n return 

590 loc PO to Х‹РО- 1), VCPO-1) 

600 move PO to R<KP0-1), VCPO-1) 
|, r nd (35 *ML 

6180 return 

6208! ж UFO ж 

630 Р0=роѕ?(1,5):1+# Р0=-1 then 
goto 688 

640 Jlil=rnd(1>:RM=rnd(80)+48 

650 loc PO*11 to JU*240,RM:Uzr 

ndc2?5 *UL 

6680 move Р0+11 in PO to 248-JW 
*240. RM; 

670' * MISSILE ж 

688 POsPost(6.102:i1f Р0=-1 the 
n return 

628 RD=rnd(4 う +1:5 丁 ==tatusRD)+ 
1 

700 on ST goto 750,710 

710 loc P0+11 to#RD+11 

720 move Р0+11 in PO to sPrite 
(RD+11;, 15; 176, UL+rnd(1)5 

730 return 

740! * RANDING DK. HND MENT UP 
+ 4 

750. tot =1 to 10:erase I:next 
T 

768 erase 51:1ү=152:МЏ=2:10с 8 

to х, 152 

770 locate PXCRSO , РУ (85) :Print 


780 В5=85-1:НЕ=НЕ +1 
798 it X480 or X>128 then 5С=5 


С+2ӣ else 5С=57+10 

344 gdosub 160 

810 sleep 1:90to 130 

820! ж CRASH ж `` 

850 59 0,.0:s9 1, ,0й:5=53 2,,й:59 
2.5.0:mouve Offieras@e 31 

840 scod 05,24:for Iz15 to ð st 
eP-1 

850 s9 5,5,1:51еер 5,1:5со1 8: 
Tinext I 

860 eraseisleeP 2:scod 0.0:sco 
1 8,15 

870 if MU=2 then HE=HE-1 

880 LEsLE-1:if LE>9 and RS«8 t 
hen Joto 13880 

890 if LE then 9oto 98 

9980! ж GAME OVER ж 

910 locate 11510:Print "GAME 
OVER" 

929 for I=9 to 1 

930 Play "li6o5dcdefef9aaS8o6co 
Sa8f8" 

940 Rlay "Sa9fíd8c8d8.cd8r8" 
950 next I 

960 if Play then Joto 9680 


Ma sleep 2:if HS<SC then HS=S 


C 

980 9oto 50 

990! ж STHGE。1 ж 
1000 erase:cls 

1018 Print." . SCORE 
E [LHRNDER]" 

1020 Print " "*right$CS$*num$ 
(る じ ) y. p 5 S "sright$(S$+num$ 
CHS). 5); " 019984 J-W” 

1030 locate 1, 16: Ре іп? 5,6): " 
Ф Ф Ee EN ` ¿2 ENE 


TOP-SCOR 


1840 locate 26.16:mPrint(5.62:; 

x ^ LIED NEL D o2 j| 

m" 

1050 for Is0 to RS:locate PX«I 

),PVCIDO 

1860 Print "4":next I 

1079 locate 15,22:'Print FPPt ま (39 

; "M") 

1990 Print " W =":1Е-1:7а 22 

Y "ROUND: "*num$CRO? : 

1898 locate 12.23:Print "MAN: " 

snum$ (HE) : 

1188 tor Is5 to 15:!ocate Prnd〈 

29) *1;I 

1118 Print ".":next I:locate 7 

“21 

1120 Print ЕР СӨ," "Эң for Iz 

PF Aa Ж TEY KE T 

113589 -lotéte L;21':Pràifnt 

next I 

1140 locate 0.10:return 

1150! * STRGE.2 * 

1160 s9 1,,0:59 2..0:erase:c!s 

:MUz1 

1170 locate 8.4:Print "p":rPt$ 

(14, "=" "q" 

1180 for Is5 to 19:locate 8,1: 

"p"‏ ا کی ا 

1190 locate 23; I:print "|": пех 

tl 

1200 locate 8.,20:Print "VM"trPt 

$(14,"—")1 

1210 Print "4":Tocate 9,18 

1220 Print "Ш . 5^. rio 

cate 9,19 

1230 Print "ШШШ" 

1240 locate rnd(115*9,81mPrint 

(3,25: "ü 4744" 

1250. locate 9, 1:print "The shi 

P uent" : 

1260 locate 19.23Print "back t 

о the" 

1279 locate 115JS!Print "mother 
ghiP''" ; 

1280 Play "1 さ 2o6coSba9?7@dcd@f39 

abo6c" 

1290 for IsQ to 4 

1300 XC=rnd(11)+1QiVCarnd( 4) + { 

1 

1310 if rcrtXOXC, УСУ <> 32 then 9 

oto 1300 

1320 locate XC,VCiPrint "bine 

г 

1330 slee? 2:if RS«8 then Joto 
1380 


1540 locate 9。223Print "HIT RE 


TURN KEV" 


Pio 


| リリ スト の LANDER BASIC! Я F 


550 іпкечсӣ) 458 then Joto 
1350 

1360 goto 90 

1370! ж ROUND CLEAR * 

1380 cls:ROSRO*1 

133A Plau "05139. # { бедобс4" 
1400 if Play then 3oto 1400 
1410 locate. 11 iSt print NEXE R 

DUNG" 

1420 locate 12:9:Print "MAN =" 
s HE : 

14380 if HE=5 then 3oto 1528 
1444 BU=rndCS)+1 

1450 locate 7?7.14:Print "BONUS 

=". HE: x 10. x"**BU 

1460 1ocate ア ,17iPrint "PUSH F 
IRING BUTTON" 

1478 i$ inkewcO»«4»5»989 then Joto 
1440 

1480 sleep 350.,1:locate 7,17:Pr 
int "g" 

1490 locate 11,1?:Print "TOTAL 
z";HE*10*BU 

1500 SC=5C+HE*19*BUi9oto 1558 
1510' * PERFECT * 

1520 locate 10,13/: Print "NICE 

PLAV ''" 

1550 locate 7?,17:Print "PERFEC 

T BONUS 1000" 
1540 SC=SC+1999 

1550 locate 9,20:Print "HIT RE 

TURM KEV" 

1560 if inkey (050458 then 90to 
1560 

1570 if 80>6 then ML=ML+(ML>2) 
t'ULsUL*CUL^?2»5:90to 88 

1580 if PEO>4 then ULsUL-1:30t0 


if 


if RO» 35 then ULsUL-1:30t0 


if R0»2 then ML=ML-1 
1618 9oto 80 

1620! * DEMO * 

1630 9osub 1000:scod 05,0:scol 
2,15 

1640 Р1ач "t2551905ef9ab3def9a 
Sdefet923t9ao6c2r3","o4e2ed4d2d4c 
le2r3","0592941(2f£4e192r 3" 

1658 if Play then 9oto 1650 
1660 Play "t116" 

1670 locate 13,5:Print "LANDER 


1680 locate 21;9:Print "ЈЕО" 
1690 locate 20,11:Print "METEO 


1708 locate 20.13:Print "BOMB" 
17180 for Is9 to 13 steP 2 

1720 locate 12»5^I:Print rPt$C7; 

Lal De de 

1730 next I:locate 10.17?7:Print 
„Ж 9 Ге 

17409 locate 3191 アミ PrY1n も PD DJ で 
1750-1locate 1 さ 。1985PFTn も "CCTRL 

]" 

17680 10c 0.t0'120.,128'T1oc Те 


72,84 

17?0 10c.12 to 72.,68:10c. 17 t9 
74,96 j 
1780 if іпкечќ0ӣ) <>+8 then Joto 
1788 


17980 return 

13500! ж DATA READ ж 

1810 n$2"baba54382823286c" 
182 B$2"3838107?7cbaba286c" 
18358 stchr R$ to 137»? 
1840 restore 1910: for I=0 to 9 
1850 read XCI). YCI)- ACI) 

1868 if X«4I»s80 then scod I+1,1 
6 else scod I+1,;12 

1878 next I 

1880 for 1=9 to 5:read РХ‹І),Р 
vCIO 

1890 next I?:return 

1900! ж METEO DATA * 

1910 data 0, 40,24090,0, 40, 240 
1928 data 249.64.9.249.64.9 
1930 data 0,38,240; 9,88, 240 
1940 data 249,112.9.249,112.9 
1950 data 05,136.240,0.,136.248 
1969! * МАН DHTH * 

1970 data ео 180659 
1930 data 25,.21,2?7,19,29,17 


相手 の 動き を 読む の も 高 得点 の コツ 


O М2-1200-80К /С 


BLOCK TENNIS 


Ө + +“ ° 


プ ブロッ ク ・ テ ニス 


PiO'84 年 8 月 号 の “ミニ PiO コ ー ナ ー" に 載 
っ た "BLOCK TENIS" " を 見 て , 80K/C を 操作 し て , 上 下 の ブ ロッ ク を すべ で て 消し 
で も や っ て みよ うと 思い , 移植 し て み ま TOUS 

Ege: な お 。 1 回 で も 失敗 する と ゲー ム ・ オ ー バ 


4 ー で す . 
XFO J0751,086 

О Р Ly (DER BB 思い な みよ 思い な が ら こ の 原稿 を 書い て 
EUNT SET PUR SET UN いま す (ちな み に た だ 今 午前 0 時 ). 皆 さん 


の 長き を 1 一 5 で 指定 する と ボー ル が 出 て き 少し で も 処理 を 速く し た か っ た の で 、。 画 b, コン ピュ ー タ の 前 で こ Ее 
ます (残念 な が がら, ボー ル が 垂直 に 落ち て 面 関 係 の 処理 に POKE 廊 を 使い まし た . + ど し な いよ うに よい 子 の 皆さん は 早寝 早 
くる こと が あり ます . この と き は , 始め か ー 操 作 は 原作 と は 違い ます (8 жс 起き を 心掛け まし ょ う ネ . 


ら や り 直 し て くだ さる さい). あ と は この ボー ル 
左右 に 動き ます ). こ 


趣味 で す . 
== 2 [© 
ss e [= 


うし だ た の は , УДО 


BLOCK TENNIS BASIC!) А F im 


130 CURSOR Ш, Є: РКІМТ" 

140 IF PEEKC53248+X+CVTF*46)= 128 THEN 
Fz-F:MUSIC"BO":S-2S*1:GÜ0SUB 338 

158 C=PEEK(S3248+X+(V+F)*40) 

168 IF C=120 THEN UZINTRNDC12*3-125:Fz- 
F:MUSIC"CO" 

178 IF С=67 THEN МИ51С"”#Е@":5=5+10:РОК 
Е 53248*X*CV*F)40, 8: Fz-F: GOSUB 330 

180 IF PEEK(53248*X*U*'^*405z2121 THEN V= 
-U: MUSIC "Ha" 

190 POKE 53248*4*'^*40, 0: KzX*Ut 2 «F : POK 
E 53248*4*'^«40, 71: IF V«24 GOTO 70 

200 CURSOR 5, 15: РЕІНТ"САМЕ OVER" 

218 CURSOR 3.:1?:PRINT"HIT !! ANY KEV":I 
F HS THEN Н=5 

220 MUSIC" ーー 人 cr 
Ém GIR A GE FG 
230 GET K$: IF K$-""GOTO 230 


18 REM CONVERTED BY CABET. 
20 CLR: TEMPO ?: INPUT"n* р^ J*n* C1 -5o" T 
zIF<T<1>+<T>5>G0OTO 20 

38 BL += "SE " 

48 FOR I=1 TO T:P$-P$*"—":2$-22$4" ":NEX 
Т: Бе= "званае " 

50 5=0: 0=9: W=9: KZ INTCRNDCI2O*15432: USINT 
CRND(1)*3-15:F=1:V=?:G0OSUBE 250 

68 MUSIC"R?R" 

9 POKE 4464.1:GET KO$:FOKE 4464, @: GET 
K$: CURSOR 0, 23: РЕІНТ Z$ 

GIF(K ま =" こ "SCQ>1)THEN Q=Q-1 

98 IF(K ま =" 由 "CRE く 19-T)THEN Q=Q+1 

180 CURSOR Q,23:PRINT P$:IF RNDC1505.8 G 


OTO 140 
118 CURSOR W.6:PRINT" "SIFCNSWDCU 
120 TEONA CWIS THEN W=W+1 


240 GOTO 58 

290 PRINT" ER "SPORT 
1 TO 23:PRINT"I":SPCC1855" |" S NEXT 

260 CURSOR 1,3:FRINT E$:PRINT 

270 PRINT TRBC1»:B$:CURSOR 1:24:FOR I=1 
ТО 9:PRINT"E "::HEXT 

280 CURSOR 24; 18: PRINT" = f З 

290 CURSOR 24, 19:РРІНТ"11 < > үт!" 

iaa CURSOR 24, 20: РЕІНТ" — кеу 

518 CURSOR 24:21:PRIHT" KEY ОР." 

328 CURSOR 2%,5:РЕ1ЇНТ"Н1-5СОКЕ: "RIGHT 
$C"aa"«STR$CH»o 32 

338 CURSOR 25.8:PRINT"SCORE : 
"Ba" +STR ま を IS), 35 

348 RETURN 


"SRIGHT$c 


さき >THEH UzlJ- 1 


森 も 奥深 く な る と 木 が こん な に も … 


Q PC-B001mk1L/6601 


The Catch Treasure 


@B.T.S. 


ASIC で は 使え ませ ん . “How many pag 
es?” に は , 必ず 4 を 指定 し て くだ さき さい. ^ 
ー ジ 数 を 間違え る と , 主人 公 の キャ ラク タ 
が 表示 され ませ ん . 


遊び 万 


ここ は , ある 山国 . ある 日 , 道 に 迷っ て 
森 の 中 を 歩い て いる と , 突然 不思議 で 異様 な 
光景 が 広がっ て いた . 宝物 が 森林 の 奥 の 方 
へ 向かっ て 散乱 し て いた の だ . そこ で あな 
た は , が め つ くも 宝物 を 取り に 森 の 中 へ 向 
が つっ つ そ 行っ だ 。 


プロ グラ ム の 説明 


REM 文 を 除け ば , 29 行 の と て も 短い プ " 
ログ ラム な の で ,。 見 れ ば わか っ て いた だ け 


る と 思い ます が , 一 応変 数 表 を 載せ て お き 


入力 万 法 


この プロ グラ ム は , N60m-BASIC ま た は 
N66-BASIC 用 で す . 残念 な が ら , N60-B 
変数 表 


主人 公 で ある 自分 を | 末 と (3) tL TEDL, 


Ek 0 Ф CR) 2 L U Z bio, 4609 (+ 
物 ) を 取っ て , で き る だ け 奥 へ 奥 へ と 進ん 
で くだ さき さい.。 この と き 。、 森 に ぶつ か る と 一 発 
で 死ん で し まう の で て 気 を 付け て くだ る い . 

そし て , 宝物 を 取っ て 行く と し だ い に 奥 
地 へ 入っ て 行き , 木 の 数 が だ ん だ ん 増え て 
難し く な り ま す . 


кт, 


終わ り に 


PiO に は , PC-6001 用 の ゲー ム は 毎月 毎 
月 だ た くる ん の すばらし い プ ログラム が 載っ 
て いま す が 。 PC-6001mkII 用 と な る と きっ 
ぱり で , 全然 載っ て いま せん . そこ で 今回 
は , mkII の た だ た め に きる や か な フロ グラ ム か を 


MSX を バカ に し て いる 人 が 多い で す が , 案外 根 は し っ か り し て いま す よ . 命令 だ け 見 た ら APPLE と あん まり 変わ り ま せん も の . 作っ た 方 に 
し て みれ ば, 大 々 的 に 裏 RAM を バン ク 切 り 換 え で 使う の が いや だ っ た の で し ょ う . 
ラン ク を 作っ て も 面白 いと 思い ます けれ どい か が で し ょ うか ? 


これ か ら は スピ ー ド 別に MSX-BASIC レ ベル I, Ht», 


(岡田 まき が 大 好き な Toncatkun's ) 


PIO 


お 送り し ます . オー ル BASIC で 単純 な ゲー 
ム で す が 。 短い プロ グラ ム で すか ら ゼ ぜひ 大 
力 し て 遊ん で くだ きい . 

最後 に 。 ゲー ム は や は り ア イデ ア で す . 
T4 だ おり まり か CUTI RENA 


BASIC の ゲー ム で も きっ と 面白 い は ず で 


H4 46 4 AE HF 4 HH HE 4 AE AE AE E AE 4 dE E E 4 4 E E е 
* The Catch Treasure 


for PC-6001mk2/PC-6601 
: Page 4 * 
dt Ae AE EAE AE AE MEAE EAE AE AE MEAE E E AE AE MEAE AE AE AE IE AERE 4-4 
10 SCREEN 1,2,2:CONSOLE 0,20,0,01CLS 
20 CONSOLE 2 
30 X-20:PLAY "vi1Qo","vi1Oo" 
40 COLOR 121LOCATE O,0:PRINT"s3*www** T 
he Catch Treasure «xxxn 
50 LOCATE 12,1:COLOR 2: РКІМТ"5 COR E 
" GC 
"s FOR I0 TO 16』PRINT "+++++++++++++++—+ 
キキ キキ キキ キキ キキ キキ キキ キキ キキ キキ キキ て "リョ saNEXT 
70 LOCATE 0,19:PRINT "++++++++++++++++++ 


d. マシ ン 語 に は глы КАСУ. Е 
いう 大 き な 特 徴 が あり ます が ,。 BASIC に だ 
っ て 「 簡 単に ゲ グロ グラ ム が 組め る 」 と いう 
すばらし い ぃ 特徴 が あり ます . PC-6001mkII 
や ゃ や PC-6601 な どの ユー ザー の 方 々 はじめ, 
多く の マイ コン ファ ン の 皆さん , マシ ン 語 


で な く て も 構い ませ ん .。 アイ デア が 浮か ん 
だ らら すでに カーー バ を 入り まじ ビ ょ うす. を も て , 


1 人 で も 多く の 人 が 自作 ゲ プログラム を 作れ 
る こと を 強く 望み ます . 


i The Catch Treasure BASIC リ スト 


キキ キキ キキ キキ キキ キキ キキ キキ キキ キキ キキ リョ 
80 FOR 1=1 TO (SC+1 ) / 1 の の 
90 COLOR 5:1 ОСАТЕ ІМТ (RND (1) * さ 9) 。18sPRIN 
T "@"ssNEXT 
100 LOCATE ІМТ (RND (1) #39) ,18: COLOR 10: PR 
INT "e" 
110 K=STICK (0) 
120 PLAY "c64", "b64" 
130 LOCATE X, 3: COLOR 2:PRINT "+" 
IF K=3 THEN X=X+1』IF X=40 THEN X=39 
IF К=7 THEN X=Xー1 』 IF X=ー1 THEN Х=0 
GOSUR 200 
POKE &H80A0-*X,&H86 
POKE &HB4A の +X 。& を HC の 
GOTO 70 
IF SCREEN (X。4)=&HBO THEN 250 


IF SCREEN (X。4) く >&HB1 THEN RETURN 
220 SC-SC*10 

230 PLAY "oScé4r64c8.0","oSbó4r64eB. o" 
240 COLOR 2:LOCATE 22,1:PRINT SC: RETURN 
250. PLAY "oic", "oib" 

LOCATE 15,9:COLOR 3:PRINT "GAME OVER 


COLOR. 6: LOCATE 7,12:РКІМТ " Hit SPAC 
E key to start !! " 

280 IF STRIG( の )= の THEN 280 

290 CLEAR:GOTO 1 の 


ロン PC-80007 


この ゲー ム は , 以前 友達 が P6 て 遊ん で 
いた も の を や っ て みて か な り 熱 く な れ た の 
C, 我 が P8 で も 作っ て みよ うと 思っ て オ 
リ ジ ナ ル 部 分 を 追加 し て 移植 し た も の で す . 
移植 と は いえ , プロ グラ ム 自 体 は ほ まったく 
の オリ ジ ナ ル な の で , それ な り に 楽し め る 
と 思い ます 。 


入力 方 法 


REM 

REM 

REM HOLE & HOLE 
REM 

REM 1984.8.17 
REM 

REM BY NIRYOO 
REM 
REM 
REM ぁゃ ぁゃ ぁゃ vaft セッ テイ ФФ%Ф 

10 MIDTH4 の 。 25: CDNSDLE 1 。 24 。 の 。 1: Н5=01: BOTD1 
6 の 

20 ТІМЕФ= "00: 020: 00" : BC じ = ェ の 』 X=&HF さ の の + 19 テ 2+4 
*120: Y0: $20: C8: 0=15: Кед: E»Q1 PRINTCHR$ ( 
12) : ОСАТЕО, 0: PRINT"SCORE" 

29 REM €ee MAIN obo 

30 IFINP(Q)-239THENY»-2 

4 の ІҒІМР (0) =191ТНЕМҮ=2 

50 2=РЕЕК (Х+Ү) : IFZ= 1 うら 5THEN さ さ の 

6 の 1FZ= る 6THENBEEF 1 : ҒОКІ = の TO4 の 』 NEXT» BEEP の 
: BEEP1: FORIZQTO20: NEXT: BEEP の CeBC+ さ の 

70 POKEX 。 の 』 X=X+Y:POKEX , 236 

80 A=R-Sı IFAR>=8@THENC=C-1:S=8S+80 


ONO O +» CY FY ~~ ©9 


90 COLOR2: LOCATED , 24: PRINT " НИО 


ЗЕЕВА RE DASARI 
1 の の В=ІМТ (RND (1) +2) +1: IFB=1THEND=-~1ELSED 
=1 


リー ズ 


目 の 前 の お 宝 よ り 生 き 延 びる 方 が 先決 だ 


ДИП 


z 


ә ~o 
оо 


H^ “®” 
を |4|[e| キー で 動か し , MU に 当たら な い 
ょ うに 通っ て いけ ば よい の で す 。 そして: 


簡単 な こと で す . 要する に , 


終わ り に 


信 度 は も っ と オリ ジ ナ ル な も の を 作っ て 
み だ い と 思い ます 。 


だ た ま に 出 て くる “も” を 取る と , 30 点 スコ 
ア が 増え ます . 

gi, これ だ け で は つま ら な い の で , 80 
m ご と に 穴 が せま く な っ て いき ます . それ 
L, 100 点 ご と に 自分 が 1 キャ ラク タ 分 下 が 
JE 


I HOLE & HOLE BASIC リ スト 


110 IFD= の THEND=1ELSEIFD= さ の THENDm-1 

120 COLORS:0*0«*D:LOCATEO,231PRINT SPC(C) 
1 YsQi №8С-Е: ITFN>=1 の の THENXmX+12 の 1EwE+5 の 
13 の U*INT(RND(1)«3Q) +11: IFUm1 の THENLDCATED 
*2,231PRINT"$" 

140 IFUSSORU*2SORU*2ÜTHENLOCATEO*2 , 231CO 
062: РВІМТ "8" 

150 CDLDR7』LOCATE6 ,@: PRINTSCı BEEP 1 』 BEEP の 
ıR=R+1: SC=SC+11 GOTO 30 

159 REM eee TITLE eee 

160 PRINT CHR$(12) 

170 A%(1)=" | 

180 A$(2)=" | 

190 A$(3)=" | 


300 LOCATE20,22:PRINT"HIT RETURN KEY" 

310 LINE(2,772—(31,99) ,PSET,4,B 

320 IFINKEYS$-CHR$(12)THEN2O0ELSE 320 
329 REM eee GAME OVER  *€ee 

さる の FORI-SOTO20: ВЕЕР 1:FORT-OTO10: NEXT: BEE 

PO: POKEX, 145: POKEX, 240: FORT=ØT07: NEXT: NE 
XT 

340 PRINTCHR$(12): COLOR7: LOCATE9 , 4: PRINT 
"G R ME OV ETR 

350 IFSC-^HSTHENHS-SC 

360 LOCATE2,12:PRINT"YOUR SCORE ";SC;" 
HIGH SCORE "HS 

370 LOCATE11,17:PRINT"TIME = ";TIME$ 

380 LOCATE10,235:PRINT"HIT [RETURN] KEY" 

IFINKEYS$-CHR$ (15) THEN160ELSE39Q 


210 A$(5)=" __ 
220 АФ (6) =" | 
230 А% (7) з=" | 


eee ー イオ テカ "ミニ 79" 71 eee 


| | 
| | 
| | 

200 А%(4)=" | | 
| | 
І | 
| 


A298. AO UE EUM LL] Sah ed 731-03 
250 COLOR1:LOCATEO,Q:FORIS1TOB:PRINTAS$(I 395 REM ヒロ シマ ケン 9777". ヤ チ ヨ チ ョ ウ 
) s NEXT 396 REM 7"4 1681-50 


260 COLOR6:FORI-1TOB: ОСАТЕ11 9+1: PRINTA 79° Ја? 
(1): NEXT 

270 COLOR4:LOCATE30,7:PRINT "&" 
280 COLOR7:LOCATE2,20: PRINT"KEY 
N" 


290 LOCATES,23:PRINT"4 <— ® -> ё" 


NTI NEIL + 


жу" 
FUNCTIO 


さて 今回 は , 東村 山 市 の T 君 か ら 送 られ 
だ 作品 で す . 同封 きれ て いな だ 手紙 に は 次 の 
まま 9 に 書か が れれ て いま し た 3 

「FM-7 用 に , ミニ ミニ ルー レッ ト を 作っ 
て み ま し だ . リス ト が 一 画面 に 収まる よう 
力作 っ だ た だめ が な が 9 さち や ご ちゃ や し て で も 
Ei G UA, 

この ゲー ム で は , 1 一 36 の 番号 に 1 一 5 の 
掛け 金 を か け , 当 だ た っ だ た だ ら そ の 10 倍 が もち もら 
ETT. tut, 
掛け 金 に 0 を 入力 し て くだ さき さい. な お ゎぉ お 掛 け 
lk, 10 箇 所 に し か 掛け られ ませ ん 」. 
送っ て くれ だ た プログ ラム は 。 行 番号 が 1 
ー6 行 し か な い 超 ミニ サイ ズ の プロ グラ ム 
で し だ が 。 マル チ ス テー トメ ント を 多用 し 
て いる だ め に , あま り に も 見 に く か っ た だ の 
で 編集 部 で 見 や すい よう に 分 割 し まし た . 
TH. リス ト が 一 画面 に 収まる と いう こと 
は 全体 を 見 渡す 上 で は いい こと な の で す が , 
その か わり に マル チ ス テー トメ ント を 多用 
まる と 。 か えら で 見 に くく な つて し まい えま 
4e AUI デフ ポッ グ も 革 ずら 6 らく な る の で 往 
人 

で は , この プロ グラ ム の 中 を の ぞい て み 
また も よ うい つも の ル う 選 。 の 
ラム に 修正 箇所 の アカ を 入れ た も の を リス 
ト 1 に , 修正 後 の リ スト を リス ト 2 に 示し 
id. まだ , この プログ ラム の 行 番号 マッ 
sta дё MELDE EL. 


ооа AES A. 
WIC0H2, 7£3, "AJJOK? "£65 
判定 グロック (リス ト 1 の 310 行 . フロ ー 
チャ ー ト 1 で は 入力 サブ の 上 か ú 32 HO 
プ ブロック ) で は 0 ミミ 掛け 金 ミ 5, 1 SHU 
る 場所 36, 持ち 金 以 上 に 掛け て いな いか 
を 判定 し て いま す . 

この プロ グラ ム で は , FOR ~ NEXT v 
ー プ も し っ か り し て いま すし , IF- THEN 


の 判定 娘 も まあ まあ で す . た だ , 230 行 で の 長 
«ТЕ, 310 行 で の ELSE 以 後に あ る RE 
TUERN 文 は 分 割 し て し まっ だ 方 が い ぃ で 


も う 掛 けた く な いと き は , 


10— 70| 変数 , 画面 初期 設定 


80—130 掛け 金 な ど 入力 
140 一 210 | ルー レッ ト 動 か す 
220—240. 判定 


250—280 
290—310 


ゲー ム ・ オ ー バ ー 判 定 
入力 サ プ ブルー チ ン 


13435 

を し て 90 行 で 呼ん で いる 290 行 か ら の サ 
グフ ドー ブ チッ の 2 あの なこ の ブロ ョ グラム で は に 
こ て し か が 使 っ て いま せん 。 この プロ グラ ム 
の よう に サイ ズ が と て も 小さき いと き は , 無理 
に プル ボウ み 牧 に て 北 «дар (ТЫТА. E 7 < 
ブログ ラム の 中 に 組み 込ん で し まっ た 方 が 
i к 


У, و‎ bo" uc x "Xe P ue 
x< که‎ Ww kl k^ өй hos "ш "» 
, ч 2 "* © Mo h^ ug ç: lk > 
k > J АШ: “м” » 

z v P Ri tas 7 

- u dirai». 

DER La を SK 85 y 

d. H š 
F ДС à * 
Sk" j E x 
k У j 4 


А 


は いけ な い "。 これ は プロ グラ ム を 作る 上 
で の 鉄則 で す (た だ だし, 何 回 も 使う 定数 で 
後 で 修正 し だ たい とき に 変 数 に し て し まう 場 
合 や , 何 回 も 入力 する の が 面倒 な 定数 を 手 
間 を 省く た め に 変数 に し て し まい た い 場 合 
は 除き ます )。. 

と いう の も , 特に BASIC ブロ グラ ム で 
i£, 変数 の 内 容 が ひと 目 で わか る よう な 変 
数 名 が つい て いな い (まだ は つけ られ な い ) 
か ら な の で す . 

そこ で 。 まず プロ グラ ム を 書く 〈 前 に だ い 
だ い の 変 数 表 を 作っ て し まい ます . そして, 
プロ グラ ミン グ 中 に 新た に 変数 を 作っ て し 
まっ だ な ら ば , すぐ に 変数 表 に 付け 加え て 
ЕЗИ б ы мы E Чы CP PE С D a Bz К Уор: 
も 変数 表 を 見 れ ば すぐ に その 変数 の 内 容 が 
わか る よう なり ます . 

まだ , いつ も 使わ れる よう な 変数 (だ と 
えば FOR 一 NEXT ルー プ で の 制御 変数 や , 
画面 表示 の 又 座 標 や Y 座 標 な ど ) は , いつ 
も 同じ 名 前 を 付け て むく よう に する と よい 
T Lu 

е рр а: д рени 
し ょ うか ? 3017, 40 行 で 代入 きれ て いる 
A$, B$ は いら な い 。 と いう の は すぐ に わ 
が か な ます よね 。 СРС БИТЕН ЕНТ 
いる 配列 。 ACID) LBODRESTUZS5 
か ? こち ら の 方 は モノ が 配列 な だ け に わ 
が 9 り に くい で しょう 。 

実は この 配列 。 A( 7) は 添字 7 に 二 1 る され 
だ も の , B(?) は 添字 7? その も の な の で す . 


- は と きど き 顔 を 出し て きま す . 


ルー レッ ト 十 の 位 
ルー レッ ト 一 の 位 
it 1 


1 
コイ ン の 数 
掛け た 場所 記憶 
掛け 金 記憶 

掛け た 場所 (キー 入力 用 ) 
掛け 金 (キー 入力 用 ) 
ルー レッ ト の 乱数 

ルー プ 用 


すなわち , A(?) は / 十 1 に ,。 B( 7 ) は 7 に 置 
ささ の た ои аЬ ако E ia 

この “いら な い 変 数" 
て い は デバ ッ グ 中 の 消し 忘れ " CT», 
慣れ た プロ グラ マ で も 大 き な プ ログ ラム で 


ES AN M 


いら な い 変 
数 は な る で 〈 く 作ら な いよ うに し 。 また 早め 
БАЕ СЕЕ ЕСО 


作者 が すこ う 
os と 思っ つっ で ゆい る を の に 。、 7275 DR 
グラ ム が で きち ゃ っ だ 」 と いう の が バグ な 
DTF. そう いう 観点 か らち ょ っ と ブログ 
ラム を 見 て み ま し ょ う 。 

まず , 作者 は 「 も う 掛 けた だ た く な いと き は 
掛け 金 に 0 を 入力 する 」 と 言っ て いま す が , 
実際 に は 10 回 必ず 入力 する よう に な っ て い 
++. すなわち ,- 4 箇所 に だ け 入 力 し たい 
と 思っ て も , 後 の 6 回 すべ て に 掛け る 場所 
と 掛け 金 0 を 入力 し な けれ ば な り ま せん . 

そこ で , フロー チャート 2 に , 作者 の 考 
ん 江 いな よう 村 じ だ と きる の ブフ ロー 愛生 
が 示し まず (こざ は あえ て ブログ の) 有 みな に 
し ませ ん . 皆さん 各自 で 作っ て みて くだ きる 
い . だ だ し , メイ ン の 方 も か な り 作 り 換 え 
る ます に な が の まま: よう 、 

まだ ,。 リス ト 1 の 170 行 を 見 て くだ さい .。 
ここ で は 0 一 36 の 乱数 を 作っ て 変数 S に 代 
人 人 し て いま す . と ご ろ が 。 キー 入力 の 方 で 
IZ3IOITT R UO bk9.1-36C3, 2 743 
キー 入力 の 方 に 合わ せ て 1 一 36 の 乱数 を 作 
る (S=INT (SGN (1) *36) 士 1 と する ) 
か , 乱数 に 合わ せ て キー 入力 の 判定 部 分 を 
変え る と (310 行 の な G く 1 を G ぐ 0 に する ) か 
し た 家 が いい で も うう 。 


いう ブログ ラム を 作り た い 


フロ ー テ チャ ー ト 1 


し 


フロ ー テ チャ ー ト 2 


掛け る 場所 も と も に 1 一 37 に し て いま す .。 š 
た , 不要 な 変数 は 取り 去り , 長い MEF 文 を 分 
dj, キー 入力 サブ ルー チン を メイ ン に 組み 
込ん で いま す . | 

と ころ で , キー 入力 の 部 分 (リス ト 2 の 


RREA E TA [= RR 
` ERE | 


7047, 8017) で は 文字 列 を 入力 する よう に 
し , これ を VAL 関 数 で 数 値 に 戻し て や っ て 
いま す 。 この よう に する と 。 数 値 を 入力 せ 
T' i [RETURN] キー だ け を 押し た 場合 に 出 
る “Redo From Start?" が 表示 され な 
く な り ま す ( 他 の 機種 ご は , [RETURN] キー ` 
だ け の 場合 に 自動 的 に 0 に な る も の , まだ は 
前 の まま に な る も の も あり ます ). 

だ だし, この 方 法 で も |:| キ ー と | | キー 
を 入力 じじ て し まつだ な た る き 人 は ダメ イア さす 。 Il 
2 つの 入力 ミス まで に 対処 する に は LINE I 
NPUT 文 を 使う か ,、 INPUT$ (п) を 使う 
し か あり ませ ん . 

この よう に , ある 程度 を で プレ イマ ヤー 側 
の 立場 に な っ て 入力 ミス を 防ぐ で 。 まだ は 入 
カミ ズ し て も カバ パー で "きる よう に 考 だ 7 で 放 


баз Беш o ОО 
ちよ っ と し だ 
СЖЕГ 


ТЖЕ 12 пэ Alt, ルー レッ 
ト で の 玉 ( “へ” ) が 乱数 で あちこち に 飛 
び は ね て いま す , そこ で , せめ て 本 物 の よさ 
うに の IT VED E a DR E 7 EN 
ぐる と 回 り , 次 第 に 回 る スピ ー ド が 落ち て 
いっ た だ たら … と 思っ て 作っ だ の が リス ト 3 で 
+. これ を リス ト 2 の 140 一 200 行 と 入れ 換 
た て みて くだ さい 。 

まだ , リス ト 4 は も っ と 本 物 の ルー レッ 
ト の よう に 見 せ か け だ も の で す .。 この グロ 
グラ ム は , 数 字 を 円 形 に 表示 し た 後に ルー 
レッ ト を 回 転 き せま す (これ で は 番号 の 色 
の 赤 が 回 転 し ます ). 

だ だ し , リス ト 4 は キー 入力 も 判定 も し 
て いな い の で 。「 晴 以下 2 а о а Ир. 
に し て みて くく だるい. また だ, 番号 も 画面 の 
都合 上 キー20 で す (1 一 37 に する と ,。 番号 が 
重なっ て 史 え に く 《 く な っ て し まい ます が 

な お この リス 下 に は SIN 9 COS- 
な と た を 生 場 る せ て し まい まし だ が 。 が か も うり 
に DATA 女 と し て ブログ ラム 中 に 組み 込む 
こと も で きま す (DATA 文 に 1 一 20 が 表示 
きれ る 位置 を 憶え きせ て お き , 初期 設定 の と 
š に 配列 に READ 文 で 読み 込ま せれ ば いい 
の で す ). 


ゲー ム ・ ブ プログ ラム と いう oi, i47 
イデ ア が な けれ ば いけ ませ ん . そし て 大 ま 
か な ブロ グラ ム を 作っ だ た だ なら ば ,“ こ こ は こ 
うし だ 方 が 面白 (な る ん じゃ な いか "と 思 
た とき 本 を ん み と ん を の アイ ダフ アァ ャ ズン ログ: 
ラム 中 に 組み 込め ば いい の で す . ちょ っ と 
し だ アイ デア を 加え る だ け で 。 つま ら 6 な い 
と 思っ て いた だ た ゲーム も と て ねる 面白く な を こ 
と も ある の で すか ら . 

皆さん も , ゲー ム の アイ デア が 思い 浮 ん 
だ な ら 。 に すぐ で ぐに デブ ログ ラム を 作っ て みぞ てく 
RSCR NETS R o DESAT 


を ふく ら ま せる だ け な の で すか ら . 


ж”) 


DEFINT A-Z:CLS: RANDOMIZE TIME 

WIDTH 40,235 

A=" 1111111111222222222 つ くう ささ 2022878 C4 

B$=" 0122456789012245678901224567890123 €€LOCATEUZUL +5. 
DIM AC37?),B(€37) ,E (10) ,L (100 : C580 


LOCATE 0,5:PRINT A$,B$ 
FOR I=@ TO 56:А(1) =1+1:8(1) =1:МЕХТ I 
FOR I-1 TO 10 この 配列 も 不要 で す . 


GOSUB 299:C-C-H 
LOCATE Q,23:PRINT "COINS: "3C 
(IT)=GiL(I)=H 
LOCATE A(G),4:PRINT "e"; 
NEXT I 
FOR I-0 TO 3 の 
ВЕЕР 1: ВЕЕР Q 
LOCATE A(8),7:PRINT " "; 
(1)*37 s 
LOCATE A(S,7:PRINT "="; RIS A E 
FOR P-Q TO 3 の gzsNEXT P 
NEXT I 
FOR I-0 TO 2000: МЕХТ I 
FOR I=1 TO 10 
230 IF K(I)SB(S) THEN FOR X=1 TO L(I)*10:C-C*1:LOCATE 0,23:PRINT "COINS: "; C: BEE 
P 1: ВЕЕР Q:NEXT X ы ану, 
240 NEXT I 
LINE (0,4)-(37,4) ," 


LINE (0,7)-(37,7)," " | この END は 

IF С<1 THEN LOCATE e un PRINT "GAME OVER" EM 見 つけ づら いで すね . これ は メイ ン に 
GOTO 80 組 が 込み まし ょ 
LOCATE 0,15: INPUT "77" іга" 5 


この RETURN も 
ІМРОТ "カケ キ ー 1-5";H | е ы-ы 
IF Н<@ OR Н>5 OR B<1 OR G^z6 OR C-H«O THEN BEEP: GOTO 290 ELSE [RETURN 


DEFINT А-2: КАМООМІ2Е TIME 
DIM K(10) ,L (10) : C=B の 
WIDTH 40,25:CLS 
LOCATE 2,5:PRINT " 1 1 1 1 1 1 1 1 1 12222222222 さ ささ ささ ささ さ " 
LOCATE 2,6:PRINT "1234567890123456789012345678901234567" 
FOR I=1 TO 10 
LOCATE 0,15:1NPUT"7/7 N" Ja"; G$: G=VAL (G$) 
LOCATE 0,16: INPUT"NZFY 1-5"; НФ: H=VAL (H$) 
IF H<@ OR H>5 OR 6<1 OR 6>37 OR С-Н<@ THEN BEEP: GOTO 70 
C=C-H: LOCATE 0,23:PRINT "COINS:";C 
 K(I)28:L (I) =H 
LOCATE G*1,4:PRINT "e"; 
NEXT I ^ 
FOR I=@ TO 30 
BEEP 1:BEEP Q 
LOCATE S*1,7:PRINT " "j 
S=INT (RND (1) #37) +1 
LOCATE S+1,7:PRINT "^"; 
FOR P= の TO 500: МЕХТ Р 
NEXT I 
FOR I=@ TO 2000: МЕХТ I 
FOR I=1 TO 19 
IF K(I)<>S THEN 280 
FOR X=1 TO L(I)*10 
C=C+1: LOCATE 0,231PRINT "COINS: "$C 
BEEP 1: ВЕЕР Q 
NEXT X. 
NEXT I 
LINE (2,4)-(39,4) ," "K 
LINE (2,7)-(39,7)," " 
IF C> の THEN 60. 
LOCATE 15,19:PRINT "GAME OVER" 


140 F=INT(RND( 1 ) #57) + 1 1 1 3 = の 
156 FOR I=9 ТО F 

169 LOCATE S*1,7:PRINT " "Jj 
179 S-St*1:IF S>37 THEN S=1 

180 LOCATE S*1,7:PRINT "^"; 
190 BEEP 1:BEEP 9 

200 FOR Ј=@ TO I:BEEP @: МЕХТ J 
2098 NEXT I 


リス ト 4 円 形 ル ー L. у F š 


10 WIDTH 40,25:CLS 

20 Rz11:PI-253.141592653068 

50 FOR I=1 TO 260 

40 QzI/10*PI: XZR*SIN(Q) +20: Yz-R*COS (0) +11 
30 LOCATE X,YsCOLOR 7: РКІМТ USING "9$ "5I 
60 МЕХТІ | 

79 P=INT (КМО (1) #20) +100 

80 5=20: Х=20:Ү=0 

90 FOR I=9 TO Р 

199 LOCATE X,Y:COLOR 7:PRINT USING "## "sS 
119 S=S+1: IF 5>20 THEN 8=1 | 

120 Q0-8/10*PI: X-R*SIN(Q) +20: Yz-R*COS (O) +11 
150 LOCATE X,YsCOLOR 2:PRINT USING "## "; 5 
140 ВЕЕР 1:BEEP Ө 

150 FOR J= の 9 TO І:ВЕЕР O:NEXT J 

169 МЕХТ 1 | 

176 COLOR 7 


Pi セミ ナー 投稿 募集 
or: E a 


ペー ジ の 都合 上 あま り 大 き な プ ログ ラム 

な ど は 掲載 で きま せん の で , 後記 の 要領 で e 原 則 と し て BASIC で 50 行 前 後 の ミ ニ プ フロ ず 同 封 し て くだ さい. 

お 送り くだ さい 、. と し ます . e 各 機 種 の 特種 な 命令 を 使用 し だ も の は 店 
@ 内容 は ゲー ム に 限り ませ ん . シス テム 関 け て くだ きい . 採用 の 基準 は より 多く の 人 
係 の ちょ っ と し だ ただ ツール で も 結構 で す . の 参考 に な り そ う な プロ グラ ム を 優先 し ま 

SA @ プ ログ ラム を セー ブ し だ た カセット の は ほか 。 

に フロ ー チ ャ ー ト か PAD, 変数 表 な ど を 必 


この CMSI は , 古く か ら あ っ た 建築 物 を 約 
12 億 円 か け て 再建 し た も の で , 9 の 建物 , 
21 の 展示 場 か ら 6 構 成 さ きれ て いま す . そし て 
"Touch Tomorrow" の 名 の も と に コン ピ 
ュー タ を 主役 と し , “子供 の た め の 触 っ て 
理解 し 勉強 する 博物 館 " を キャ ッ チ ・ フ レ 
ー ズ に し て いま す が , 大 人 に も 興味 津々 な 
博物 館 で あり , 平日 で も 子供 を っ ちの け で 
ュ ン ピュ ー タ の 端末 に し が みつ いて いる 人 
の 姿 も 見 られ る ほど で す . 

で は , その 中 か らい くつ か を 簡単 に 紹介 
EXT. 


The Computer Workshop 


この コー ナー で は 20 台 の コン ピュ ー タ を 
置き , 数 人 の イン スト ラク ター が 毎時 間 コ 
ンピュータ の デー タベース ・ シ ステ ム の 使 
い ぃ 方 に つい て 講義 し て いま す 。 

また , デー タベース の 中 か ら 会 社 の 売り 
上 げ デ ー タ な ど を 取り 出し それ を うま く 
使っ て 会 社 を 繁盛 きせ る シミ ュ レ ーション 
な ど が 行なわ れ て お おり, これ な ど は 子供 だ 
け で な く 大 人 に も 大 変人 気 が あ り ま す . 


Computer Works 


みみ グ ター の ジェ ニラ ァ ー ぎ ん と グ ・ 


この ユー ナー で は 。 透明 な 箱 に 入っ だ コ 
ンピュータ ポー 中 を 置き 。 ハー ドウ エア の 
動き や ,。 どう し て コン ピュ ー タ が と きど き 
動か な く な っ だ り エ ラー を 起こ すか , そし 
て その 信頼 性 は ? な ど と いう こと に つい て 
解説 し て いま す . 


The Creative Computer 


LU k: IS svWwWacA s E 
ト ・ デ ザイ ナー に よる , ユ ンピュータ ・ ア デー 
ト の デモ ンス トレ ーション が 見 られ ます . 

また だ た). こみ 部 席 に 村 タ ッ チ チッ コン コピ ビ ュー 
タタ と 呼ば れる , 画面 に 指 で 触れ る だ け で 絵 
が 描け る コン ピュ ー タ が 置い て あり , 子供 
や 大 人 た ち が コ ンピュータ ・ デ ザイ ン に 挑 
MLCUCZT. 


Communicating 


この コー ナー は 電話 会 社 の 提供 する ュー 
ナー で , 中 央 に 備え られ た 数 台 の コン ピュ 
ー タ に 電話 と モデ ム を 接続 し , 電話 かけ 
て 用 意 き れ だ シス テム と 交信 し な が ら 未 来 
の コミ ュ ニ ケー ショ ン ・ シ ステ ム の 説明 が 
行なわ れ て いま す . 


The Energy Experience 


この コー ナー は が ガス 会 社 の 提供 する コー 
ナー で 。 小さき な モニ タ の 備え られ だ た 部 屋 の 
中 で , 自分 の 捜し 当て た 石油 の 鉱脈 を 掘る 
シミ ュ レ ーション ・ ゲ ー ム な ど を 行ない な 
23165, エネ ルギー に つい て の 説明 が 行なわ 
れ て いま す 


IBM や Apple な どの ゲー ム ・ コ ー ナ ー 


も あり ます (Software Center) 


A Byte of Food 


ここ は ハン バー ガー の 店 で す が 。 た だ お 
腹 を いっ ぱい に し て くれ る だ け で は あり ま 
せん . 店 内 に 備 を られ だ コンピ ュー タ で は ., 
今 食 べた だ ハン バー ガー や ポテ トチ ッ プ の カ 
ロリ ー 計 算 や , 材料 の 原価 か ら ハ ン バ ー が 
ー の 小売 価格 を 予測 きせ る な どの シス テム 
が あり ます . 

この 中 に 未来 が / 


CAUFORN Ы 
MUSEUM 


or 
SCIENCE 


以上 , 簡単 に 各 コ ー ナ ー の 紹介 を し まし た 
D, いか が で し た か ? 一 度 い っ て みた いと 
坪 っ だ 大 な で ぶる で し な つう 。 貞本 で も ょ で の 
CMSI み だ い に 触 れ な が ら 勉 強 で きる 博物 


館 が だ くる ん で きる と いい で すね . 
チケ ッ ト ボ ックス も コン ピュ ー タ 化 さ れ て 
いる . で も 入場 料 は タダ で す よ . ノ 


Vis P E. so 


タッ チ ベ ペイ ント を 楽し む 人 た ち 


(The Creative Computer) 


電話 と モデ ム を 使っ て 未来 の コミ ュ ニ ケ 


ショ ン を 体験 (Communicating) 


ゅ いや ーー, や っ と 終わ り ま し た よ PiO 4 月 号 の 「 い じ め っ こ ニ ゲ ー ム 」 を 打ち 込む の ノ 
か ら 8 月 27 日 まで の 暇 な と き に 入れ て , 約 4 箇月 半 か か り ま し た . 私 は PC-6601 を 持っ て いま す が , 隣 の 席 の 人 が PC-8801 な ん で す 。 BONO 
人 と PC どう し で けん か に な り ま す . 私 が 「 明 る い ソ フト , ボイス シン セ サ イ ザー, カー トリ ッ ジ 」 と 言う と ,「 ソ フト の 数 , 中 間 色 , スピ ビー 


な に せ 本 の プロ グラ ム を 入れ る の が 初め ゆめ て な の で , 4 月 


104 F, きれ いな 画面 」 と 言い っ 返さ れる / (守田 正俊 ) 


2008 VF, vv いき な り 地 球 を 侵略 し よう と 
異 星人 が 攻め て きた が , これ が め っ ぱ ぽう 吾 
くわ ずみ か 数 時 間 で 退散 し て いっ た . 

し か し , や つら は どこ か て 盗ん で きた と 
し か 思え な い ほ ど 強 力 な お 土産 … ウ ェ ザ ー 
コン トロ ー ル ・ タ ワー を 地球 に 打ち 込ん で 
行っ た . こん な も の が 地球 の 気候 を 乱 し 続 
けれ ば , 1 年 後に は 農作物 に 大 き な 被 害 が 
出 て , この 物価 高 と 不景気 に ます ます 拍車 
を か ける こと に な る . 

そこ で ,。 君 に は 庶民 の 生活 を 守る た め に 
タワ ー の 破壊 に 向っ つて も ら う . いや , 方 法 
は カン タン だ . タワ ー の 頂上 に 登っ て くれ 
さえ すれ ば タワ ー の 安全 装置 が な ぜ か 働き , 
タワ ー の 機能 が スト ッ プ する と 我が国 の 
スパ バイ が 伝え て いる . だ か ら , タワ ー の 頂 
上 を めざし て た だ 上 へ 登れ ば いい の だ よ . 

A, な に , 心配 する な っ て . 実は 君 は 極 
秘 裏 に サイ ボー グ 手 術 を 受け , 3 回 まで な 
ら 死 ん で も 生き 返る こと が で きる の だ . そ 
し て 足 は 我 が 技 術 陣 が 総力 を 結集 し て 作っ 
た スー パー レッ グ 機 能 に より , 無限 ジャ ン 
プ は お ろか 穴 を 掘っ た り で きる の だ . š>, 
も う 安 心 だ ろ ? 行っ て くれ . 


プロ グラ ム ・ イ ン フ ォ メ ーション 


dB-IBASIC 2 本 
マシ ン 語 E000—FBFF 
**'* 


うう うっ 


P P P 


まず dB-IBASIC を ロー ド し , KI CLE 


AR &HDFFF を 実行 後 モ ニー タ よ り マ シン 


語 部 (リス ト 1 ) を 入力 し , 入力 後 FC00H ~ 


FEFFH ま で の 間 を 00H で 埋め て ,E000H 一 
FEFFH ま で を テー に セー し 235 

次 に BASIC モ ー ド に 戻り PCG 定 義 デ ロ 
グラ ム (リス ト 2) を 入力 し , 別 の テー プ 
らら セー E a 
ド し て 起動 し , 

ТАРЕ LOAD=Y 

ОВ.) ADR=4000 


図 1 0051951 


PORT SAVE-Y 
WORK ADR-—DOOO 


LINETABLE =“ 

と し て コン パイ ル し , 無事 コン パイ ル が 
終了 し だ ら 01E1H か ら 2 バ イト を 00, 40 に 修 
EL, | 

#5 

Т-ааг. ОООО 

Е-ааг. 73DA 

J-adr. ОООО 
と し て 空 テ ー ダ に セー ブ グ し ます . 

次 に も う 一 度 BASIC モー ド に し て か ら 
メイ ン (リス ト 3) を 入力 し , リス ト 2 同 


様 テ ー プ に セー ブ し , コン パパ イラ を 起動 し 


弾 が 10 発 増え る 


弾 が 1 発 増 える 


Adi иб 

ТАРЕ LOAD=Y 

OBJ ADR= 4000 

PORT SAVE=Y 

WORK ADR = COOOO 
. LINETABLE=N 
と し て コン パイ ル し , 無事 コン パイ ル が 終 
了 し も したら 次 に モニ タ か ら 先 の マシ ン 語 部 を 
кее Ж Ы そし て また だ た.01EE よ か 6.2 
バイ ト を 00,40 に 修正 し て , さっ き の РСС 
定義 ゲロ グラ ム の 後に | 

#5 

T-adr. ОООО 

Е-ааг. EB98 


РіО _ 


J-adr. OOOO 
еШ Ча А 

TLC IPE か が から ポ ボー ト ・ ス ダー ト で きる 
は ず で すか が, も し で きだ ない 場合 は PCG 定義 
プロ グラ ム (リス ト 2) OREM 文 を 見 て 
(22 9t. 

な お , РСС を モッ ト し た 後 BOOT され 


ます が 暴走 で は あり ませ ん . も うぅ 一 度 IPL か | 


ら メ イン を 読ん で ゲー ム ・ ス タダ タート し ます . 


ュ ン トロ ー ル し , [SPACE] キー か トリ ガ が ・ 
ボタ ン で 銃 を 打ち ます . テン ・ キ ー の 場合 
に は |2| キー で 容 を 掘り , 敵 の 上 で この キー 
を 使う と 敵 を 踏み つぶ すこ と が で きま す . 
また [Zsll9 ゥ | キー で ジャ ンプ し , [7][9]% 
ー の 場合 は ジャ ンプ 中 に 頭 に 何 か 当 た る と 1 
キャ ラク タ 横 に ずれ て 人 間 が 落下 し , [8] 
ー だ と 真下 に 落下 し ます . る さらに, ジャ ング 
し て いる と き C に 急 に [4|[6 キ ー を 押す と, を 
の 時 点 で 横 に 1 キャ ラク タ ず れ て 落下 し ま 
т. 以上 の よう に キー 操作 が や や こし いで 
す が 。 ゲー ム を し て みる と すでに わか る で 
EE Saw f 

を し て , 落ち て いる ボー ル を 拾う と 表 に 
示し だ よう に な り ま す が 。 ボー ル は 人 間 が 
ボー ル に 向っ て 歩い て いる と き 以 外 に 接触 
し て も 拾っ だ こと に な ら ず 消え る だ け で す . 
し だ た が っ て , 道 の 真ん中 に ゆめ が あっ て も 頭 
を 使え ば 通れ ます ( 図 1, 2). 


リト 1 ROBOTS TOWER マシ ン 語 リス ト 


テン ・ キ ー か ジョ イス ティ ッ ク で 人 間 を 


な お , 英 の ポイ ント は 近く で 殺す ほど 高 
ポイ ント に な り ま す (踏み つぶ す の が 一 番 
高 得点 ) が , 致命 的 な こと に 敵 が 3 種類 し か 
昌 て と こない こも と を お 許し て だ きい (メモ リ 
が あぁ ・…). : 

その 他 , ゲー ム 中 に [S| キ ー を 押す と ゲ 
ー ム の 中 断 が で き (|RETURN | キー で 再開 ), 
[G] キー を 押す と ゲー ム ・ オ ー バ ー に な り ま 
+. 用 途 は 第 3 タワ ー に あり ます . 実は 第 
3 タワ ー に は 袋小路 が ある の で す (まあ , 
まとも に や っ 立 こ こま で 行く 大人 問 は 当分 な 
い だ ろ うま だ な.- 2 トリ が の ジョ イス テ 
ィ ッ ク を 持っ て いる 方 は , ほとん ど 無 意味 


これ で 一 網 打 尽 だ 


> ーー KIER 


に 近い 『「 フ ルオ ォ オー ト 射 撃 」 が で きま す 。. そ 
し て も う 一 つ 隠 れ 機 能 が あり ます が 。 お そ 
らく 〈 く リスト を よく 〈 く 見 れ ば わか る で し ょ 2 う . 
сь, これ は お まけ な の で これ を 使っ た 結 
果 [@| キー を 使わ ざる を 得 な く な っ て も 当方 
の 責任 で は ご ざい ませ ん . 

を そして, 敵 に まとも に 接触 すれ ば 1 人 死 
に ます が , 敵 は UFO を 除い て 重力 に は 逆 ら 
ぇ えな い の で それ を 利用 し て くだ さい . な お , 


る ご - と を 


OT 


20 体 の 敵 を 倒す ご と に 人 間 が 1 人 増え ます 
また だ , 第 3 タワ ー で は 地図 を 描き な が ら や 
すず すめ まず す 。, 


а 


Со US Vui l E 

だ だ で きえ ぇ ゲーム が 作り や すい 1 に а 
ン パ イラ さる え あ れ ば 無敵 で す . これ な ら 初 
心 者 で も アイ デア を 重視 し た 質 の 高い ソフ 
ト を 大 量 に 開発 で きる で し ょ う . X1 が PC 
や FM を 圧倒 する の は これ か ら で す (な に , 
S む バリ ラー ギン パパ 存在 だ )。 

最後 に 。 アド バイ ス を し て くだ さる っ た 旦 
氏 , S 氏 に 感謝 し ます . そし て 本 当 の 最後 
に 。 バグ が あっ だ ら ご めん な る きい 。 
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| 


結構 マイ コン 持っ て いる 奴 が いる ん で すね . 
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p こん ば ん ち は (な ん な ん だ ), JR-100 ゆ う ざ あ の で いぶ ぷろ ま し で す . 今 , クラ ス の みん な に マイ コン を 勧め て いる ん で す が , р, 
3 ちの クラ ス は X1 が 1 Л, FM-7 と PC-6001 を 持っ て いる の が 1 人 、 菩 PC-6001 を 持っ て いた 奴 が 
DA, それ に 僕 が JR で 計 4 人 (3 A). さら に 「 マ イコ ユン を 近い うち に 買お う 」 と 考え て いる 奴 が 2 人. いや ー, 実に いい こと が だ, 
が ほし い , S1 も ほし い , PC-8801 も ほし い . しかし, JR が 一 番 い いん だ . > 


P.S. Apple 
(JR-100 ゆ う ざ あ の で ぃ ぶろ まし 一 ) 


"i 
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SIO дү, 


éF SB ЗВ ØC :1C 


な ん と , お 父さん が あの RED BALL で 100 万 点 を 突破 し た . PiO010 月 号 p.110 の 満田 者 その くら いで あき ら め る な ん て 男 で は な い 。 ちょ っ 
と は 見 習 え ( と 言っ て いる 自分 は どう な の か ? ) それ と , も う 一 言 . PC-6000 シ リー ズ は な ぜ 最 近 特 集 に 出 て こない の か , それ が 知り たい, 
P.S.1 お 一 い 木村 見 て る か . | | (古館 未来 彦 ) 


/ 
¿1 i : 
^S y Ë y > Я 
Р 2 ; T 
i KEY r сыг А ху x” 5 А Уе, L „2% n PET. m K 
4: PA KS P % су {> Cay. dicus な TY у ЛК 
ーー 4 RETÊ ra у» у * 1, ж: X Lut тем we E7 4 + E. S Zk- š 7 б^ 


Q X300 E ЗЕ X E E € CIEN 
の '** ROBOTS P.C.G ++ 


SO '*«« VER 1.1 ** 

40 '** 841014 LI 

SO '+=+# BY ** 

60 '** S.MORIYAMA ** 

70 ЧЗ 3€ X X 3 3€ 3€ 4 
80 ' CSTOP (IPL LOAD ノ チ ウマ 2 CSTOP シナ ケレ バハ ~ 
9Qt*t"a^?/ WAIT ノア タイ ラ カエ テ ミ テ タダ "サイ ) 
9 の ТІМЕ=0 

100 OUT &H19 の の 。&HE9:MQIT 50: OUT &H19 の 0 。 1 
110 IF TIME<4 THEN GOTO 100 

128." 

130 MIDTH49: CLS4: PALET: РКИ: COLOR 7,0,0,0 
:CGEN Q:CSIZE 0: ТЕМРО 1500 

140 LOCATE 12,10: РКІМТ"МАІТ А MOMENT!" 
150 ' PCG SET 

180 DEFCHR$( 32 )-HEXCHR$ (STRINGS (3, "00 
の の の の の の の の の の の の の の 9"))』「 

170 DEFCHR$( ささ )=HEXCHR$ (STRING$ (3, "58 
58585800585800")): °! 

180  DEFCHR$( 34 )HEXCHR$ (STRING$ (3, "6C 
 24480000000000"))5: '" 

190 DEFCHR$( 35 )=HEXCHRS (STRING を (3, "74 
7474FE74FE7400")): '# 

200 DEFCHR$( 36 EE CT o 
FEESFEQAFEQ800”)): $ 

210 DEFCHR$( 37 )-HEXCHR$ (STRINGS (Z, "42 
44481024408400"))2: '7 

220 DEFCHR$( 38 )-HEXCHR$ (STRING$ (3,"F8 
E81 22A64EAF 200")): ''& 

230 DEFCHR$( 39 )-HEXCHR$ (STRING$ (3, "58 
0۵81 9 の の の の の の の の の の "))』/「 

240 DEFCHR$( 40 )=HEXCHR$ (STRINGS (3, "AE 
1C3838381COE00")): ' ( 

250  DEFCHR$( 41 )-HEXCHR$(STRING$ (3, "EA 
70383:83870E000")): ') 

260 DEFCHR$( 42 c^ cte he diii Me 
54:87с:68540000") ): 

270 DEFCHR$( 43 | -MEXCHRE (STRINGS CS, ав 
10107C10100000"))2: '* 

280 DEFCHR$( 44 )-HEXCHR$ (STRING$ (3, "00 
2o00000:58081000")):^', 

290 DEFCHR$( 45 )-HEXCHR$ (STRING$ (3, "00 
の の の の 7 ヒビ の の の の の の の の " ) ) 』 "一 

300  DEFCHR$( 46 )-HEXCHR$ (STRING$ (3, "00 
0o00000:8:8:800")):'. 
.310  DEFCHR$( 47 )zHEXCHR$(STRING$ (3, "00 
04081020400000")):'/ 
320 DEFCHR$( 48 ek 
E6EAF2E2E2FE ウ の の"))』 の 

S30  DEFCHR$( 49 ) SHEXCHR$ (STRINGS (3, "38 
78 さ ヨミ ヨミ ヨミ 8B7C の の ") )』 °1 

る 4 の  DEFCHR$( 5 の ) SHEXCHR$ (STRINGS (3, "FE 
E2E2 つ の 27EE の FE の の 9") ) 』 ‘2 
550  DEFCHR$( 51 )-HEXCHR$(STRING$ (3, "FE 


E2E2020EE2FEQ0")):'3 


60  DEFCHR$( 52 )-HEXCHR$(STRING$ (3, 


E2E2E2E2FE0200")):'4 


"E2 


370  DEFCHR$( 53 )-HEXCHR$ (STRING$ (3, "FE 


EOEOEOFEO2FEO0")):'5 


380  DEFCHR$( 54 )-HEXCHR$ (STRINGS (3, 


EgEOE の FEE2FE の 9"))』 ‘6é 
390 DEFCHR$( 55 
E2E2bE202020200")):'7 


) :HEXCHR$ (STRING$ (3, 


"FE 


"FE 


400  DEFCHR$( 56 )-HEXCHR$ (STRING$ (3, "FE 


E2E2E2FEE2FE00")):'8 


410 DEFCHR$( 57 )-HEXCHR$ (STRING$ (3, 


E2E2E2FE020200")):'9 


420 DEFCHR$( 58 )-HEXCHR$ (STRING$ (3, 


383800:38380000"))::': 


430 DEFCHR$( 59 )-HEXCHR$ (STRING$ (3, 


38380038081000")): '; 


"FE 


440 DEFCHR$( 60 )=HEXCHR$ (STRING$ (3, "04 


の 8 1 の 92 の 1 の の 8 の 4 の の 9"))』 '« 
450  DEFCHR$( 61 
の 97C の 97C の 9 の 9 の 9") )』 "= 


460 DEFCHR ま ( 62 )-HEXCHR$ (STRING$ (3, 


20100810204000"))1: > 


470 DEFCHR$( 63 )-HEXCHR$ (STRING$ (3, 


E2E21E10003800")): '? 
480  DEFCHR$( 64 )-HEXCHR$ (STRINGS (3 
007C007CO02000")): ‘е 


490 DEFCHR$( 65 )-HEXCHR$ (STRINGS (3, 


Е2Е2Е2Е2ҒЕЕ200") ): ‘А 


500  DEFCHR$( 66 )-HEXCHR$(STRING$ (3, 


E2E2E2FCE2FE0Q")):'B 


) :HEXCHR$ (STRING$ (3, "A0 


"40 


"FE 


"FC. 


"FC 


510 DEFCHR$( 67 )-HEXCHR$ (STRING$ (3,"F8 


EAEOEOEOE2FCOO")):'C 
520 DEFCHR$( 68 ) -HEXCHR$ (STRING$ (3, 
EAE2E2E2E2FEQ00"))1'D 


"FB 


530  DEFCHR$( 69 )=HEXCHR$ (STRINGS (3, "FE 


EOGEOEOFCEOFEOQ")):'E 


54@ DEFCHR$( 70 ) -HEXCHR$ (STRINGS (3, "FE 


EOEOEOEOFCEOQDO")):'F 


550  DEFCHR$( 71 )-2HEXCHR$ (STRING$ (3, 


EAEOEDEEE2FEOQ")):'G 


560 DEFCHR$( 72 ) =НЕХСНКФ (STRING$ (3, 


Е2Е2Е2Е2ҒЕЕ200") ) : “H 


"ЕВ 


"E2 


570  DEFCHR$( 73 ) =НЕХСНКФ (STRING$ (3, "7С 


38383838387C00")):"I 


SB の  DEFCHR$( 74 )-HEXCHR$ (STRING$ (5, "ВЕ 


0404Е4Е4Е85000") ): “J 


590 DEFCHR$( 75 )-HEXCHR$ (STRING$ (S3, 


E2E2E4EBF の EE の 9"))』 ‘К 
6 の の  DEFCHR$( 76 
EOEOEDOEOE2ZFEOQ")): “L 


)=HEXCHR$ (STRING$ (3, 


"E£ 2 


" EQ 


610 DEFCHR$( 77 )-HEXCHR$ (STRING$ (5, "Е2 


FG6F6FEFEEAE200")): M 


620  DEFCHR$( 78 ) -HEXCHR$ (STRING$ (3, "E2 


E2F2FAFEEEE6Q0Q")) : “N 


, ` A К ср ] 
| | | iO 
` Г, 
„^^ 


7CE2E2E27C3800")):'0 
640  DEFCHR$( 8@ )=HEXCHR$ (STRINGS (3, "FC 
Е2Е2Е2Е2ҒСЕ0200") ): 'Р 

650  DEFCHR$( 81 )=HEXCHR$(STRING$( さ 。 "FC 
Е2Е2Е2ЕАЕС@&@@")): “Q 

660 DEFCHR$( 82 ) =НЕХСНКФ (STRINGS (3, "FC 
Е2Е2Е2ҒСҒ2ЕЕ00") ): ‘К 

670 DEFCHR$( 83 )SHEXCHR$ (STRINGS(S,"FE 
E2E の E の 1EE2FE ウ の"))』: 'S 

680  DEFCHR$( 84 )-HEXCHR$ (STRINGS (3, "FE 
B8383838383800")): T 

690  DEFCHR$( 85 ) -HEXCHR$ (STRING$ (Z, "E2 
Е2Е2Е2Е2Е2ҒС00") ): ‘0 

700  DEFCHR$( 86 )-HEXCHR$ (STRINGS (3, 
Е2ЕФЕЕҒСҒВҒ000") ) : ‘М 

710 DEFCHR$( 87 )-2HEXCHR$(STRING$ (3, 
E2EAFEFEF6E200")):'W 

720 DEFCHR ま ( 88 )-HEXCHR$(STRING$ (3, 
EE7C387CEEC600")): 'X 

730  DEFCHR$( 89 )-HEXCHR$(STRING$ (3, 
C6EE7C3870EO000")): ' Y 

740 DEFCHR$( 90 )-HEXCHR$ (STRINGS (3,"FE 
ØE 1C3870EØFE0Ø")):'Z 

750 ‘FOR I=@ ТО 9Ø:DEFCHR$(I)=STRING$ (3, 
LEFT$ (CGFAT$ (I) ,8) ) NEXT 

760 CGEN 1:FOR I-1 TO 14:LOCATE 12,10:PR 
INT LEFT$("WAIT A MOMENT'",I):PLAY"V1507 
CDR":NEXT 

770 DEFCHR$( 91 )-HEXCHR$("QF1FSF7F7F7Q3 
616 の の の の の の の の の の の F の ワ 9 の 9 の の の の の の の の の の の F の D の 9 " ) 
780 DEFCHR$( 92 )-HEXCHR$ ("FOFS8FCFEFEOE6 
ces の の の の の の の の の の F の 9 の 9 の OOOOOOOOOOFODO?9Q") 
DEFCHR$( 93 )-HEXCHR$("1000001022470 
EQE OFOFOO0:0:2400COE OFOF 1F 3F 27400000") 
800 DEFCHR$( 94 )=HEXCHR 和 も ("の OB の の の の の の 4 の E の 7 
070 Ғ0ғ000044Сс002070 RBO の 7 の FBFCECO の の の の 0 " ) 

- DEFCHR ま ( 95 )-HEXCHR$("OODOQOF 1F SF 7F7 
F70 の の の の の の の の の の の の の の の F の の の の の の の の の の の の の の の F ") 
820 DEFCHR$( 96 )=HEXCHR* ま ("の の の 9 の FgFBFCFE7 
の の の の の の の の の 9 の の の 8 の F の の の の の の の 9 の の の の の の 8 の F の " ) 
830 DEFCHR$( 97 )-HEXCHR$("30160000225F1 
OF の 9 の F2 の さ 249 の の の E OFOD1F 3F 37400000" ) 
DEFCHR$( 98 )=HEXCHR$ ("2C68080000987 
870 FO9OFOO040500070 FOD の 7 の FOF の 6 の の の の の" ) 
850 DEFCHR ま ( 99 )-HEXCHR$("O71F3F7F7F703 
の の の の の の の の の の の F の 9 の 9 の の の の の の の の の の の F の D の 5" ) 
860 DEFCHR$( 100 )-HEXCHR$("EOFSGFCFE7EOE 
ecea ooocO0000GOFO?O?0 の の の の の の の の 8 の F の D の 9 の " ) 
870 DEFCHR$( 101 )-HEXCHR$("502010000507 
の 6 の の 4F ミ F さ の の の の の の の の 6 の の 4F さ F さ F1F の 1 の の の の の 9" ) 
880 DEFCHR$( 102 )-HEXCHR$("OB800000040EO 
6 の 6 の F の FC の 4 の の 4 の の の 4 の 6 の 9 B の 7CFCFBEO の の の の 0 の") 
890 DEFCHR ま ( 103 )-HEXCHR$("OQF1F3F7F7F7F 
7979 の の の の の の の の の の の の の 6 の 6 の の の の の 9 の の の の の の の の 6 の 6" ) 
900 DEFCHR ま ( 104 )=HEXCHR* ま ("BE の FBFCFC1C 
7870 の の の の の の の の の の E の BOB の の の の の の の の の の の E の BOB の " ) 


" E2 


" EZ 


"Сё 


" 82 


4g P 
4, 


7 


СЕ ЭА xe 


pio 


1018 の 2 の さ の の の の の 91 の 1818 020:070506000000") 


920 DEFCHR$( 106 )-HEXCHR$("20000:80000CO 
EOE の EOE の さ B292 の 4 の 6 の E の EOEOBSBEOEO000000" ) 
930 DEFCHR ま ( 107 )=HEXCHR 和 ("の 7 の F 1F SF ZF SF 
ICIC の の の の 9 の 9 の の の の の の の の さ の さ の の 9 の の の の の の の の の の の さ の う " ) 
940 DEFCHR$( 108 )= ニ HEXCHR ま ("COF の OFCFEFEBE 
BCB8 の の の の の の の の の 9 の 7 の 4 の 4 の の の の の の 9 の 9 の の の 7 の 596 の " ) 
950 DEFCHR を も ( 109 )-HEXCHR$("1EO060000000: 
0505 の 1 の 1 の の の の の の の の の の の さ の 1 の 1 の さ の 2 の さく の の の の の 9 の" ) 
960 DEFCHR$( 110 )-HEXCHR$("80001C2O00080 
COCO 7 の F の 1C1 の 1 の の の COC の 7O0FODCFO70000000") 
970 DEFCHR$( 111 )-HEXCHR$("8O0EOFBFCFCIC 
7870 の の の の の の の の の の E の B の B の OOOOOODOOOOEOEOEO") 
980 DEFCHR$( 112 )-HEXCHR$("SDOCOO00001F 
1E18 020:000000101818 02030705065000000") 
990 DEFCHR$( 113 )-HEXCHR$("O000380000A0 
7070 Е0Е0582020205070 EOEOBSEOEQO000000") 
1000 DEFCHR$( 114 )-HEXCHR$("O01071F3FS3F3 
8i1EOE OO000000000070101 0000000000070707" 
) : 


1010 DEFCHR$( 115 )-HEXCHR$("FOFBFCFEFEF 


E9E9E の の の の の の の の の の の の 6 の 6 の の の の の の の の の の の の の 6 の 6 の " 
) / 

1020 DEFCHR$( 116 ) =НЕХСНКФ ("00001Сс00000 
40Е0Е 07071С0405050С0Е の 7 の 71D の 7 の 7 の 1 の 9 の の 9" 
) : 


1050 DEFCHR$( 117 )-HEXCHR$("BC3O0000007 
87818 40CO0000000881818 4O0COEOEOEOS800000" 


) 
1040 DEFCHR$( 118 )-HEXCHR$("QOSQF3F7F7F7 
13D1D の の の の の の の の の の の E の 2 の 2 の の の の の の の の の の の E の 6 の An" 


・) 


1050 DEFCHR$( 119 )=HEXCHR$ ( "E@F@F8FCFCF 
CSCSC の の の の の の の の の の の の CO の CO の の の の の 9 の の の の の の COCg" 
) 


1 の 6 の DEFCHR$( 120 ) =НЕХСНКФ ("0102035800000 


20707 の E の F さ B の BOB の 19697 の EOFSB の FOF の 1 の の 999" . 


) 
1070 DEFCHR$( 121 )-HEXCHR$("78600000000 
の 8 の OB の B の B の の の の の の の 8 の の の 8 の BOB の CO の C の CO の B の の の の の" 
) 


1080 DEFCHR$( 122 )=HEXCHR$(" の 1 の 71F マ F さ F マ 
B1E の E の の の の の の の の の の の 7 の 1 の 1 の の の の の の の の の の 9791 の 1 " 
) 


1090 DEFCHR$( 123 )=HEXCHR$('' の の の 9 1 じ の の の 9 の 
30707 の 7 の 71 じ の 4 の 4 の 2 の 6 の 7 の 7 の 71D の 7 の 7 の の の の 9 の " 
) 
1100-DEFCHR$( 124 )-HEXCHR$("BC300000008 
8B818 40CO000020581818 AOCOEOEOEO0500000" 
) 


1110 DEFCHR$( 125 )-HEXCHR$("8O0EAFAFFFF1 
F7B73 の の の の の の の の の の E の OE 1E 1 の の の 4 の 2 の 9 さ の さ E さ E さ E さ " 
) J 

1120 DEFCHR$( 126 )-HEXCHR$("Q0O10:307070F 
aFSF8 の の の の の の の の の の 4 の Q の 6 の の 91 の く の 7 の 7 の FQFBFB" 
) 

1150 DEFCHR$( 127 )-HEXCHR$("3DOCOOO0000 
70506 の 2 の さ の の の の の の の の の 4 の 6 0203070504000000" 
) 

1140 DEFCHR ま ( 128 )-HEXCHR$("QS1FQ306Q0CC 
9FOED E1FD191 の の の の の 2 の 9E の E さ FFF さ SF6 の C の 9 1 の の 9 の" 
) 

1150 DEFCHR を も ( 129 )=HEXCHR$ ("FFFEF87C383 
81008 F の F45 の 24 の の の の の の の の FFFEF87C38381008" 


) 
1160 DEFCHR$( 130 )-HEXCHR$("IFSF7FFFFEF 
EF2F2 の の の の の の の の の 1 の 1 の DO の D OOO00000001010DOD" 
) 


1170 DEFCHR$( 131 ) =HEXCHR$ ("9 の COFOFBFB マ 
BFBF の の の の の の の の の の の じ の OBB さ の の の の の の の の の の 9 の CO の BB さり" 
) 
1180 DEFCHR$( 132 )= ニ HEXCHR$ を ("の の の の の 8 の の 44 の 9 
の の の の の の 0 の の の 8 の の 44 の の の の の の 0000080044000000" 
) 


1190 DEFCHR$( 132 )-HEXCHR$("7A180000000 


| FOBOD OS50600000000080D の 5 の 7 の FOB の 9 の の の の 9 の の" 


) 
1200 DEFCHR$( 134 ) =НЕХСНКФ ("200000022018 
の COC の nA の 20 の の の 2 の 1 の の 4 の CO EOE の OB の OB28 1 000000" 
) 


1210 DEFCHR$( 135 )=HEXCHR$( "の 297 の 2 の 9 の 2 1 


の の の の の の の の 2 の の の の の 2 1 の の の の の 9277020002100000" 
) 


1220 DEFCHR$( 136 )-HEXCHR$("023E7F7F7F7 
FSF1F 0000041202090101 023E7F7F7F7FSF1F" 
) 
1230 DEFCHR$( 137 )-HEXCHR$("01071FBFBFF 
SDECE の の の の の の の の の の の 7 の 787 Q0000008080C7C7C7" 
) 


1240 DEFCHR を も ( 138 )=HEXCHR$("1F3F3F7F7F1 
F の F 1 の の FOF1D1 1 の 2 の の の の の の 1FS3F3F7F7F1FQF10" 
) 


1250 DEFCHR$( 139 )=HEXCHR$ ("CØF8CØCØ808 
30607 87BF8AQEQQQ0Q0607 C7FFCBCFB さ B の の の の の " 
) 


1260 DEFCHR$( 140 )=HEXCHR$ ("BC さ の の の の の の の E 
чиген 4 の じ の の の の の の の の の 6 の 6 の 4 の じ の 6 の OEOE の の の の の の の " 


1978 DEFCHR$( 141 ) -HEXCHR$ ( "80000010080 
20000 の の の の の の 1 の の B の 2 の の の の の の の の の の 1 9 の 8B の 2 の の の の " 
) 


1280 DEFCHR$( 142 )=HEXCHR$( "の の 9 さ の F 1F1F1 
ciFOF の の の の の の の の の の の さ 1 108 の の の の の の の の の の の くさ 1 108" 
) 


1290 DEFCHR$( 143 )=HEXCHR$("FBFCFEFFFF フ 7 
F4F4F の の の の の の の の の の BOB の OB の の の の の の の の の の の 8B の BOB の " 
) L 

1300 DEFCHR$( 144 )-HEXCHR$("40ES4002081 


à. そう いえ ぇ ば, 
ンチ テ ャ ー が だ は で も 。 
NES 


` 5 
AI ES ee EE 6 
el xis Ca ү, 
Кай у ВРА a BO 


00000 0040000208100000 40ES400208100000" 
) 


1310 DEFCHR$( 145 )=HEXCHR$( "の の の の の の の の の の の 


10303 の 7 の 7 の 1 の さく の の の の の さ の さ 0707030301000000" 
) 


1320 DEFCHR を も ( 146 )-HEXCHR$("SE18000000F 
の 7 の さ の の E の の の の の の の の の さ の さ の の OE の OB の F の F の の の の の の 0 の" 
) 
1330 DEFCHR$( 147 )zHEXCHR$("QOQF1F3F7F7F7 
FSF1F QF1F3SF7F7F703616 の F1F3F7F7F7F さ F1F" 
) 


1340 DEFCHR$( 148 )-HEXCHR$("FOFGFCFEFEF 
EFCF8 FgFBFCFEFEOE6C68 FOFSGFCFEFEFEFCFB" 
) 

1350 DEFCHR$( 149 )-HEXCHR$("1F3F2000020 
7 の E の E 1000000002000COE 1FS3SFSF1FQ07000000" 


) 
1360 DEFCHR$( 150 )=HEXCHR ま $("FBFCg4 の の 4 の E 
の 7 の 7 の の 8 の の の の の の 4 の の の さく の 7 の FBFCFCFBEO の の の の の の" 


) 

1370 DEFCHR$( 151 )=HEXCHR$( "の の F 1F3F7F7 
F7F さ 9 QOOFIFSF7F7F7030 QQQF1F3F7F7F7F39"" 
) 

1380 DEFCHR$( 152 )-HEXCHR$("OQOFOFBFCFEF 
EFE9C の の FOFBFCFEFEOE の C の の FOFBFCFEFEFE9C" 
) 

1390 DEFCHR$( 153 )-HEXCHR$("193F2FO0O0000 
さ 1E1C 1 の 1 の の の の の の の の の 181C 19 さ F さ SF 1F の さく の の の の の 9 の" 
) 


1400 DEFCHR$( 154 )=HEXCHR$("9BFCF4 の の の の C 
07858 の BOB の の の の の の の 918 さ 8 98FCFCFGCOO00000" 
) 


1410 DEFCHR$( 155 )=HEXCHR$( "の の 9 の の の 99 の F 1F 3 
F7F7F の の の の の の の F 1F SF7F7F の の の 999 の F 1F さ F7F7F" 
) 
1420 DEFCHR を ( 156 )=HEXCHR$ ( "の の の の の の F の FBF 
CFEFE の 9 の の の の F の OFBFCFEFE の 999 の の F の OFBFCFEFE" 
) 


1430 DEFCHR$( 157 )-HEXCHR$("7F7FSF1FQFQ 


の の ささ じ 7056161000000058 7F7FSFS3FSFOFOOQ0" 
79 


1440 DEFCHR$( 158 )-HEXCHR$("FEFEFAFGFOQ 
の CO の さじ の E6C68B の OB の の の の の の 1C FEFEFAFCFCFOQOQODQ" 
) м 

1450 DEFCHR$( 159 )=HEXCHR$( "の の の の の 9 の の の の 9 
の の F 1F の の の の の の の の の の の の の F 1F の の 9 の の 9 の の の の の 9 の 9F 1F " 
) 


1460 DEFCHR$( 160 )=HEXCHR$('' の の の の の の の の の の の 


、 の FOFB の の の の の の の の の の の の F の OFB の の の の の の の の の の の の F OF 8" 


) 

1470 DEFCHR ま $( 161 )=HEXCHR$ ( "SF7F7F7F395 
9SF@F 3F7F7F7030101000 さ F7F フ 7 フ F フ F さ 9597F さ F" 
) 5 

1480 DEFCHR$( 162 )-HEXCHR$("FCFEFEFE9C9 
aFAFO FCFEFEOEOCOBGBOBOD FCFEFEFE9C9AFEFC" 
) 

1490 DEFCHR$( 163 )-HEXCHR$("SF7F7F7FSF1 
FSFA4F. 3F7F7F7036161000 3F7F7F7FS3F1F7F7F" 
) $ 

1500 DEFCHR$( 164 )=HEXCHR ま ("FCFEFEFEFCF 
8FAF2 FCFEFEOE6C680800 FCFEFEFEFCFBFEFE" 
) 


1510 DEFCHR$( 165 )-HEXCHR$ ("02570200000 
の の の の の OOO2000000000000 0257020000000000" 
) | 
1520 DEFCHR 和 を $( 166 )=HEXCHR$ ("02270200000 
の の の の の の 2 の 5 の 2 の 9 の の の の の の の の の の 227 の 2 の の の の の の の の 0 の " 
) 


1550 DEFCHR 和 ま ( 167 )-HEXCHR$("40EA4000000 
の の の の の の の 4 の の の の の の の の の の の の の 4 の EQA4 の の の の の の の の の の の " 
) 


1540 DEFCHR$( 168 )=HEXCHR$( "4 の E44 の の の の の の 
の の の の の 4 の Q の 4 の の の の の の の の の の の 4 の E44 の の の の の の の の の の の" 
) 
1550 DEFCHR$( 169 ) =НЕХСНКФ ("02050701000 
02511 の く の D さ 7 マ 1 の CO の さ の 242 の 2 の 4 の 1 の の の の の の の の 4 の 9" 
) 


1560 DEFCHR$( 170 )=HEXCHR$ を ("の の BE の B の の の の 
2А488 C の OB の ECBC さ の CO の 4 の 42 の の の の OBO の の の の の の の の 92" 
) 


1570 DEFCHR$ 171 ) =НЕХСНКФ ("11111918100 
の の の の の 4042878746422203 4040808242422203" 
) 


1580 DEFCHR$( 172 ) =НЕХСНК® ("88880818080 
の の の の の の 242E1E16141C1 の 1 020201414141C101" 
) 
1590 DEFCHR$( 173 )=HEXCHR ま ("の 2 の 5 の 7 の 1 の の の 
92511 の 3 の D さ 6 くさ 1 の じ の さく の 242 の 2 の 4 の 1 の の の の の の の の 4 の " 
) 


1600 DEFCHR$( 174 )=HEXCHR も ("の の 8 の E の B の の の の 
0A488 CB の 6CBC さ の C の 4 の 42 の の の の 8 の の の の の の の の の の 2" 
) . 

1610 DEFCHR$( 175 ) =НЕХСНКФ ("11111018100 
の の の 9 の 4042878786828243 4040808282828245" 
) 


1620 DEFCHR$( 176 )=HEXCHR$ ("8888081 8080 . 


0200000 の 242E1E1614141C2 の 2 の 2 の 141414141C2" 
) 


1630 DEFCHR$( 177 )=HEXCHRS$ ("02050701000 
92511 の くさ の D さ 6 さ 1 の じ の さ の 242 0204000000000040" 
) 

1640 DEFCHR$( 178 )= ニ HEXCHR を ("の の 8 の E の B の の の の 
0A488 C の B の 6CBC さ の C じ の 4 の 42 の の の の の の の の の の の の の の の 92" 
) 

1650 DEFCHR$( 179 ) =НЕХСНКФ ("11111018100 
の の 9 の の 4042878786828:80 4040808282828380" 
) 


1660 DEFCHR ま も ( 180 )-HEXCHR$ ("88880818080 
00000 の 242E1E1624244C の O 02020141424244CQ" 


p 「 ウ ッ ト イ 」 は スゴ イ / 面白 い の な ん の っ て , と て も 投稿 作品 と は 思え ませ ん . きす が に カセ ッ ト 


) 
1670 DEFCHR$(( 181 ) =НЕХСНКФ ‹ "00000000010 
10020 の の の の の くさ の じ う 1 さ 1 の C の ウマ 0000000001010000" 
) 
1680 DEFCHR$( 182 )=HEXCHR 和 を ("の の の の の の の の 8 の 8 
の の の の 4 の の の の C じ の さく の BCBC さ の CO の の の の の の の の の 8B の B の 99 の 0 の" 
) 


1690 DEFCHR$( 183 )=HEXCHR$ ("15111110181 
の の の の の 42424287874642E7 40404080824242E7" 
) 

17 の の DEFCHR$( 184 )-HEXCHR$("AB888808180 
80000 424242E1E16242E7 02020201414242Е7" 
) 1 


1710 DEFCHR$( 185 )=HEXCHR$ ("00000404040 
4F77F の の の の の の の の の の 6 1 の の の 1 の の の の 99494 の 4 の 94 さ 4 さ F" 
) 

1720 DEFCHR$( 186 ) =НЕХСНКФ ("00002020202 
の EFFE @@0@000000@85@@ЕВ 000020202020E:FA" 


y. 


1730 DEFCHR$( 187 )-HEXCHR$("7F616040404 
の の の の の 0000414141410000 :F20200000000000" 


) š , 

1740 DEFCHR$( 188 )-HEXCHR$("FE868480808 
の の の の の 7800868282820000 Fa82040000000000" 
) 

1750 DEFCHR$( 189 ) =НЕХСНКФ ("00080404040 
41F1F の の の AO の の の の の の 9 の の の 1 の 9 の の 9 の 4 の 4 の 4 の 4 の 41F" 
) 

1760 DEFCHR$( 190 )=HEXCHR$ ("00502020200 
@F8F8 の の 5 の の の の の の の さ の の の CB の の の の 2 の 92929 の 9998DB" 
) $ 

1770 DEFCHR$( 191 )-HEXCHR$("1FODOCOSO080 
B の の の の OOOOO?0709090000 1F の 4 の 4 の の の の の の 9 の 9 の の " 
), : 

1780 DEFCHR$( 192 )=HEXCHR*$("FBEOQOB の OB の 
の の の の の 48 の の B の ワ 9 の 9 の ワ 9 の の の の の DB ワウ の 29 の の の 9 の の の の の の の " 
) А 
1790 DEFCHR$( 193 ) =НЕХСНКФ ("00000404040 
4 の 71F の 9 の Q の の の の の の の 1 の の の の の の 9 の の 4 の 94 の 4 の 4 の 41E" 
) 

1800 DEFCHR$( 194 )= ニ HEXCHR ま (の の の の つの つの 2 の 2 
の E の OFB の の 95 の の の の の の の 8 の の 978 000020202020EQF8" 
) 

1810 DEFCHR$( 195 ) =НЕХСНКФ ("1F010101010 


aa の の の の の 1 の 1 の 1 の 1 の の の の 1E の の の の の の の の の の 9 の 9 の の " 


1929 DEFCHR$( 196 )-HEXCHR$("F8800000000 
の の の の の 78008080680800000 FBBO の の の の の の の の の の の 9" 
) 
1850 DEFCHR$( 197 )=HEXCHR$( "の の の 9Q の 4 の 4 の 4 の 
の 1F 1F の の の QA の の の の の の の D の の の 1 の の の の の 4 の 4 の 4 の 9 の 9 の 617" 
) 


1840 DEFCHR$( 198 )=HEXCHR 和 を ("の の 5 の 2 の 2 の 2 の 2 
の FBFB の の 5 の の の の の の の 9 の の の FB の の の の 292 の 2 の 2 の FBFB" 
) 


1850 DEFCHR$( 199 )=HEXCHR$( "1FOD の C の BB の 
BOO の の の の の の の D の 9 の 9 の 9 の の の の 17 の 4 の 4 の の の の の の の 99 の の " 
) 


1860 DEFCHR$( 200 )-HEXCHR$("F8BOA080808 
の の の の の 7800b09090900000 F890200000000000" 
) 

1870 DEFCHR$( 201 ) =НЕХСНКФ ( "00000000000 
00507 の の の の の の の の の の の の の さ の 6 の の の の の の の の の の の の の さ の 6" 
) 

1880 DEFCHR$( 202 )=HEXCHR$( "の の の の の の の の の の の 
の COE の の の の の の の の の の の の の じ の 6 の の の の の の の の の の の の の じ の 6 の" 
) ; n 

1890 DEFCHR$( 203 )-HEXCHR$ ("OEOE4F4BR272 
51050 の CO の C4E6F さ 72E 16 さ の OCOCAF6B372D1030" 
) 

1900 DEFCHR$( 204 )-HEXCHR$("707QF2D2bEA4C 
4080C 202062A60C74680C 7 の 7 の F2D6ECD4 の 8 の C" 
) 


1910 DEFCHR$( 205 )-HEXCHR$("QO000000000 
さ の 7 の F OO0000000000:060D の の の の の の の の 9 の の さ の 6 の C" 
) 

1920 DEFCHR$( 206 )=HEXCHR$('' の の の の の の の の の の に 
の E の F の の の の の の の の の の の じ の 6 の B の の の の の の の の の の の CO の 697 の " 
) 

1930 DEFCHR$( 207 )=HEXCHR$ ( "@F4F4B47454 
の C の の の の D4E6F574E46C の の の の C4F6F5S74D4 の CO の の " 
) 

1940 DEFCHR$( 208 )-HEXCHR$("FOFODOEOC2O 
2040C ag50A0007E62040C 70FOFOEODEO2OA4QC" 
) 


1950 DEFCHR$( 209 ) =НЕХСНКФ ("000002000000 
さ の 7 の E の の の の の の の の の の の さ の 6 の C の の の の の の の の の の の さ の 6 の D" 
) 
1960 DEFCHR$( 210 )-HEXCHR$("QOO00000ODOC 
の E の 7 の の の の の の の の の の の じ の 6 の 2 の の の の の の の の の の の C の 6 の F の " 
) 


1970 DEFCHR$( 211 )-HEXCHR$("OEOFOBO7454 
02050 OCOEOFQO77bEA4620:0 ODOFOBO77D4020:30" 
) 


1980 DEFCHR$( 212 )-HEXCHR$ ("70F2D2bE2C20 
20300 20620600726203:00 FOF2D6EAD2020:00" 
) ` 
1990 DEFCHR$( 213 )=HEXCHR$ ("20004000000 
00000 3SC7EFFFFFFFF7ESC さ C46DEC7DEDB42 さ じ " 


) : 

2000 DEFCHR$( 214 )=HEXCHR ま ("さじ 7EFFFFFFF 
F7ESC 2030682424243CO00 さ C4ED7DEDEDE42 さ じ " 
) 

2010 DEFCHR$( 215 )-HEXCHR$("3C46DBDBC7D 
DSASC 3C46DBDBC7DDSA3C 3C7EFFFFFFFD7ASC" 
) 

2020 DEFCHR$( 216 )-HEXCHR$ ("20004000000 
00000 さ C7EF 1F591F776 さ C 2 の の の 4E の A6E の OB の B の の " 
) 


・ サ ービス きれ る だ け の こと は あり ま 


は る か 詩 に PC-1500 の ゲー ム が カモ セット ・ サ ービス され て いた こと が あり まし た ね . また や っ て ほし いな あ , せめ て アド で 
P.S. ビオ な イラ スト で スク リー ント ー ン を 使っ て いる 人 に 質問 どう いう 店 で 買っ て いる ん で すか ?1 


画材 屋 に な か っ た 


A 


2050 DEFCHR$( 217 ) =НЕХСНКФ ("00000008080 
80808 185С5С5СЗС5С5С7Е 1008083C3C3C3C7E" 
) 


2040 DEFCHR$( 218 )-HEXCHR$("7EBDDBFFFFD 
BBD7E 2034484424580000 817E7E66667E7E81" 
) 


2050 DEFCHR$( 219 )=HEXCHR$( "の の の の の の の の の の の 
の の の の の B の 6 の さく BSE1F1FOF の F の の の の の の の の の の の の の の の の " 


) 

2060 DEFCHR$( 220 ) =НЕХСНКФ ‹ '' の の の の の の の の の の の 
の の の の の の の の 2 の 4 の CDCFAFBFB の の の の の の の の の の の の の の の 9" 
) | 


2070 DEFCHR$( 221 )=HEXCHR$ ("02200020000 
の の の の の Q72FOF1Fi1F386080 の の の の の の の の の の の の 9 の の の " 


) 
2080 DEFCHR$( 222 ) =НЕХСНКФ ("00000000000 


- の の の の の FOFOF の OF の OFB さ B の 4 の の の の の の の の の の の の の の の の 0 の の " 


) 
2090 DEFCHR$( 223 ) =НЕХСНКФ ("00000000000 
00000 O71F3F7F7FFFFFFF の 9 の 9 の 941C さ ESE7E7E" 
) 


2100 DEFCHR$( 224 )=HEXCHR を ("の の の の の の の の の の の 


の の の の の E の OFBFCFEFEFFFFFF の の の の OFOFCFCFEFESE " 
) 


2110 DEFCHR$( 225 )=HEXCHR$ ("の の の の の の の の の の の 
の の の の の FFFFFF7F7FSF1FQ7 7E7ASESESF1FQ700" 


) 
2120 DEFCHR$( 226 )=HEXCHR$ ( "の の の の の の の の の の の 
уйы FFFFFFFEFEFCFBE の 1ESE7EFC7C786000" 


2138 DEFCHR$( 227 ) -HEXCHR$ ("の の の の の の の の の の の 
の の の の の の の の くさ の F の 72F う 3F7F7 フ F の の の の の 1 の さく の さ の B さ F さ F " 


) 
2140 DEFCHR$( 228 )=HEXCHR$( "20000000000 
の の の の の OOCOFOFSFCFCFEFE の の の の の の E の COB の 9 ビ フ ビ " 
) 


2150 DEFCHR$( 229 )=HEXCHR$( "の の の の の の の の の の の 
0200000 7F7F マ F さ F 1 7 の F の さ の の 363551B1D06050000" 


° de 3e 4€ Je 3€ 9€ 9€ 3€ 9€ 9€ 3€ 9€ 9€ 9€ ЗЕ ЗЕ 9€ ЗЕ 

'a* ROBOTS TOWAR ++ 

"жж 

++ 

MI 

‘жж 6. MORIYAMA 

° 4 3€ 4€ 3€ 4 3€ 9€ 3€ 39€ 9€ 9€ 3€ 9€ 9€ 9€ 9€ 9€ 3€ 

DIM 

9 の CLR: TEMPO 1500:DIM КФ (35) 1% (35) 。RS ま (1 ) 
,LS$(1) 。D ま (4) : ‘MAN 
100 DIM М№Ф (5) ,% (4) 。UR ま (1) ,EF (4) ,EB(4) „Е 
X(4) ,EY(4) 。M(4) : 'ROBOTS 3 
110 ' AND ANY VER.S AND STR.S | 
120 DIM BR$(1),BL$(1),B0$(7) ,W$ (15) ,M$ (2 
Ø) ,M1$(20) ,EB$ (4) ,B$ (4) ,EB1$(4) 
130 DIM MX(1) 。MY(1) 。BX(4) 。BY(4) ,MB(4) , BF 
(4) ,EC (7) ,WX (4) 。MY(4) ,WF' (4) 
140 WIDTH 4 の:CBEN Q:CLS 4: SOUND 7,643: SOU 
ND 12,15 
150 COLOR 7,0,0,0: CONSOLE 
160 CLICK OFF: GOTO "COLD" 
170 *"INIT" 
180 F=Q: XF=Q: YF-Q: РІ АҮ"У1004":11=0: ВФ=" " 


| :BF (@) =1: BF (1) =1 : SH=2 


190 MAN$=M$: SH=2: S0=56: EC=Q: 801= 7: S02=8: 
S0 さ =1 の : SOUND 2,0: SOUND 4,0: SOUND 12,7 
200 X-15:Y-20:LOCATE X, YiPRINTMANS; 
210 *"MAIN" 
220 TC-TC*1:FPLAY"V10O4":IF C MOD 2-1 AND 
50>0 THEN PLAY МФ (ТС MOD 20) ELSE IF SO 
>@ THEN PLAY M1$(TC MOD 19) 
230 ВФ="":К=0: SOUND 7,80: SOUND 8,10: SOUN 
D 9,805: SOUND 10,50: 
240 SOUND 3,801:S0UND 5,502: SOUND 13,0 
250 IF F THEN GOTO "DIE" 
260 IF JF THEN GOTO "JUMF" 
270 A-STICK(J) : XF=Q: YF-Q: SR-SCRN$ (X, Y*2, 
2) < »p" " 
280 IF A=4 AND SCRN$(X-1,Y)z5"X" AND (SR 
OR Y520) AND SH>1 THEN B$-SCRN$(X-1,Y-*1 
): X ビ = ニー1 s BF=-1 
290 IF の =6 AND SCRN$(X+2,Y)“< >"ж" AND (SR 
OR Y>20) AND SH>1 THEN B$-SCRN$ (X*2, Y+ 1 
):XF-71:BF-2 
300 IF (4-7 OR A8 OR A=?) AND SCRN$ (X,Y 
-1,2) =" " AND (SR OR Y?20) THEN JF--1:J 
С=@ 
510 IF А=2 AND Ү<21 AND SR THEN FLAY"』 り 1 
SO6CDEV1OO6CDEVSOG6CDE":LOCATE Х,Ү+2: РКІМ 
А$=ІМКЕҮФ (Ø): IF A$=CHRẸ (SHOE) 
" AREA " 
IF АФ= "6" 
IF АФ= "5" 


THEN G 


THEN GOTO"GAME OVER" 
THEN GOTO"STOP" 


IF A$-CHR$($€HO9) THEN L-L«*1: GOSUB"LE 


XFF=XF 

IF TC MOD 2=@ OR SH:2 THEN XF=@:GOTO 
380 IF B$-2"3" THEN F--1:YC--1:FPLAY":V150 
36GDCCC" 
390 IF B$-"1" THEN В =В1_ +10: GOSUB"BULIT" 
: PLAY": V1SO6CCCD" 
400 IF B$-2"5" THEN S-8-4:0:GOSUB"SCORE":F 
LAY" :V1507DDD#EF" 
410 IF В%="')" THEN S-8-30:IF 5<0 THEN S= 
Q:GOTO 420 ELSE GOTO 420 ELSE GOTO 470 


2160 DEFCHR$( 230 ) =НЕХСНКФ ("02000000000 
の の の の の FEFEECECEBF の CO の の FCFCEBEBE の CO の の 909" 
) - 


2170 DEFCHR$( 231 )-HEXCHR$("Q0000018100 
の の の の の oOOOOOOBO7OFi1F1F 0000001810030707" 


) 
2180 DEFCHR$( 232 ) =НЕХСНКФ ("00000008020 
же" の の の の の の COE の FOFBFB の の の の の の の 8 の 928 の COE の " 


2,98 DEFCHR$( 233 ) -HEXCHR$ ("の の の の の の の の の B の 
の の の の の 1F1F の OF の 7 の B の の の の の の 0007930208000000" 


) 
2200 DEFCHR$( 234 ) =НЕХСНКФ ("0010020210101 
の の の の の FBFBEOEOC の の の の の の の の の 9 の の の 1 の 1 の 1 の の の の 9 の" 
) 


2210 DÉFCHR$( 235 ) =НЕХСНКФ ("0000350220000 
T 0000202008010307 3000302000001103" 


2228 DEFCHR$( 236 )-HEXCHR$ ("00000801000 
21000 の の の の の B9 1 の の B の COE の の の の 9 の の B の 1 の の の の 9 の 9C の " 
) 

2230 DEFCHR$( 237 )=HEXCHR$ ("200002000001 
の の の の の の 7 の さ の 1 の の の の の の の の の の の さ の 1 の の の の の の 1 20000" 
у N 


2240 DEFCHR$( 238 ) =НЕХСНКФ ("00100008080 
BOB の の E の COB の の OB の B の BOB の の C の 9 の の の の 8 の 8 の 8 の OB の 0 の " 
) 


2250 DEFCHR$( 239 ) =НЕХСНКФ ("00204000000 
22000 の の 2 の の の の の の の の の 2 1 の く の の 6 の 4 の の の の の の の 2 の の 1 " 


) 
2260 DEFCHR$( 240 )=HEXCHR を ("の の の 4 の の の の の の の 
B の の の OO e の の の の の の の の の の の BB の CO の の の 4 の の の の の の の 8 の の 8 の " 
) 


2270 DEFCHR$( 241 )=HEXCHR を ("の の の の の の の の の の の 
の 2 の の の の さ の 1 の の の の の の の の 2 の の の の 1 の の の の の の の の の の 2 の 9 の の " 
) 
2280 DEFCHR$( 242 ) =НЕХСНКФ ("00001000040 
4 の 4 の 4 COB の 1 の の の の の の の の の の の BB の の の 1 の の の の 4 の 4 の 4 の 94" 
) 


420 GOSUB"SCORE":PLAY":V15OZEEEDC" 

430 IF В%="%" THEN BL-BL*1:GOSUB"BULIT": 
PLAY": V15O6CDEF " 

440 IF В%<>"Ж" THEN X=X+XF:R=Ø ELSE XF= の 

450 IF SCRN$(X,Y+2,2)=" " AND Ү<21 AND 
SH=2 THEN YF=1』Y=Y+1』YFF=-1 ELSE IF YFF 

AND SCRN$(X,Y*2,2) <>" " THEN MAN$=J1$:Y 
FF-Q:YF-0:GOTO 5@@ 

460 IF YFF AND Y=21 THEN YFF=Q:MAN$=J1$%$: 
GOTO 500 

470 IF MAN$=J1% 

の 9 - 
480 IF BF--1 THEN MAN$= し ま (((TC-1) MOD 4) 
*XFF*XFF) ELSE IF BF=2 THEN MQN ま =R ま (((TC 
ー1 ) MOD 4)*XFF) 

490 IF JF THEN MAN$=J1% ELSE IF YF=1 THE 
N MAàN$-J2$:R--1 ELSE IF R THEN MAN$-M$ 
500 BF1=(SCRN を も (X+BF , Y) +SCRN ま (X+BF 。Y+ 1 ) =" 

"3 

510 OUT &H1C の の 。 XHOD+J: Т2= (INP (%H1B00) =19 
1) 

520 IF (T2 OR STRIG(J)) AND TR AND ВЕ (I1 
)=1 AND BF1 AND BL>@ AND YF=Ø AND ВЕ: >0 
THEN BF (I1)=3: 11=I1+1:SH=Q: TR-Q: BL-BL -1: 
GOSUB"BULIT":IF 11>4 THEN 11= の 

550 IF STRIG(J)= の OR T2 THEN TR--1 

540 *"BL" 

550 IF SH-2 THEN LOCATE X-XF,Y-YF:FRINT 

C$; :LOCATE X,Y: PRINTMAN$; : 50-56: S01=7: SO 
2-8:802-10:G0TO 580 

560 S0-0:90127*8H: S02-6*8H: 803216: SOUND 
6,31: SOUND 0,0: SOUND 1,7: SOUND 2,0: SOUND 
3,7:80UND 4,0:S0UND 5,7: SOUND 8,16 

570 IF SH= の THEN SOUND 8,15: SOUND 9,15:5 

OUND 19,15: SOUND Q,30: SOUND 1,160: SOUND 


THEN MAN$-M$:BF-0:GOTO S 


6,1: SOUND 2,29: SOUND 3,160: SOUND 4, 28:50. 


UND 5,160 

580 FOR I の = の TO 4 

590 ON BF(I の ) GOTO 760,710 

6 の の IF BF=2 THEN ВХ (I@)=X+1:MB(IQ@)=1:GDOT 
О 63:30 

610 IF BF--1 THEN BE birk IL ELS 
Е BF(IQO) =1: БОТО 770 

620 IF BF= の THEN BF (I0) =1: GOTO 770 

630 ВҮ(10) =Үү+1:ІҒ SH=1 THEN GOTO 660 

640 IF MB(IQ)--1 AND INSTR (SCRN$ (X*2,Y)* 
SCRN$(X*2,Y*1) ,"xX")-Q THEN X-X-MB(IQ) 


«6S0 IF MEB(I の )=1 AND INSTR(SCRN$(X-1,Y)+S 


CRN$(X-1,Y*1),"ZX")-Q0 THEN X-X-MB(IQ) 

660 LOCATE X,Y 

670 IF МЕ(10) =1 THEN MAN$-RS$(SH) ELSE I 
F MB(IQO)--1 THEN MAN$ZCHR$(29)-*L8$(SH) 
680 FRINT MAN$; 

690.SH-SH*1:IF SH>1 THEN BX (10) -BX(IQ) «M 
B (I10) +МВ (10) : BF (10) 22: B$ (10) -SCRN$ (BX (10 
) 。EY(I の ) ) ELSE GOTO 770 
700 LOCATE X*BF,Y:PRINT" 
(29); " Ы. 

710 LOCATE ВХ (10) ,ВҮ(10):РКІМТ " 
720 ВХ (10) =EX (10) +МВ (10) 

730 EB$ (10) =SCRN$ (ВХ (10) ,BY (10) ) :1 ОСАТЕ B 
Х(10) ,BY(IQ) 

740 IF B$(IQ@)="" ОК B$(IQ)-"31" ОК B$(IQ 
)=" ヨ " OR B$(IQ)-"5" OR B$(IQ)-"7" OR B$( 
IQ) -"" THEN BF(IQ)-1:GOTO 770 

750 IF MB(IQ)--1 THEN PRINTBL$(TC MOD 2) 
; ELSE PRINTBR$(TC MOD 2);:GOTO 770 


"s CHR$ (31) ; CHR$ 


_ pio 


リスト 2 ROBOTS TOWER PCG 定 義 リ スト 


2290 DEFCHR$( 243 ) =НЕХСНКФ ( "00204000004 


— 004040000000000: の の 6 の 4 の の の の の 4 の の 9 の の" 


2380 DEFCHR$( 244 )-HEXCHR$ ("の の の 4 の の の の の 4 の 
の の の の の の の の 4 の の の の の の の の の の 8 の の の の 4 の の の の 9 の 94 の の の の の の 9" 


) i 

2310 DEFCHR$( 245 )=HEXCHR$( "の の の の の の の の 9 の の 
の 2 の の の の 1 の の の の の の の の の の の の の の の の の の の の の の 9 の の の 2 の の の " 
) 


2320 DEFCHR$( 246 ) =НЕХСНКФ ("000000210040 
40404 の の の の の の の の 4 の 4 の 4 の 4 の の の の の の 1 の の 9 の 49494 の 4" 
) 

2550 DEFCHR$( 247 )-HEXCHR$("COBOO0000008 
の の の の の 4 の の の の の の の の の BOO の の の COB の の の の の の の 8 の の の の の " 


) 
2340 DEFCHR$( 248 ) =НЕХСНКФ ("02000000040 
の の の の の の の の の の の の の の 4 の の の の の の の 2 の の の の の の の 4 の の の の の の " 
) 
2350 DEFCHR$( 249 )=HEXCHR ま ("の の の の の の の の の の の 
の の の 4 の の の の の の の の の の の の の の の 4 の の の の の の の の の の 9 の 9 の の の 4 の " 
) 
2360 DEFCHR$( 250 )= ニ HEXCHR$('' の の の の の の の の の 8 の 
20202 の の の の の の の の の 8 の の の の の の の の の 9 の の の の の の B の 2 の 2 の 2" 


) 

2370 DEFCHR$( 251 )=HEXCHR$ (STRINGS (3, 
ED7ABDSABDSEB7E")) 
2380 ' IPL (277 GAME N” スタ ー ト 77и". 
07 BOOT Э END トシ 、 90-110 Э 7272"a. 
2390 ' Monitor カラ MAIN Э Fh"? 777?"'4) 
2400 BOOT 


"nj 


240 


WAIT 3 

NEXT 

FOR I@=0 TO 4 

ON EF (10) GOTO 800,870,1140 

WAIT S:IF PC>10+D THEN РІ=0: GOTO"NEX 


IF РІ<>0 AND SCRN$(PI*«PI,O0,20-" " T 
ЕХ (10) =PI+PI:EY (10) =0:ЕҒ (10) =2 ELSE 
"NEXT" 
820 EB=RND( 1 の の ) : P ヒ =PC+ 1 
830 IF EB MOD (8-C)-0 THEN EB(IQ) =3: GOTO 
"NEXT" 
840 IF EB MOD 3-0 THEN EB(IQ) =2: GOTO 
XT" 
850 
860 
870 
-IØ 
880 
890 
5)-1 
900 IF TCO MOD さ = の THEN IF (TCO MOD 180) > 
7 THEN WX2sSGN(EX(IQ)-X) ELSE WX=SGN(WP (I 
Q)-EX(IQ)) ELSE MX= の 
910 IF EY(IQ) 422 THEN IF INSTR(SCRNS$ (ЕХ ( 
IQ) ,EY(IO) +2,2) ,"Z") =0 THEN E$-UR$:WY-11 
MX=g ELSE MY=9 ELSE EF(I@)=1:GOTO"NEXT" | 
920 GOTO 19080 
930 E$-N$(TCO MOD 4) 


"NE 


ERB (IQ) 21: WP (10) =RND (32) 180TO"NEXT" 
* MOVING OF ROBOTS 
LOCATE EX(IQ) ,EY(IQ) sPRINTC$; : TCO-TC 


ON EB(IO) GOTO 890,930,970 
ES$-UR$(TCO MOD 2) : МР (I10) WP(IQ) *RND( 


940 IF (TCO MOD 2)= の THEN IF (TCO MOD 10 | 


) く D THEN WXzSGN(X-EX(IQ)) ELSE WX= (RND (3 
)-1) *SGN(OX-EX (10) ) 

950 IF ЕҮ(10) 422 THEN IF INSTR(SCRNS$ (ЕХ ( 
IQ) ,EYCIQO) *2,2) ,"Z")2Q0 THEN E$-N$:WY-71:W 

X20 ELSE MY= の ELSE EF (10) 21:GOTO"NEXT" 

960 GOTO 1080 

970 E$-US(CTCO MOD 4) 

980 IF M(IO) >D+ さ THEN GOTO 990 ELSE GOTO 
1010 

990 W(IØ)=Ø:WX(I@Ø@)=SGN(X-EX(IØ)):WY(I@)= 

SGN (Ү-ЕҮ (10) ) s WR=RND (D+4) 

1000 IF WR<2 THEN WX(IQ@)=Q:WY(IQ@)=Q:W(IQ 
) = ニー2 ELSE IF WR<Š THEN WET TO ND сз) = 1:W 

Y(I@)=RND(Z)-1:W(IQ@)=Q@ 

1010 W(IQ@)=W(IQ)+1 

1020 IF EY(IQ)+WY(IQ@)>21 OR EY (I10) +WY (IQ 
)<1 ОК EX(IØ)+WX(IØ)<Ø@ OR EX(IQ@)+WX(IQ)>)> 

31 THEN EF (I@)=1:GOTO"NEXT " 

1030 IF INSTR(SCRN$(EX(IQ@)+WX(IQ@),EY(IQ) 
, 2) *SCRN$ (EX (10) +WX (IØ) ,EY (I10) +1,2) ,"") 

>Ø THEN ИХ (10) = の 

1040 IF INSTR (SCRN$ (ЕХ (10) ,EY (10) *WY (IQ) 
, 2) *SCRN$ (EX (10) ,ЕҮ (10) +1+0Ү (10) 。2) , " x") 
> の THEN MY(I の )=9 

1050 IF INSTR(SCRN$ (ЕХ (10) *WXC(IQ)? ,ЕҮ (I0) 

*WY (IQ) ,2) *SCRN$ (ЕХ (10) +МХ (10) ,ЕҮ‹І0) +1+ 

WY (IØ) 。2) ,"X")5»Q0 THEN WX(IQ) =0: WY (10) = の 

18060 IF EY(I の ) >21 THEN EF (10) =1: GOTO"NEX 

yw 

1070 EX(IQ@)=EX(I@)+WX(IQ@);EY(IQ)=EY(IQ)+ 

MY(1 の ) 

1080 ЕХ (10) =ЕХ (10) +WX:EY (10) =ЕҮ (10) +MY 

1050 ЕВФ (10) =SCRN$ (ЕХ (10) ,EY (10) ,2) 3EB1$ 
(IQ) =5СКМ$ (ЕХ (10) ,ЕҮ(10) +1,2) . 

1100 IF ІМЅТК (ЕВ% (10) +ЕВ1$Ф (10), "ж") > の TH 

EN ЕХ (10) =ЕХ (10) -WX:EY(IQ) =ЕҮ (10) 一 MY 

1110 LOCATE ЕХ (10) ,EY (10) : PRINTE$; :ИХ=0: 


pio 


| リリ スト 3 ROBOTS TOWER メイ ン 


MY= の 
1120 GOSUB"HANTEI": GOTO"NEXT" 
1130 'BOMB OF ENEMIES 
1140 SOUND 6,35-EC(IQ) *5: 50-0: S01- (EC (IA 
) +1) #3: S022 (EC (10) +1) #4: 503-15 
1150 LOCATE ЕХ (10) ,EY (10) : PRINTC$; 
1160 EC (10) =EC (10) +1 
1170 IF EC(I@)<8 THEN LOCATE ЕХ (10) ,EY (1 
の ) : РКІМТВОФ (ЕС (I10)); ELSE EF (10) =1: SD=56 
: S01=7: 802-8: S03=10 
1180 WAIT 10 
1190 *"NEXT" 
1200 NEXT 
1210 IF DF=2 THEN GOTO 1230  / 
1220 IF RND(1 の ) く FL/1 の の +1 THEN RO-RND (5): 
IF EF(R の )=2 THEN DX=EX (RØ) : DY=EY (RO) : DF= 
2: D ま =SCRN ま (DX , DY) : MX=SGN(XーDX) ELSE GOTO 
"MAIN" ELSE GOTO"MAIN" 
12 さ の LOCATE DX,DY:PRINT" 
DF=1 : GOTO"MAIN" 
1240 DX=DX+MX : D$-SCRN$ (DX, DY) 
1250 IF D$-"Zz" OR 0%="21" OR D$="3" OR D$ 
="5" OR 0%=")" DR D ま =" ル " THEN DF=1: GOTO" 
MAIN" 
1260 LOCATE DX,DY:PRINT"3";:IF F--1 THEN 
GOTO 1290 
1270 IF Y=DY AND (X=DX OR X+1=DX) THEN F 
z—1:YC--1 
1280 IF Y*1-DY AND (X=DX OR X+1=DX) THEN 
Fz-1:YC--1 
1290 GOTO"MAIN" 
1300 *"HANTEI" 
1310 IF F-Q AND Y-EY(IO) AND (Х=ЕХ (10) O 
R X*1-EX(IO) OR X-1-EX(IOD)) THEN F--1:YC 
z-1:EF(IO)-21:WAIT 50Q0:PLAY"V15OACCCDDDEE 
EDDDCCC":LOCATE ЕХ (10) ,EY(IQ) : PRINTC$; 
1320 IF Y-EY(IO)-1 AND Х=ЕХ (10) THEN JF= 
ー1 s YF=ー-1 : EF (10) =5: GOTO 1380 
1330 FOR RO-O TO 4 
1340 HA=(BF (R@)=2 AND (BY (RO) =EY (10) AND 
(BX (RO) =EX (10) ОК BX (RO) -EX(IQ) +1) )) 
1350 HA1= (BF (RO) =2 AND (BY (RO) =EY (10) +1 
AND (BX (RO) =ЕХ (10) OR BX (RO) =ЕХ (10) +1) ) ) 
1360 HA=HA OR HA1:IF HA THEN EF (10) =3 
1370 NEXT 
1380 IF EF(IQ)=3 THEN EC(IQ)--1:S8-8*ABS( 
EB(I の ) *10-ABS (X-EX (1 の ) ) ) : GOSUB"SCORE": EC 
=EC+1: IF ЕС>19 THEN E ビ = の 』 し = し +1 : GOSUB"LEF 
T"sPLAY"V1504CCCDDDEEEFFFGBGG" 
1390 RETURN 
1400 *"JUMP" 
1410 LOCATE X,Y:PRINTC$; : Ү=Ү-1:К=0: JC=JC 
+1』 IF Y<B THEN YzY*1:FL-FL*1:GOSUB"FL":G 
OSUB"SCROOL " 
1420 IF SCRN$(@,Y)=" " THEN GOTO"DONE" 
1430 STz(STICK(J)z7 OR STICK(J)=8 OR STI 
CK (J ) = ) 
1440 IF БСКМФ (Х,Ү,2) < >" " OR ST=Q THEN 
YzY-1:JF-20:GOSUB "ХЕ": ІЕ INSTR (ЅСКМФ (XX 
F,Y,2) *SCRN$ (X*XF 。Y+1 。2) ,"") = の THEN X=X 
*XF ELSE XF= の 
MAN$-J2$:1F JF-Q THEN MAN$-J1$ 
GOTO" BL" 
*"XF" 
IF STICE(J)=4 OR STICK(J)=7 THEN XF 


"s:IF MX= の THEN 


IF STICE(J)=6 OR STICK(J)29 THEN XF 


RETURN 
*"DIE" 
FLAY":V"«-STR$(1IS-YC*3) *"CRCR" 
SOUND 7,80: SOUND 8,10: SOUND 9,8S03:8 
10,505 
YC=YC+1: IF ҮС>4 THEN GOTO"END 1" 
МАМФ=р% (ҮС) : БОТО" BL" 
*"END 1" 
L-L-1: GOSUB"LEFT" 
IF LO THEN GOTO"GAME OVER" 
WAIT 1000 
FOR I=@ TO 4 
IF ЕҒ (1) =2 THEN LOCATE EX(I),EY(I): 
FRINTC$;:EF(I)-71 
1620 NEXT ^ 
1630 IF DF=2 THEN LOCATE DX,DYsPRINT" "; 
: DF=1 
1640 FOR 1=@ TO 4 
1650 IF BF(I)=2 THEN LOCATE BX(I),BY(I): 
PRINT": "s:BF(I)0-1 
1660 NEXT 
1670 F-0:GOTO"MAIN" 
1580 *"GAME OVER" 
1690 CONSOLE:PRW O:CLS: SOUND 7,63:LOCATE 
14,10: PRINT"GAME OVER"; 
1700 IF HI<S THEN HI-S: H$-RIGHTS$ ("の の の の の " 
*STR$ (HI) , S5) «"Q" 
1710 LOCATE 9, 121 FRINT' YOUR SCORE IS1" 
$; 
1720 LOCATE 9,14:PRINT"HIGH SCORE IS:";H 
$; 
1730 COLOR (TC MOD 7)+1sLOCATE 9,16:PRIN 
T"HIT TRIGGER OR SPACE"; : TC=TC+1 
1740 IF STRIG( の ) OR STRIG(1) OR STRIG(2) 
THEN COLOR 7:GOTO"TITLE" 
1750 GOTO 1730 
1760 *"COLD" 
1770 МАМ 
1780 C$=CHR$ (31) +СНКФ (29) +СНКФ (29) : C1$=C 
$+CHR$ (29): ' CURSOR KEY AFTER СТК + "Е" 
1790 M$-"L[£€"«C$4"]^":J1$-" ""«C$*"ab":J2 


ンー ス ・ リ スト 


$z'cd " *C$-"of "u 
1800 R$(Q)-"gh"*C$-"ij":R$(1)-z"k1"*C$-*"m 
n":R$(2)2"go"*C$4"pq':iR$ (3) =R$ (1) 
1810 L$(@)="rs"+C$+"tu"sL$(1)="vw"+C$+" x 
y"sL$(2)="zs"+C$+"( "sL$(Z)=L$(1) 
1820 RS$(@)="g)"“"+Cl1$+"K_ ":RS$(1)="——" 
+С1%+' ш" 
1830 LS$(@)="| | 5"+С1%+"11Ш":15®%(1)="ЮШ/" 
+C1%+"— 4" 
1840 D$ (0) 
"DEA s". "D$" ," 
1850 0% (5) ="“"+СНКФ ( &НА@ )4C$-". 
J=" N" ACHRE: НАЙ )*C$«",." 
1860 ' BEAM 
1870 BR$(Q)z-"-":BR$(1)z"2" 
1880 BL$(0)-"2":BL$(10-z"4" 
1890 ' ROBOTS 
1900 N$=" オ カリ "+ ビ ます "キワ" 
1910 N$(Q)-"or"4*C$-"**":N$(1)z"ana"«*C$-*"» 
"+СНКФ ( &HBQO ) 
1920 N$(2)z"7T4"*C$*-"O2I":N$(CS)zN$(CI) 
1930 U$(Q)-"723"«C$-"92":US$(1)-"Z2t"-C$4"7 
59" : U$ (2) zug りす じす リ テ ト " 
1940 U$(i2)-2"T-"«C$-"zxzx":UR$e"/7)nh"-C$-"c2" 
1950 ШКФ (0) =" ^ж" +СФ+" 95": ШКФ (1) = "ду "+СФ+ 
" モヤ " 
1960 BOME PATTERN 
1970 BO$ (0) ="07"+C$+'" 2" s BO$ (1) ="° @"+C$+ 
"сё": ВОФ (2) =" Ф" +С$%+" 24" 
1980 BO$ (5) ="а<"+С%+"* a": ВО$ (4) =" =" +СФ+ 
" Pm Wi : BO$ (5) =" С" +C$+ "Ü" а" 

BD$ (6) =" $" +C$ +" XA": BOS (7) "B" +C $+ 


r"sD$(4 


CHARACTER CLR & HISCORE CLR 
"*«C$-"  ":HS=0:H$=" 000000" 


20 "rW$(1)=" 
Exo ":W$(Z)=" 
W$(4)=" xx ":0%(5)=" FE ux" 
МФ (5) =" ЖЖЖЖ Н": (7) =" 生年 生 生生" 
W$ (8) =" £ "W$ (9) =" Ax ax" 
W$(10)z'"Xxxk GE "iW$(ll)-"XE PEER" 
W$ (12) =" 年 生年 年 "WS (13) =" EEE FR" 
0%(14)="ЖЖ ЖЖЖЖ ":04%(15)="ЖЖЖЖЖЖЖХ" 
° MUSIC DATA 
FOR I=@ TO 20:READ MI$:READ MIl$:M$ 
М1%:М1% (1) =МІ1%: МЕХТ 
"Ü" CEG " А "u CEG "Ç" 
" DFA " @ RRR " 
" EGB " А "Ç" CEG " 
" CEG " 9 " CEG " 
" DFA "K" 9 " RRR " 
" EGB " ` " CEG " 
" CGE " 9 " RRR " 
"Ç" DFA "J А " RRR " 
" EGB " А " RRR " 
" CEG " 9 " RRR " 
" DFA " $ "Ü" DFA "K 
"Ç" *CEG- " з " DFA " 
" *CEG- " ` " RRR " 
"u *CEG- " А " DFA " 
" RRR "u А " DFA "K" 
" DEC " А " ККЕ " 
" RRR " А " DFA "Ü" 
DATA "CCC","DFA" 
DATA "DDD" 。"RRR" 
DATA "EEE","END" 
DATA "END","END" 
*"TITLE" 
FALET 1,0:LINE(0,0)-(255,15) 。PSET 。 1 


хх" 
X^ 


LINE(0,184)— 
Q0: COLOR 7,0 
23570 CGEN OQ: COLOR 7:GOSUB"FLASH":CGEN 1: 
COLOR 7,0,0,0. 
2380 PLAY"V16L104:V16L105: V16L 106": SOUND 
11,0: SOUND 12,2: SOUND 13,0 
2590 LOCATE 5,4:РК1МТ"ЖЖЖЖЖХЖЖХЖЖХХЖЖХ% FFF 
ZE"S:COLOR 2:PRINT"ZEXEEEE"; : COLOR. 7: PRINT 
" 年 年 生年 年 " 
2400 LOCATE S,S5S:PRINT"# К FE O FE B жж O 
年 "ssCULOR 2:PRINT" X "ssCOLOR 7:PRINT 
"“ х に 1 " 
2410 LOCATE 5,6: РКІМТ" res レン ン ン ン ж 
年 "js COLOR 2:FRINT" ж "jsCOLOR 7:PRINT 
" pv» vx x 
2420 LOCATE 5,7: РКІМТ" 245 ж 
¥"; : COLOR 2: РКІМТ" zx 
" х" 
2430 LOCATE 5,8:PRINT'Z =s FFF 
EE"; : COLOR 2:PRINT" Ж — ";:COLOR 7:PRINT 
レン ン ン ン 2 
2440 COLOR 2:LOCATE 5,10: PRINT"ZEEE" ; :C 
OLOR 7:PRINT " 生生 生生 生生 
2450 COLOR 2:LOCATE 5,11:PRINT" 2: 
OLOR 7:PRINT" O FEW FEE XR X 
2460 COLOR 2:LOCATE 5,12:PRINT" 年 
OLOR 7:PRINT"X “£ 
2470 COLOR 2:LOCATE 5,153: РКІМТ" 
OLOR 7:PRINT"Zx 生生 Ж 年生 ax" 
2480 COLOR 2:LOCATE 5,14:PRINT" 2: 
OLOR 7:PRINT" EFEFEF キキ キキ キキ キキ FFF XU 
2490 LOCATE 15,17:РКІМТ"ВҮ S.MORIYAMA":D 
F = の : I=@ 
2500 J-23:TIME-0:REPEAT 
2510 GOSUB"KEY" 
2520 LOCATE 10,21:COLOR (I MOD 7) +1:РКІМ 
T"HIT SPACE OR TRIGGER":PLAY M$(I)+":"+M 
$(I)*":"-M$CI):WAIT 60 


(256,200) ,PSET,1,BF:PRW 


ax x 
"$ s COLOR 7: PRINT 


="-ч"+С®+" "DS (1) ="--"+С®+" t 


qg | 


I=I+1:IF M$(I)="END" 
2540 UNTIL J<3 OR TIME>15 

2550 IF J«3 THEN GOTO "HOT" 

2560 IF DF-1 THEN GOTO"DEMO 2" 

' DEMO 1 

2580 CGEN の iCOLOR 7:GOSUB"FLASH"1CGEN 1 
2590 LOCATE 14,2:PRINT"ROBOTS TOWER" 
2500 LOCATE 18,4:PRINT"BALLS" . 
2610 LOCATE 11,6:PRINT"3........" 
21PRINT"DANGEROUS":COLOR 7 

2620 LOCATE 11,8:PRINT"9........ "; COLOR 
Z:PRINT"DECREASE":LOCATE 24,9:PRINT"POI 

NT " 

2630 COLOR 7 

2640 LOCATE 11,12:PRINT"5........BONUS": 
LOCATE 24,13:PRINT"POINT" 

2650 LOCATE 11,15:PRINT"1........ INCREAS 

E": LOCATE 223,16:PRINT"BULITS" 
2660 LOCATE 11,18:РЕ1МТ"%........ 
IT":DF-1:GOTO 2500 

*"DEMO 2" 

2680 CGEN 9:COLOR 7:GOSUB"FLASH":CGEN 1 

2690 LOCATE 14,2:PRINT"ROBOTS TOWER" 
2700 LOCATE 17,4:PRINT"ENEMIES" 

2710 LOCATE 12,7:PRINT".......... АКАІМО" 

LOCATE 12,11:PRINT"........SHIROINO: 


THEN I-Q 


ss COLOR 


A BUL 


LOCATE 12,15:PRINT".......UFOMODOKI 


LOCATE 


9,17:РЕ1МТ" 


LOCATE 
PROTECT" 
2760 LOCATE 15,20:PRINT"THE ";:COLOR 5:Р 
RINT"EARTH. ":COLOR 7 

2770 LOCATE 15,25:РКІМТ "........ 
2780 11=0:1=0:ТІМЕ=0: REPEAT 

2790 GOSUB"KEY" 

2800 LOCATE 10,6:PRINTN$(I1 MOD 4) 
2810 LOCATE 10,10:PRINTUR$(I1 MOD 2) 
2820 LOCATE 10,14:PRINTU$(I1 MOD 4) 

2830 LOCATE 11,22:1F I1 MOD 2-0 THEN PRI 
NTM$ ELSE PRINTJ2$ 

2840 11=11+1:1Е 11>12@@@ THEN 11=0 

2850 PLAY М1% (1) *":"-M1$(1) *":" M1$ (I) :I 
2I*1:WAIT 15:IF M1$(I)-"END" THEN 1= の 
2860 UNTIL J< さ OR TIME>15 

2870 IF J< さ THEN GOTO "HOT" 

DEMO š 

2890 CGEN 0:GOSUB"FLASH":CGEN 1 

2900 LOCATE 14,2:PRINT"ROBOTS TOWER" 
2910 LOCATE 14,4:PRINT"KEY FUNCTION" 
2920 LOCATE 18,7:PRINT"JUMP":LOCATE 13,9 
:РКІМТ" (7) (8)  (9)" 

2930 LOCATE 15,12:PRINT"(4) 
2940 LOCATE 18,14:PRINT"(2)" 
2950 LOCATE 14,16:PRINT"MAKE A HOLE" 
2960 LOCATE 16,18:PRINT" (SPACE) " 

2970 LOCATE 15,20:PRINT"GUN SHOOT" 

2980 LOCATE 14,22:PRINT"OR JOYSTICK" 
2990 TIME-Q:REPEAT 

3000 GOSUB"KEY" 

3010 Р_АҮМ1% (1) +": "+M1 $ (I) +": "+M1% (1) : WA 
IT S@:I=I+1:IF М1%(1)="ЕМО" THEN I-Q 
3020 LOCATE 19,11:PRINT L$(I MOD 4) 

3030 UNTIL J«3 OR ТІМЕ>15 
IF J<3 THEN GOTO "HOT" 


7,19: РКІМТ"ТНЕ MAN WHO MUST 


YOU! "; 


(6)" 


ELSE GOTO"TI 


*"HOT" 
3060 S-0:5$-"000000":BL-50:FL-0:L-2:A4D-& 

HD の の の: CLS: COLOR 7 

3070 FOR 1=1 TO 4:EF(I)=1:NEXT 

3080 CGEN Q:GOSUB"FLASH":CGEN 1:PRM 254 
5090 FOR IØ=Ø TO 22:GOSUB"SCROOL": NEXT: L 

DCATE 33,2:PRINT"1 ヨ ラリ ルレ " 

3100 LOCATE 33,3:PRINT"ROBO";:COLOR 2:PR 
INT"T";:COLOR 7:PRINT"S" 

3110 LOCATE 33,4:COLOR 2:PRINT"T"; : COLOR 
71PRINT"OWER ! " 

3120 LOCATE 33,5:PRINT"L&/531" 

3130 LOCATE 33,7:PRINT"SCORE":LOCATE 33, 
9: PRINT "の の の 9 の の " 

514@ COLOR S:LOCATE 33,11:PRINT"HIGH":LO 

CATE 33,13:PRINTH$ 

3150 COLOR 3:LOCATE 33, 15:PRINT"MAN: O3": 

LOCATE 33,17:COLOR 4:PRINT"@00000" 

3160 COLOR &:LOCATE 33,19:PRINT"BULITS": 

LOCATE ささ 。21:PRINT" の の の の 5 の " 

3170 COLOR 7:LOCATE 34,23:PRINT JS$;:GOT 

O"INIT" 

*"SCROOL " 

5190 CONSOLE 0,25,0,32 

W1-VAL ("&H"«LEFT$ (HEX$ (PEEK (AD) ) , 1) 


W2zVAL ("&H" -*RIGHT$ (HEX$ (PEEK (AD) ) ,1 

WSzVAL ("&H"*LEFT$ (HEX$ (PEEK (AD*1)2) , 

WA42VAL ("&H" *RIGHT$ (HEX$ (PEEK (AD+1 ) ) 

C=VAL (" kH" *LEFT$ (HEX$ (PEEK (AD*2) ) ,1 
PI=VAL ("&H" *RIGHT$ (HEX $ (PEEK (AD*2) ) 

ADzAD*3:PC-0 

3270 COLOR C:LOCATE の 。 の :PRINT CHR$( &HOF 
DWS (И1) ; ИФ (W2) 5 WS (WS) ИФ (W4) ; 


3280 COLOR 7:BBX=RND (52) : IF SCRN$ (BBX ,@) 
<>" " OR SCRN$(BBX,1)0«»"X" THEN GOTO 333 


な っ な を う で まね な / 


M. 


P 7 月 号 で 私 が 叫ん で か ら も う 3 箇月 が 過ぎ て し まっ た . 今 だ に 「 私 も PC-6601User だ / 
—. 改め る まして, 私 66 の User の 深夜 童話 館 で ご ざい ます る . 
アー 


いや =~, 10 月 号 


に みな みり ょ うこ きん の イラ スト が な いと 思っ た だら 。 
Nakkey き ん も が む ば り ま し ょ ー ね . と ころ で SOLVALOU 氏 , 自分 も マイ ナー だ と 思う の は 間 培 
いで すま よる br ys ny E ALIIS us ubus ns 


」 と 叫 け ぶ 文 章 を 見 た こと が な いな 一 . 寂し いな 


な ん と 本 に 


pio 


RETURN 
5550 *"BULIT" 

3560 B$-RIGHT$ ("GOG00900Q" *STR$ (BL) ,6) 

COLOR 6:LOCATE 33,21:PRINTB$; : COLOR 


a ° 

3290 BBF=RND(5):LOCATE BBX。 の 
$300 IF BBF= の THEN РКІМТ"1"; ELSE IF BBF 
=1 THEN PRINT"3"; 

$310 IF BBF=2 THEN РКІМТ"5"; ELSE IF BBF 
=3 THEN PRINT"U"; 

3320 IF BBF=4 THEN РКІМТ "№"; 

3330 FOR I-0 TO 4 

EY(I)=EY(I)+1:zIF EY(1I) >22 THEN EF (I 


RETURN 
5590 *"FL" 
5600 FL$-RIGHT$("000009"«*STR$ (CFL) ,6) 
COLOR 4:1 ОСАТЕ 33,17:PRINTFL$; : COLO 


RETURN 
5650 *"LEFT" 

3640 L$-RIGHT$ ("OO"*STR$(L),2) 

COLOR 5:1 ОСАТЕ 37,15:PRINTL$; : COLOR 


NEXT:D-C*15/10 
3360 DY-DY*1:IF DY>22 THEN DF=1 

3370 FOR 1=@ TO 4 

BY(I)=BY(I)+1sIF BY(1) >22 THEN BF (I 


NEXT 
3400 CONSOLE: RETURN 

3410 *"FLASH" - 

3420 CLS:LOCATE 0,13:PRINT STRING$(40Q,"— 
")sWAIT 15 

5450 LOCATE @,15:РКІМТ STRING$(40,"W"):W 
AIT 15 

3440 LOCATE 0,12:PRINT STRINGS (120," B"): 
WAIT 15:PALET 1,7:COLOR ,7:WAIT 30 

5450 PALET 1,0:COLOR ,0:CLS: RETURN 

3460 *"KEY" 

3470 IF STRIG(Q) THEN J20:JS$-"KEY ." 
34898 IF STRIG(1) THEN Jz1:JS$-"JOY 1" 
3490 IF STRIG(2) THEN J-2:JS$-"JOY 2" 
5500 RETURN 

3510 *"SCORE" 

3520 S$-RIGHT$("O0000"-*STR$(S),5)*"Q" 
3530 LOCATE 33,9:PRINTS$; 


RETURN 
2570 *"DONE" 

3680 CONSOLE: LOCATE 10,5:PRINT"YOU DID I 
T !!'";:1LOCATE X,Y:PRINTMS$; 

3690 FOR I=1 TO 5:PLAY"V15OA4CDECDECDEDEF 
DEFDEF ": NEXT 

2700 FOR I=@ TO 24:FOR TI の = の TO 31 

3710 IF SCRN$(IO,I)-"4" THEN LOCATE IQ,I 
:PRINT"U"; 

3720 NEXT:NEXT:WAIT 2000: LOCATE X,Y:PRIN 
TJ1$;:WAIT 100:LOCATE X,Y:PRINTJ2$; 

2730 LOCATE 4,5:PRINT"LET'S TRY NEXT TOW 
ER ''";:WAIT 2000 

2740 AD=AD+3: IF PEEK(AD) く >&HFF AND AD<&H 
EB98 THEN GOTO 3740 

3750 IF AD-»&HEB98 THEN AD-&HDOOQ 

3760 LOCATE X,Y:PRINTC$;:FOR 1I の = の TO 22: 
GOSUB"SCROOL " : NEXT 


リス ト 3 ROBOTS TOWER メイ ン ソ ー ス ・ リ スト 


3770 GOTO"INIT" 

3780 *"AREA" 

3790 COLOR ,C:iPALET 1,С: А%="": 500М 7,653 
sFOR I=@ TO 10:PLAY"V1501CO2CO3SCOA4COSCO6 
CO7COBC" : NEXT 

5800 REPEAT 

3810 А1%=ІМКЕҮФ (0): ІҒ А1%<>"" THEN PLAY" 
V1504CDE":WAIT 100 

3820 IF A1$«»5CHR$(13) THEN A$=A$+A1$ 
S830 UNTIL А1%=СНКФ (15) 

5840 IF A$-"KEY" THEN WAIT 1 の 9 の 9』PLAY"V15 
OSCCCDDDEEEFFFCCC" ELSE GOTO 39900 
5850 A1$-INKEYS$(Q):IF А1%<>"" THEN PLAY" 
V15O4EFGEFGEFG":WAIT 100 ELSE GOTO 3850 
3860 ADi1-VAL(A1$):IF AD1<1 OR Арі>7 THEN 


GOTO 3900 


3870 AD2=QD+2 

3880 IF LEFT$(HEX$(PEEK (AD2)) ,1) =41% THE 
N AD=AD2-2: LOCATE 2,0:PRINTSPACES$ (28) ; 1G 
OTO 3900 | 

3890 AD2=AD2+ さ 』 IF ADZX&HEB98 THEN GOTO 3 
вве 

5900 COLOR ,G:PALET 1,0:G60TO 360 

3910 «"STOP" 

3920 SOUND 7,63 

3930 IF ІМКЕҮФ (0) =CHR$(1 さ ) THEN GOTO 360 
3940 GOTO 3930 


X X x x x COMPAC BEST 10 x * x x x X 


今月 も やはり ザ ・ コ ッ ク ピ ッ ト が 強く , 
新た に 移植 され た XI/MZ-2200 版 , MZ- 1500 
版 な ど を 入れ て 4 本 が ベス ト 1I0 入 り し て い 
ます . 今後 FM-7 版 が 発売 され れ ば , さら 
に 強力 な 商品 と な る で し ょ う . 

5, | 問 じ よう に フラ イド シミュ レー 
タ で ある FM- 7 の FI5- イ ー グ ル も な か 
な か の 健闘 ぶり で, 今月 は 2 位 . = blk, 
3*6 3 9 ピ ビ ツ か の ラン ディ シン ジュ シン 


レー タ と いう も の . ザ ・ コ ッ ク ピ ッ ト 相 手 
に どん な ファ イト (戦闘 ) を 見 せる か 今後 
注目 し た い ソ フト です . 

今月 の も う 一 つの 注目 株 は 何と 言っ て も , 
走れ / ノ スカ イラ イン で す . 最近 で は 数 少な 
い PC-8000 シ リー ズ の N-BASIC モ ー ド 上 で 
動く と いう ソフ ト で す が , 4 位 と か な り の 
成績 . 道 が スム ー ズ に 曲がる , スピ ー ド 感 
満点 と いう 点 が 相当 受け て いる よう で す . 

さて ,- 来 月 で す が , 期待 で きそう な … と 


レー タ に 対し て ドッ グ ・ フ ァ イ ト ・ シ 
順位 前 月 度 の 順位 
ザ ・ コ ッ ク ピ ッ ト 
F15- イ ー グ ル 


X VMZ-2200 


いう より 期待 し た い ソ フト が あり ます . € 
れ は FM-7 の ムク と 宝島 (日 名 : MUKU&S 
KELETON), PC-880!| の ムク の 郵便 屋 さ ん 
(旧名 : 郵便 屋 さ ん ムク ) で す . どちら も 。, 
PiO 8 月 号 で 掲載 され た ゲー ム で す が , こ 
れ が バー ジョ ン ・ ア ッ プ し て 商品 化 さ れ て 
いま すず 、 : 

ラン キン グ 上 位 に 入る よう に 皆さん も 応 
援 し て くだ さい 、. 


| 価格 (メデ ィ ア ) 
Y 4,800(C) 
Y 3,500(C) 


機 種 


FM-7/NEW7 


ザ ・ コ ッ ク ピ ビット 


走れ . ノ / ス カイ ライ ン 


¥ 5.800(D) 
Y 3,800(C) 


PC-8801/mkII 


PC-8001/mkII 
PC-8801/mkII 


ウッ トイ 

ザ ・ コッ ク ピ ッ ト 
将棋 対局 V 2 

ザ ャ コック セット 
デル フィ ス 


プロ 野球 スー パー シミ ュ レ ーション 
注 ・ メ ディ ア の D は ディ スク 版 。QD は クイ ッ ク ・ デ ィ ス ク 版 , C は カセ ッ ト 版 を 示し ます . 


も う マ ル チ タ レン ト で すね . 


¥ 5: 8005) 


¥ 5.800(QD) 


¥ $: 80005) 


Y 5,800(D) 
Y 3.500(C) 
Y 3,500(C) 


FM-7/NEW7 
MZ-1500 
PC-8801/mkII 
PC-9801/E/F 
FM-7/NEW7 
FM-7/NEW7 


1 = 
: 

а 
. 


£ 
issa LARA NE ITE oan 


イラ スト 好き で す よ . 他 に も 藤島 聡 氏 と か 安部 信彦 氏 と か 間 上 ら ぼ さる ん の 絵 も いい で すね ー. 


(РіО PiO と イラ スト で ペン ネー ム を 使い 分 ける 深夜 童話 館 こ と 欧 駆 ) 


BASIC 十 マシ ン 語 


ё& SBROTHER 
$,9 


b 
“ 
h 
4 


me 


西暦 2 メメ メメ 年 , ある 優秀 な モン スタ ー 
の 兄弟 が , 地球 を 征服 し よう と た くら ん で 
いた . そし て モン スタ ー た ち は , 地球 の 重 
要 人 物 を 何人 か 人 質 に と っ て , 地下 の 基地 
に 立て こも っ た . し か も その 基地 に は , 一 
部 分 空気 が な い 場所 な ど が あり 人 間 が 入れ 
よう に な っ て いた 。、 

そこ で , 人 々 は 人 質 を 助け 出す た め の ロ 
ボッ ト “PUN” を 開発 し , モン スタ ー の 基 
地 へ 潜入 さき させ た の だ が … 


較 プ ロク ラム ・ イ ン フ ォ メ ーション 


| BASIC 
マシ ン 語 9900—88FF 


d abt. 


キャ ラク タ が 凝っ て いて ,。 な か な 
か 面白 いで すね . (O) 


ANJIR 


まず BASIC 部 (リス ト 1) を 入力 し , 
間違い が な いか よく 確認 し て か ら テ ー プ に 
デン も ます: 

Кс, AON|CR | と し て モニ タ ・ モ ー ド へ 
#0, M コ マン ド を 使っ て マシ ン 語 部 (U 
スト 2) を 入力 し , PiO'84 年 8 月 号 に 掲載 
な れ て いる チェ ッ ク ・ サ ム ・ プ ログ ラム な 
ど を 使っ て チェ ッ ク ・ サ ム の 値 を 確認 し 
間違い が な けれ ば S コ ユ コマ ンド を 使い 
FILE NAME MONSTER OBJ 
S-ADR. $ 9900 
E-ADR. $ B8FF 
J-ADR. 


t LC, ЖО BASIC 部 の 後に モー プ し て 


遊び 方 

まず , BASIC 部 を ロー ド し ます . そし 
て RUN|CR | と すれ ば , 自動 的 に マシ ン 語 
部 を ロー ド し て タイ トル が 表示 きれ ます . を 
Dik, 何 か 好 き な キ ー を 押す と ゲー ム ・ ス 
ター ト と な り , 何 も し な いで いる と 次 の デ 
モ に 移り ます . 


s 


114 


ДД) ` hier 
ge 
кено NSTER 


c —— 
&[HI- 38 ORE 


MZ-2200/2000+6G-RAMI I.I 


MONSTER BROTHERS 


モン スタ ー プ ブラ ザー ズ 


V-RAM ON 
10 進 数 出力 

クロ ッ ク 

タイ マー 

得点 計算 ・ 表 示 

V-RAM, G-RAM, 仮想 画面 アド レス 計算 
32X16 ド ッ ト PRINT 
32X16 ド ッ ト PRINT 2 
16X8 ド ッ ト PRINT 
PUN MOVE 

ノバ リ ア 

ミサ イル 発射 

ミサ イル 移動 
モン スタ ー 発 生 
モン スタ ー 移 動 

モン スタ ー ミ サイ ル 発 生 
モン スタ ー ミ サイ ル 移 動 
モン スタ ー に ミサ イル が 当たっ た か 
タカ ラ の 処理 
ボタ ン の 処理 
ボー ナス の 処理 

初期 画面 
メイ ン ・ ル ー チ ン 

第 1 初期 設定 

第 2 初期 設定 


あな だ は PUN を 操作 し て , 四隅 の ヵ 
プ セ モル の 中 に 捕われ て いる 人 質 を 救出 し て < 
だ さき さい. PUN の 操作 キー の 説明 は 図 1 に 示 
し まず 。 

yy OAE カプ "モル に は カギ が か か っ て お 
b, その カギ は モン スタ ー が 持っ て いま す . 
そこ で モン スタ ー を 殺す と カギ が 出 て くる 
OC, その カギ を 取っ て くだ さる さい. às, 
カギ を 持つ っ つて いる と き に は モン スタ ー を 殺 
し て も カギ は 出 て きま せん . つま り ,。 カギ 
は 1 回 に 1 個 し か 持て な いと いう こと で す . 

を そし て カギ を 取る と 四隅 に ある カプ セ 
ル の 内 の 1 つの 前 に ボタ ン が 出 て きま すか 
ら , その ボタ ン を 押し て くだ さい 。 する と 
そこ に 捕われ て いた だ 人 質 が 1 人 助かり ます . 
Ai, ボタ ン の 押し 方 は 図 2 を 見 て くだ さき 
b. 

以上 の よう に し て 4 人 の 人 質 を 助け れ ば 
次 の 面 に 進み ます . まだ , 人 質 を 助け る と 
が Pru оа оа и tUI..- 
の フル ー ツ を 取る と 何 点 ( 面 に よっ て 点数 
が 違う ) か 得点 が も ら え ます 。 

ST, ンス あと の 殺し 凡 で すね が に これ 
に は PUN の 持っ て いる ミサ イル を 使い ます . 
PUN は 初め 20 発 の ミサ イル を 持っ て お b, 
この ミサ イル は 何 か に ぶつ か る まで 止ま ら 
な い の で 1 発 で 数 匹 の モン スタ ー を いっ 


/ 


も う 少 し 見 直し て みて は どう で し ょ 3 う . 


2 ボタ ン の 押し 方 


Ar dad 絶好 調 
sa г Wamanqa 
х E 


LII IH 


ROUND 
1 


MISSILE 


Ы 

i 

mi H 
B; 
я 
® 
м 
"š 
š di 
E! 
"n 

H 
E 


шаш: Sos sx Sg 
i. 


BONUS 


BET) 


ん に 殺す こと が で き 。 1 発 の ミサ イル で 3 匹 
以上 の モン スタ ー を 殺す と 宝物 が 現われ ま 
T. だ だ し , г ЖЮ, Жиу, フル ー ツ は 一 
定 の 時 間 が くる と 消 を て し まい ます . ま た , 
宝物 を 取る か ボタ ン を 押す と 3 発 。 フ ルー ツ 
を 取る と 2 発 ミ サイ ル が 増え ます . 

さら に モン スタ ー も ミサ イル を 持っ て お 
b, PUN を 狙っ て 撃っ て きま す が 。, 道 に あ 
る バリ ア を 取っ て お け ば 好き な と き に バリ 
ア を 出す こと が で き , 敵 の ミサ イル を 防ぐ 
こ た が て きま す 、 


a аааз =»; 
" 


ぁ PC-8001 の 生き 残り 作戦 を 主張 し て いる 方 へ . よく PC-8001 生 き 残 0 り 方 と し て PCG を 付け , フル ドッ トカ ラー に すれ ば いい と 言っ て いる 方 が 
いま す が 。 тетик し て は いま せん か ? 


(不協和音 ) 


を し て , 20,000 点 を 越 を る と PUN が 増 
Z, 各 面 クリ ア す る ご と に か か っ だ 時 間 に よ 
っ て ボー ナス が 加算 きれ ます . 735, 画面 
の 中 に ある | | は PUN が 出現 する 所 で , こ 
ОТРИМУЮ БЕТОБ ay 
ー に な っ で し まい ます : 


r ム の 説明 


この ジロ グラ た は; BASIC+ マ シン 語 で 
構成 きれ て お り , BASIC 部 で は デモ や 各 面 


1 REM Ə———— —ч 
2 КЕМІ —— MONSTER BROTHERS 一 一 | 
3 REMI ^84 5,26 No. 5 | 
4 
5 


б REM; Y 


10 CONSOLEC40;, N, GN: TEMPO7: PRINTCHR$ (6) : 
GRAPHI1CI2CI3C: OUT9$F4, 0: OUT9$F5,7 
A=FEEK ($9900) *PEEK ( $5400) : IFA-427GO0T 


CURSOR7,10:PRINT"— MONSTER BROTHRS 


CURSOR10,12:PRINT"Waite a moment": CU 
RSOR8, 14: PRINT"Loadins MONSTER OBJ":CURS 
ОКВ, 16 

40 LIMIT$9900:LOAD"MONSTER OBJ":PRINTCH 
R$ (6) 

45 HS=10000:DIM M$(8),T$(5),8$(1) :*FORI- 
OTOA: M$ (І) =CHR$ (1) : МЕХТ: DEF KEY (5) =РОКЕФ 
952, 1667 

47 S$(0) 


z"PUSH ANE KEY TO START":S$(1)= 


48 TT$-STRINGS ( "Ш", 4) *STRINGS(CHR$(O),4 
) : GOSUB800 

50 GOSUB 600: CONSOLESO, 24: OUT9$FS. 7: РОК 
E$994E,6 

0 USR($AB64) : POKE$995A, $12: РОКЕФАДОС, 7 
:КО=1:К=0: КА=1: РОКЕФАР92, КА: POKE$AF SO, О 
FU= さ 

REM: 
USR($ABB9) 

REM--- 

GOSUBS70: USR ( $4407) 

60508350 

КЕМЕ 

USR ( $AB1 5) 

IFFEEK($0F72) -160T090 

ТЕРЕЕК С ӨАР 73) » 48810180 

REN Р 

X=PEEK ( $AF 1E) : Y-PEEK ( $AF 1F) : CURSDRX 。 
Y: USRC$9472, M$ CS) ) *QUT3$FS. 4 

95 MUSIC"-65-65-65-4D8": PU-PEEK ( $AF 1D) : 
FU=FU-1 : CURSOR37. 13: PRINTFU: РОКЕФАР72, О: 
РОКЕФАҒ 1D. PU 
"100 IFPU-OGOTOASO 


2。M ま (O) ) : QUT3$FS. 7: GOTO72 
147 REM--- 


F5SE7D7CSD7ESD7CS" 

165 БКАРНІ1СІ2СІЗС 

167 CURSORO, 3: PRINT '"— —— — 
HERS : ": CURSOR9 10: PRINTRO; 

170 ҒОКІ=1Т07: РКІМТМІр% ("х2 フリ アー" ュ エッ 1); 
: MUSIC" *C1": NEXT: OUTD)$F5。5 

175 СОК50К9, 12: РКІМТ" г– BONUS ~" 

180 СОКЗОК9, 13: PRINT"| e 

185 CURSOR9, 14: PRINT" ーー" 


EEK ( $AF OB) +РЕЕК ( $AF OC) *256: SC-SC*BO 


“: GOTO211 

195 USR($AFBO) 

210 CURSOR1,16: PRINT"BONUS-"; ВО; " 
„ scare"; 5С 

211 RO=RO+1:RR=RO: IFRO> 12THENRR=1 2 
212 BO-3000 


s 240, 250, 255, 260,270 
-3500:GO0TQ300 

4000: GOTQ300 
z4500:GOTOZOO 


250 РОКЕФАД40С, 5: В0=5000: GOTO:10 
255 POKES$AF83,S$F0:POKE$9935A, 


i 
fe eb ont 


105 FORI-OTO100: NEXT: CURSORX » Y: USR( $947 
150 MUSIC"C7ESFS565FSE7D7ESDSCSRC7ESF 565 


MONSTER BROT 


190 SC=PEEK ( $AF 19) +РЕЕК ($AF 1A) X256: BO-F 


192 IFB0=O0THENCURSOR9,16:PRINT"NO BONUS 


Your 


215 ONRRGOTO210, 310, 220,220, 230, 230, 240 
220 РОКЕФАЕ7Е, 2: РОКЕФ995А, Ф11: СО=500: ВО 
250 POKE$AF7F, 3: РОКЕФ995А, 15:С0=В00: BD= 


240 POKE$AF 7F , 4: РОКЕФ995А, 14: CU=1 200: ВО 


12: BO=5500: 


+4 +5 +6 +7 +В +9 +A +B +C 
FF CB Е7 Dš E8 F1 C9 DS 01 
O3 CD 35 99 O1 64 OO CD 35 
7D C6 50 12 O6 04 E1 7E FE E 
C9 C5 А7 ЗЕ ЗО ED 42 38 O3 


DIREDET, あと は ほとん ど マ シン 語 部 
で 行なっ て いま す . | 

マシ ン 語 部 の 方 は や や こし くく な っ て いる 
と 思い ます が , ミサ イル の スピ ー ド な ど は 
クロ ッ ク の 数 値 に よっ て 決め て お り , まだ 
グラ フィ ッ ク の 判定 は 仮想 画面 を 作り その 
中 で 行なっ て いま す . 

な is, pu 
デ を 示し ます . 


Ж 最後 に 


シン 語 部 の アド レス ・ マ ッ 


GOTO310 
260 FOKE$9954, 10: В0=6000: GOTO310 

270 РОКЕФ995А, 9: В0=7000: GOTO310 

500 PDKE$AF7D, СО-ІМТ (CU/256) #256: РОКЕФА 
‘F7E, ІМТ (CU/256) 

310 РОКЕФАҒОВ, BO-INT(B0/256) ¥256: РОКЕФА 
FOC., INT (BO/256) 

320 K=K+1: IFK=2THENKA=1-KA: К=0: POKE$AF? 
2, KA: C=0: D=1 

330 X=12:0=1:0UTƏ$F5, 6: FORI=0TO37: CURSO 
КІ, 18: USRCS9A72, МФ CO) ) : СОКЅОКІ+1, 18: USR( 
$9472,M$((D)) :Cz1-C: DC* 1: MUSIC"C2" 

335 IF(I>X) KCIX18) THENCURSORX, 19: PRINTM 
10% ( "ЅТАКТ",0,1) : Х=Х+1:0=0+1 y 

340 NEXT: FORI-OTO2000: NEXT: OUTD$FS, 7: GO 
TO6S . 

545 REM--- 

350 Х=14:Ү=20:РОКЕ%АР1Е,Х:РОКЕ%АЕ1Р,Ү:С 
URSORX 。 Y: USR ($9072, M$ (1)) 

さ 6O CURSOR12;,19:PRINT"READY! ": MUSIC"G3G 
SF3ESFSESDSC7": CURSOR12; 19: PRINT" " 
: RETURN 


S58: REN--- 

370 РКІМТСНКФ (5) 5 : РКІМТТАВ (50) 1 "#000006 
eae"; : CURSORO, 1: РКІМТТАВ (30) ; "8 $ 
"S tCURSORO, 2: РКІМТТАВ (50) ; "SMONSTER 9";: 
CURSORO; 3 


s is PRINTTAB(ZO) ; "SBROTHERSS " : CURSORO, 4 
:РКІМТТАВ (50) ; "е "І РКІМТТАВ (30) : 
CURSORO, 5: РКІМТТАВ (50) ; "#9800008006 ": CURS 
ORO, ó 

ТВО PRINTTAE( さ 1 ) 』 "HI-SCORE":PRINTTAB(38 
-LEN(STR$ (HS) ) ) s HS: PRINT 

382 РКІМТТАВ (24) ; "SCORE": РКІМТТАВ (58-Е 
N(STR ま (SC) ) ) 5 SC: PRINT 

さ B4 PRINTTAE( さ 6) ; "РОМ": РКІМТТАВ‹ 37) : РО: 
РКІМТ 

386 PRINTTAB(Z4): "ROUND": РКІМТТАВ (58-Е 
NGSTR$ (RO) ) ) 3 RO: FRINT 

Z388 PRINTTAR(Z32) ; "MISSILE":PRINTTAB( 37) 
"20": РБІМТ: РКІМТТАВ (535) 5 "BONUS" 

390 РКІМТТАВ (51) 5 "リエ ーーーー コ "5FRINTTQE( さ 1 
)47] | "sPRINTTAB(S1))"t————M" 
400 FORI-6T024: CURSORSO, I: PRINT"| "š : МЕХ 
H 

405 A$=CHR$ (2) :FORIZOTOS: CURSORI » 24: USR 
(ФАЕ935, АФ) i CURSORI +24, 24: USRCS$AF9 5, A$) :N 
EXT 

410 CURSOR7,24:PRINT"MONSTER BROTHERS"; 
: CURSOR14, 20: PRINT" m ": CURSOR14, 21: PRINT 
"ы "s RETURN 

420 REM--- 

430 MUSIC"F7ESF7DSRE7DSE7CSRD7C5-B7CS-B 
7-А5К5": ОШТӘФЕ5, 7 

455 PRINTCHR$(6&) : БКАРНІ1СІ2СІЗС 

440 CURSOR10,0:FORIZ1TO14: PRINTMID$("— 
GAME OVER —", 1,1); : ҒОКЈ=0Тт0250: МЕХТЈ, I 
442 SC=PEEK ( $AF 19) +PEEK ($AF1A) 252 

445 CURSOR9,15:PRINT"YOUR SCORE"; SC 

446 IFSC>HSTHENCURSOR7, 17: PRINT"YOUR HI 
-SCORE !!" 

450 FORI-1TO7:0UT3$F5, I: MUSIC" *CO": FORJ 
=1T05OO МЕХТЈ, 1: FORIZOTO2000: NEXT: GHTOSO 
590 REM--- 

600 GRAPHIi1CI2CIS3C: CONSOLESO, 23: OUT29$F S 
.7 š 

605 CURSOR24,24:PRINT"Bu MZ / 72"; :CURS 
OR12, O 

610 FORIZ1TO13:PRINTMID$("— MONSTER — 
"„ 1,1); :FORJZOTO2OO: МЕХТЈ, I: X240: Y=16 
612 RESTORE 

620 БКАРНО12512: ҒОКІ=1Т05: ҒОКЈ= 17054: IF 
МІРФ(ТФ(1),Ј, 1) Z"O" THENPOSITIONX, Y: РАТТЕ 
RN-8, ТТФ: USR( $AA7D) 
625 Х=Х+4: МЕХТЈ: Х=40: Y=Y+4: NEXTI 
ら 6 さ O CURSOR9,5:PRINT"xXx** KEY Function ЖЖ 


Я 


9940 С1 09 12 15 С9 
9950 01 АЕ 52 ОҒ АҒ 
9900 AF C3 70 9E ES 
9970 11 81 00 15 22 
9980 7А B3 20 FB C9 


初め て マシ ン 語 の カラ ー ゲ ー ム を 作り まし 
Mk. カラ ー パ ター ン を 作る の に どん な キ 
ャ ラク タ に し よう か 迷っ だ けど,。 な か な か 
いい キャ ラク タ が で き た と 思い ます . キャ 
ラク タ 作 り は と て も 楽し いで す . 今度 作る 
と き は 。 か わっ だ ゲーム を 作り た いと 思っ 
Cy ます 

参考 文献 


渡久地 政 邦 : “ЕТЕМ”, 


6 さ 5 CURSORS, 6: PRINT" 
6 さ 6 CURSORS, 7:PRINT" 
Ө]... VP. 
637 CURSORS,8:FRINT" 
SPACE] . . ミサイル" 
9 CURSORS, 9: PRINT" + 


(41 € 9. C63 


640 CURSORS, 10: PRINT" r21 

645 CURSORS,12:PRINT"MONSTER BROTHERS = 
ЕК 50U2 1! 1":FORIZOTO1000: NEXT м 

650 CURSORS, 14: РКІМТ"777 ^ PUN Э ソウ サシ テ 
ヒト 39 22w77" !!":FORI=ỌT01000:NEXT 

655 CURSDR1O。16:PFRINT "ーーー CHARACTERS 一 

660 CURSOR9, 18: РКІМТ "С MONSTERS] 

PUN" 

665 CURSOR6, 2O:PRINT"  ..DANGO ...FUI 
GO": CURSOR6, 19: USR ($9472, M$CA) ) : CURSOR16 
> 19: USR( $9472, M$(5)) 

70 CURSOR6.22:PRINT" ..WALGO . .. ORA 
GO" : CURSDR6 21: USR( $9A7 2, M$ (6) ) : CURSOR16 
«21: USR( $9472, M$ (7) ) : CURSOR29 , 20: USR ($9A 
72,M$(1)):S=0:D=1 

675 FORI-1TOS50: CURSORO, 24: PRINTS$(S) ::С 
URSORZ29, 20: USR ($9472, M$ (р) ) *FORJ-1TOS0: 6 
ETG$: IFG$«» ""THENRETURN 

680 NEXTJ:S-1-8:D-S8*1:NEXTI 

682 PRINTCHR ま (6) : БКАРНІ1СІ2СІЗС: OUT9$F5 
S f 

683 CURSDR1O。 2:PRINT" mma 


684 CURSOR10, 3: PRINT"| MONSTER BROTHERSI 
685 CURSOR10,4: PRINT" — n 


6B6 CURSOR7,6:PRINT"- SCORE TABLE 一 


688 CURSOR6,8:PRINT"...) YF SOPTS ...K 
EY SOPTS":A$-CHR$s(1): CURSORS, 8: USR ( $AF 93 
„ A$) : A$-CHR$ (2) : CURSOR20, В: USR(CSAF 93, A$) 

690 CURSORS.10:PRINT"8...4"7»100PTS .. 
. = FL" : ASECHRS$ C3) : CURSOR20; 10: USRCSAOF 93, 
A$) t CURSOR12. 12: PRINT"FRUIT....7???":2-4 

695 FORI-1TOBSTEPZ2: CURSORI*7.14: USR($9A 
72, МФ(2) ) = ZeZ*1: NEXT: CURSOR16. 15: PRINT". 
... SOOPTS" 

696 CURSORA,17:PRINT"4«w^*2 - 
? JU02h...7»25 2" 9" &" 

698 CURSOR?9,19:USR($9472, M$ (В) ) : CURSOR1 
1, 20: PRINT"755.....1000PTS" 

700 CURSORS,22:PRINT"20000FTS Э コ エ ル ML ト PU 
Мол” iwẹ フエ ル " 

705 FORIs1TOSO: CURSORO, 24: PRINTS8$(5);:F 
ORJ-1TOSO: GETG$: IFG$«» " " ТНЕМКЕТОКМ 

710 МЕХТЈ:5=1-5: NEXTI: GOTO600 

BOO RESTORE:FORI-1TOS:READTO$:T$(I)-TOS$ 
: NEXT: RETURN 

1000 DATA"OOO00 00000 

о OOOO OOOOO 00000" 

1001 DATA"O оо оо D 0 

Q 9 0 со й 

1002 DATA"OOOO0 000000 D 0 0 
оооо оооо oooo000 000 " 

1005. DATA"D .00 о о 0 0 

0 


St" tA" a 


оооп 00000 о 


o o o o 
1004 DATA"00000 О 
а OOOO о о ooQ0O0 " 


21 OE AF 34 さ OF AF ЗС FE O6 20 
XA 10 AF 5С FE 12 20 O1 АҒ 32 10 :F7 
DS 2A 8E AF 54 SD 19 19 7D 84 67 
BE AF 7C рі El C? 16 OS 1E 60 1B : 
DB E8 Её FO B1 Dš E8 DB EA C9 FS 


I/O, 83 年 11 月 号 


# 


リス ト 1 MONSTER BROTHERS BASIC リ スト 本 > 


+6 *7 *8 *9 +A +B +C *D +E +F :Sum 


PiO に は 音楽 を や っ て いる 人 が 多い ん で すね . 私 も その 1 人 で す . 皆様 どーぞ よろ し く 


. と ころ で MZ-700 の ユー ザー の 人 , 7000 Hu-BASIC 


で も X1 の Hu-BASIC の ょ うに パス ワー ド が 使え ます . どう だ , よく 知っ て いる だ ろう . 何 ク そん な こ と で らい だ れ で も 知っ て いる だ っ て / 


こり T ^n, kt а i» t. 


(THE greatest AFRICAN HERO) 


рю 


| リリ スト 2 MONSTER BROTHERS マシ ン 語 リス ト 


| М y 2 А ; Аз : I 1 ; 
д ss ^ N ^ "Hn э & h 7 
t д : Ë , f $ “/ ^ T e š "T Ë RINT E М し 
> = У í . sy USA ^ ; Y j - } í З T e" „^^ va Mii 
a eere EORR c pn an TEE y LEER, IN а SEFA EE E гу Nen m , 
AM な て Q^ ui d To Se し を の о е. CLR УЛ; ME ?+ ' 
mu w^ š КА? ты wii gne 
^ j W ie 
27 


M a Dee S Tero の ao аа CN P M dutem. 
し УЕ Mie А E. а 1 Lr n Ë ` 

= >. a Ere q tA ; POPE e, 49. d. s "ou Ды, C ilL , " 

1 v て LA xz TI kt まっ В っ H LT 
AV まい もい ЖАК Ио バキ の た を れき か < 


3 


My 
EEN 


Eo а 
єў 
EIT 
„А 
e 


Et ad RD E 
T At ША ed PN Se sd 


M5 は な ぜ け な され る ん だ 32K メ モリ を 付け れ ば , PC-6000/8000 シ リー ズ , MZ-700, MSX は な ん の その (ユー ザー の 方 , ご めん な き 
v). ゲー ム の 作り や する は PC-8801 や X1 に も 引け を 取り ませ ん . うそ だ と 思う 人 は , 一 度 M5 で プロ グラ ミン グ し て みて くだ さい . 自分 で も 
信じ られ な いよ うな , 面白 い ゲ ー ム が で きる は ず で す . M5 の ユー ザー よ ク 今 こ を 立ち 上 が れ グ 各 ソ フト 会 社 に M5 の ソフ ト を 出し て も ら う 


QI OR ORC Y し て くれ な い "か な ) ん M5 を ポピュラー に тараза: だ ん P.S. 他 の マイ ナー 機種 の ヘー ザー - き ん も 頑張 っ て く a 


} è Че 2 


© ` PU En n KA р ^^ 2 LEN Ç б n : 
У XE" NT V e FT «дї. se ç 3 が て t. £ T CHR ч TE +» 
KET ОН dero fh 930a L dolus Ун ЧАЛ 
es rr FE aet А Йө а, i X TES ac Td VH NAR tay Fe BONA x (ШЛУ Zr y MER seas] ues 


à diri š - 4 А 1 DÀ y 7 Í. n る | 
" ei А y ^ ` 
A ! i - ; 
` , た t N ' 
, ' 
て a - 


"ul 5 スク フロ ー ル 式 | 入 力行 指示 回 


220 500 円 


— IPS 


倫 ク リア ライ ン G は 、 小 さき な 廊 字 の リス ト で も 影 が 出来 ず 行 単位 で は っ き 
り 読 むこ と が で きま す 。 
、 倫 クリ アラ イン G は 、 リス ト を 確実 に ホー ルド し ます の で 両手 が 使え 、 ス 


@ 高級 アク リル 製 
ДЕЕ Ей <〈 プ ルー スモ ー ク 〉 ピー ディ に イン プッ ト で きま す 。 
| 専用 置台 は 、 大 変 便利 で す が 、 @ サイ ズ 


M ICT CUL ER > ap x o s 


ШЕШ} e -xd9gECad-0-0(000)00D IOS H XN > ano ELE 


リア ライ ン š 信 置 き 場 所 は わずか な スペ ー ス で よく 、 さ ら に 専用 置台 (オプ ショ ン ) を 
Oo Cenanta a mer 使用 すれ ば 、 目 や 頭 を 動か す 動作 が 最小 、 限 で すみ 、 入力 時 の 疲 
©) コリ アコ イィ ン 5 ロ 本 体 価格 9.500 円 労 が 軽減 され ます 。 
コリ ララ 178 yeh ee ttu eph s 長 さ は 自由 で す の で 長い 
3 y y$ T『 ら ず に 読 
専用 詩 台 セッ ト セッ ト 価格 13.500 円 @ ワ ー プ ロ の 原稿 ホー ルド に も 威力 を 発揮 し ます ) 
@ 専用 置台 の サイ ズ (45cm 巾 ・50cm 巾 ) 又 は 、 パ ソコ ン の 機種 を 必ず お 書き くだ さい ⑧ そ の 他 横 書き の デー ター や 文面 、 図形 の 座標 を 正確 に 読む と き に 
※ 上 記 い ずれ も 、 送 料 サ ービス ・ いろ いろ と ご 利 用 で きま す 。 


ご 注文 は ⑳⑧ い ずれ か の 金額 を 現金 書留 郵便 振替 又は 銀行 振込 で 
ES 申し 込み 下さ い 。 計 郵 便 振替 口座 神戸 1-3516 
行 振込 口座 三菱 銀行 ・ 兵 庫 支店 当座 No9000493 


@ カ タロ グ を ご 希望 の 方 は 誌 名 を ご 記入 の 上 <60 円 切手 > を 同封 し て 当社 宛 へ ご 請求 下さ い 。 


NR ا‎ ・ 氏 名 ・ 電 話 番号 ・ 品名 等 を あ ら か し じ し め 電話 又は CO “ダイヤ ワイ ト 株 式 会 社 


DEE 9650 神戸 市 中 央 区 栄町 通 5 丁目 1-17-205 A (078)351-2601 «9 
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⑱ 今月 の PiO な ゲーム 


MZ-80B--G-RAMIL 1 


WICS 十 マシン 語 


時 は 西暦 2007 年 , 今や 人 類 は 太陽 系 惑星 


開拓 計画 の 最終 予定 惑星 で ある 天王 星 の 開 
拓 を ほぼ 完了 し , # c£ B- 4 地区 を 残す だ け 
と いう 状態 まで に な っ て いた . この B-4 地 区 
と いう の は , つね に 光 の 当たら な い 氷 の 世 
界 で あり , 平均 気温 一 70 度 と いう 製氷 庫 の 
よう な 所 で あっ た が , その 地下 資源 は 豊富 
で あり , 特に ウラ ン に つい て は 太陽 系 一 の 
埋蔵 量 を 誇る 大 資源 地帯 な の で ある . 

し か し , な ぜ こ の よう な 大 量 の 資源 が 埋 
まっ て いる 地区 の 開拓 が 遅れ て いる の か と 
いう と, 実は この BB-4 地 区 に は 開拓 以前 か 
ら こ こ を 飛来 する UFO を 見 た と いう 人 が 多 
‹, 恐れ られ て いた か ら だ っ た . お そら く 
その UFO は ウラ ン 資 源 目当て に 飛来 し て く 


7, WICS の モニ タ TS-1000 で マシ ン 
EE CU X Ft) を 入力 し - チ テッ クレ ЗЕ 
ム 値 を 確認 し て 間違い が な けれ ば S コ マン 
ド を 使っ て 
59000, 9D9F, OOFO, ファ イル 名 | CR | 
と し て テー ブ " に セー ブ し ます . 
次 に WICS イ ンタ ー プ リタ を 起動 し 7 
ー ス (リス ト 2) を 入力 し ます (ZORD 
に テー に セー ブ し て お いて くだ さい )。 そ 
LT. е シッ オラ を ロード トド し で 5 
SOURCE PROGRAM ADRS : $4400 
OBJECT PROGRAM ADRS : $9EOO 
WORKING AREA ADRS : $FOOO 
を も て コシ バイ ルレ し 。 無事 コ ン フ パイ ル が 終 
TERG SaR S E を 使っ で で きだ キ 
w ae k pA 2 U ます: 
敵 の ミサ イル 攻撃 に は 想像 を 絶する も の が … 


いき な り で す が , 


e: 


る の で あろ う が , 開拓 が 開始 され る と 今度 は 
攻撃 を 仕掛 け て きた の で ある . 

最初 の うち は 一 方 的 に や られ て いた 人 々 
も , 地球 の 面目 に か け て も 戦わ な けれ ば な 
ら な か っ た . そし て , 人 類 の 科学 力 の すべ 
て を つき 込ん だ 最新 対空 砲台 「 バ トラ ーIII」 
が 完成 し た の で ある . 

画 プ ログ ラム ・ イ インフォメーション 


最後 に 。 モニ タ か ら 先 に セー し だ マシ 
ン 語 部 と 。 今 モ ー プ し だ オプ ジェ クト を ロ 
ー ド し て まとめ て セー し て くだ きい (A 
ー ト ・ ア デア ドレス は $9E00 と する ). 以後 は , 
TS-1000 か ら こ の テー ブ " を も ロード し て 遊ん 
で だ SU. 


バト ラー は , [4] キー で 左 , [6] * — C + 
に 動き , キー で 弾 を 発射 し ます . 
を し て 空 を 飛び 回 る UFO た ち を , 攻撃 を か 
わし な が ら や っ つけ て くだ さい . 
弾 に つい て 

弾 に は 2 種類 あり ます . 1 つ は B 弾 で , も 
うぅ う 1 つ は SB 弾 で す . B 弾 は UFO 専 用 の 弾 で 
あり , SB 弾 は 対生 物 兵器 用 で JUMPER を 
殺す た め に 開発 る きれ だ も の で す . 

Z LT, SB 弾 は TUMPER を 殺し て も 消 
減 せ ず に UFO も 破壊 する こと が で きま す が , 
B 弾 の よう に 連射 が で きず 。 B 弾 3 発 に 対し 
て SB 弾 1 発 の 割 で 発射 され ます . な お バト 
ラー は , キー を 何 度 も 押す こと に 
ょ り 連 射す る こと が で きま す . 


PERFECTION に つい て 


UFO が 6 機 で 編隊 を 組ん で 飛ん で くる の 
C, 画面 か ら 消 えた る まで の 間 に 1 機 も バト 
ラー が や られ る こと な く 全 部 の UFO を や 
っ つけ る と , PEREECTION と な り CHAL 
LENGE ROUND へ 進み ます . 


PS. ボツ に し な いで ーー 


CHALLENGE ROUND に つい て 

この 面 で は 6 機 編隊 の UFO の うち , 先頭 
に BOSS UEO が 出 て きま す . こ の UFO は , 
攻撃 兵器 と し て 生物 兵器 の SUPER JUMP 
ER を 出し ます が 。 こい つが えら くく 強く 《 く て ボ 
サッ と し て いる と 1 秒 も し な いう ち に や ら 
て E die p 

そし て , SUPER JUMPER の 攻撃 に も 
めげ ず に BOSS UEO を や っ つけ る と ボー 
ス ・ ポ イン ト が 与え られ , 画面 上 に ある 他 の 
UFO も すべ で て 破壊 きれ ます が , 画面 左上 
に “SPECIAL” と 表示 る れ て か らら BOSS 
UFO を や っ つけ る と も ら え る ボー ナス ・ ポ 
イン ト が 違い ます 

また だ た , 次 の ROUND で も PERFECTION 
を 出し て , 2 回 連続 し て BOSS UFO の 破壊 
を 行なう と , も ら え る ボ ポー ナス ・ ポ ボイン ト 
が また 違い ます . この と き ,BOSS UFO 破 
壊 の 際 に 出 て いな か っ た だ 生き 残り の UFO や 
SUPER JUMPER な ど に や られ な いよ うに 
о ua 

i, 窒 1 に この と き に も ら え る ボー ナ 
ス ・ ポ イン ト の 点 を 示し ます . 

表 1 ボー ナス ・ ポ イン ト 


1000 
10000 


100000 
100000 
100000 


+ ノー マル か ら ス ペ シ ャ ル へ 替え た り , その 逆 
の と きも 共に 1 回 に 戻り ます . 


UFO に つい て 

UFO は 全部 で 5 種類 あり ます . これ ら の 
UFO の 飛行 スピ ー ド な ど は まっ た だ く 同 じ で 
4X5, それ ぞ れ の 攻撃 兵器 は 異な り ま す . X 
撃 兵 器 に つい て は 表 2 に 示し ます . 

R2 UFO & 攻撃 兵器 


種類 攻撃 兵器 兵器 名 称 兵器 特徴 
FASTEN | 高速 で ある 
GUIDELER | 誘導 性 が ある 


BOMBER 


着地 時 に 爆発 する 


JUMPER | 長期 攻撃 力 が ある 


ERR | 上 記す べ て の 特徴 を 含む 


PiO10 月 号 に 初め て 名 前 が 載り まし た . それ に し て も PiO は いい で すね . 他 に も コン ピュ ー タ 関係 の 雑誌 は 買い ます が , や 
っ ぱり PiO は 他 と 違っ て 親しみ や すい 気 が し ます . みん な で PiO を 盛り 上 げ よ う / 


(N.AYAKO) 


な お , UFO の 攻撃 力 は 面 が 進む に つれ て た だ し , この 場合 に は 得点 ヵ 


増し て いき , 一 定 の 面 ま で い 〈 と 各 攻 撃 兵 いま す 、 


器 の 能力 が アッ フ プ " し ます . 
セー フ テ ィ ・ ゾ ー ン に つい て 


メト ラー を 画面 右端 に よせ る こと に よっ 
t, UFO の 攻撃 を きけ る こと が で きま す . 


d 


IRL CÇ Ü š 


デ ly Bi ч 


し gis š M 
a ex b zt Ç 
SA RC 


この ゲー ム は 高速 で あり , 友だち に も 人 
気 が あ っ て な か な か の で きだ と 思っ て いま 
+. ^. GALAXY UFO part2 を 作成 中 な 
OC, で きれ ば これ も 発表 し た いと 思っ て 
лер A. qË 


piO 


Add. 
9900 
9910 
9920 
| 9930 
9940 
9950 
9960 
9970 
9980 
9990 
9900 


GALAXY U.F.O. 
Made by Dumbo. 0 
1984. 3.10^8.19 


ERS RE 
10 PRINT &$06:PRINT, &$0B: GRAPH 11,C,0 
1: TEMPO 6:HS=0 
20 CD=$9000: AD«$F0001 I=0: SS=$%98CC: UU» 
$F5001 UX29F540: UY=$F 5801! UDz$F 600 
22 BX1*9F7001! BX22$F 720: BX 32$F740: BX4= 
$F760 
24 BY1=$F780: BY2=$F7AOI BY32$F7CO: BY4= 
$F7EO 
28 BB1=$FBBO: BB2=$FBAO: BB さ =$FBCO! BB4= 
$F900 
30 BON=99: SC=0: LE=10: MY=3: PRE=0: PPE=0 
:МХ=120: RO*0:L1281:L221:L32201 GOTO 30000 
40 EC=6: PC= 1 3 RO=RO+1 5 K に =O 
SO GOSUB 10000: GOSUB 15000 
100 РСО=50: CD=SS(RND( 12) ) 1CO* 500: DE=O* 
GOTO 3000 
999 ' NENNEN UFO MOVE ИШНИ 
1000 Js=O 
1010 JzJ*1:IF J>6 RETURN 
1020 IsAD(J)!IF I«O GOTO 1790 
1030 IF UDLJ]=O GOTO 1530 
1500 X=CDE 1]: Y=CDC 1+1] 
1505 IF UD[JJ=i GOTO 1840 
1510 PUT9 CDL I-23,CDCL I-1J, CDL ユー2]+15。 CD 
|[I1-12*7,$9910*UUL J3, O: IF Y=0 GOTO 1530 
1515 IF (Х<6Х1) £(X*16»GX1) &(Y-10«GY1*4) 
$(Y*10»GY1) THEN LINE GX1,GY1,GX1,6GY1*8, 
OILINE GX1*1,GY1,GX1*1,GY1*8,0: GX170: GOT 
O 1800 
1517 IF (X く <BX2)#(X+16>GX2)#(Yー10 く BY2+4 ) 
*(Y*10»8Y2) THEN LINE GX2,GY2,GX2,GY2+4, 
Os BX2=Os GOTO 1800 
1518 IF (X く < く BX さ )#(X+16>6BX さ )%(Yー10 く BY さ +4 ) 
*(Y*10»GY3) THEN LINE GX3,GY3,GX3,GY 3*4, 
0:6X3=0: BOTO 1800 
1520 PUTƏ X,Y,X+15,Y+7,$%$?91O+UUL JJ 
1530 ON UULJ1/16 вото 5000, 5500, 6000, 65 
00, 6700 
IF Y=0 GOTO 2000 
AD(J)-AD(J) +2: GOTO 1010 
^ ИШНЕН 09757 
UDEJ1-z1:FO0R JJ=1 TO 1000 STEP 100: 
JJ, 1:NEXT 
IF UULJ1=80 GOTO 1940 


24 BB :76 


: Sum 
: SB 


1805 SC=SC+11-LE: GOSUB 8530 

1810 BX1(J)=X:BX2(J)=XtBXS(J) =X: BX4(J) = 
X1: BY1(J) zY: BY2(J)=Yi BY さ (J) =Y! BY4(J) =Y 

1820 BB1 (J) =-КМр (15) : BBZ (J) =—RND (15) : BB 
さ (J) =ーRND( 15) : BB4(J) =-RND( 15) 

1840 X12BX1(J):X2-BX2(J) : X さ =BX さ ( 了 ) 1 X4=B 
X4(J): Y12BY1(J): Y2=BY2(J) : Y3zBYS(J) :Ү4=В 
Y4(GD 1B19BB1 (J) 1 B20BB2(J) 3BSeBBS (J) 1 BAMB 
B4(J〉 

1860 PUT9 X1。Y1。 X1*4, Y1+4。 $0000, O: PUT3 
X2, Y2, X2*4, Y2*4, $0000, 0:PUTƏ X3, Y3, X さ +4。 
Y さ +4 $0000, 0O:PUTƏ X4, Y4, X4*4, Y4*4, $0000, 
° 

1870 B1-B1*1:3B2zB2*1:B3zB3*11B4zB4*1: Y1 
zY1*B1: Y2=Y2+B2: Y さ =Y さ +B さ : Y4=Y4+B4 

1880 X1=X1+3:X2=X2-2:X3=X3+6: X4=X4-5 


1885 IF Y1»190 THEN UD[J1=O:EC=EC-1:6G0T 


0 1010 

1890 PUT X1,Y1,X1*4,Y1*4,90000:PUT9 X2 
s Y2, X2*4, Y2*4, $0000: PUTO9 X3, ҮЗ, Х5+4, Ү5+4 
s $0000: PUT9 X4,Y4,X4*4,Y4*4,$0000 

1895 BX1(J)zX1:BX2(J) X2: BXS(J) X3: BX4( 
J)zX4: BY1(J) ZY1: BY2(J) =Y2: BY さ (J) YS: BYA( 
J)zYA: BB1(J) =B1: BB2(J) B2: BBS(J) =B さ ! BB4( 
J)zB4 

1897 GOTO 1530 

19 く 9 ^ NENNEN BOSS BANG ШШШ 

1940 РС=0:ҒОК JJ=1 TO 4:FOR II=3O TO 50 
: SOUND II*1,101-II:NEXT: NEXT:FOR II=30 T 
O 100: SOUND II*1,101-II:NEXT 

1950 PRE=PRE+1: AD ( J) =AD ( J) +2 

1952 IF PPE=2 THEN SC=SC+1000: GOSUB 853 
О: РКЕ=0 

1954 IF РРЕ>2 THEN SC=SC+10000: BUSUB 85 
30: PRE=O 

1956 IF РКЕ<>0 THEN SC=SC+PRE* 100: РРЕ=0 
s GUSUB 8530 

1960 FOR Ј=1 TO 6:I-AD(J):IF I«O GOTO 1 
990 

1962 IF (UDEJ]=1)+(UDEJ]=O) GOTO 1990 

1965 PUTA CDL I-21,CDELI-11,CDL エー2]+15。 CD 


[I-11*7,$9910*UUL JJ, O: XZCDE I3: YZCDE I*12: - 


UDC J1=1 

1970 BX1(J)=X:BX2(J)=X:BXZ(J)=X:BX4(J)= 
X:BY1(J)=Y:BY2(J)=Y:BY3(J)=Y: BY4(J) =Y 
1980 BB1 (J) =ーRND( 15) : BB2( J) =ーRND( 15) : BB 
3(J) =—RND (15) : BB4 (J) =-КМр (15) BY4 (J) =Y 
1990 NEXT: GOTO 1840 

1997 ° A イッ チャ ッ ク | 

2000 CO=CO-1:IF CO»O GOTO 1010 

2020 РРЕ=0: РКЕ=0: РС=0: RETURN 

2999. 7 INKEY 

ЗООО !(DB ЕВ Её FO Fé 12 DS E8 DB EA 32 


YSR. XR p HIE T 


V.K): "EE Кез storobe 2 KEA 

5005 PUT3 MX, 190, MX+15, 197, $9910, O 

3010 IF (K2239)*(MX»O) THEN MX=MX-4 
3020 IF (K-2191)X(MX«288) THEN MX=MX+4 
3030 PUT3 МХ, 190,MX+15, 197, $9910 

2055 IF (MX>266) *※(SC>O) THEN SC-SC-1*:GO 
SUB 8530 

3040 IF BX1>O GOSUB 4010 

5042 IF GX2»0 GOSUB 4110 

5044 IF GX3»0 GOSUB 4210 

3048 !(DB ЕЗ Eé FO Fé 13 D3 ЕВ DB EA 32 
М.К): "ME key stovrobe 3 KEA 

3049 IF KK-K GOTO 3060 

3050 KKzK:IF (K AND 2) =6Х1 GOSUB 4000:G 
OTO 3060 

IF (K AND 2)=GX2 GOSUB 4100: GOTO 3 


IF (K AND 2) =BX さ GOSUB 4200 
GOSUB 1000 
IF DE=1 GOTO 20000 
IF EC-O GOTO 9000 
IF CD=O GOSUB 10000:GO0TO 100 
GOTO 3000 
°` 5 0 UNUM 
GX12MX*7:GY12184: SOUND 50, 5: SOUND 
10,20: SDUND 100,1 
4010 LINE GX1,GY1,8X1,GY148,0:LINE BX1+ 
1,GY1,GX1*1,GY1*8,0 
4020 8Y128Y1-16:1F GY1«O THEN BX1=Oi RET 
URN 
4030 LINE GX1,GY1,GX1,GY148:LINE BX1+1。 
GY1,GX1*1,GY1«48 1 f 
4040 RETURN 
4100 GX2-MX*8:8Y2-184: SOUND 50,5: SOUND 
10,20: SOUND 100,1 
4110 LINE 8X2,8Y2,G8X2,G8Y2*4,0 
4120 GY22GY2-16:IF GY2<0 THEN GX220:!RET 
URN 
4130 LINE GX2,G8Y2,GX2,GY2*4 
4140 RETURN 
4200 GX3-MX«*8:G6Y32184: SOUND 50, 5: SOUND 
10,20: SOUND 100,1 
LINE GX3, БҮЗ, 6X3, GY3+4, 0 
GY3-GY3-16:IF GY さ <O THEN GX3=0: RET 


LINE BX さ 。 BY さ 。 GXI, BY さ +4 

RETURN 

^ ИШЕН UFO 1 

IF UY[J1=O GOTO 5100 
EX=UX[ JJ: EYzUYE JJ 

PUT9 ЕХ,ЕҮ,ЕХ+7, ЕҮ+7, $98E8, O 
EY-EY*L1:IF EY>191 THEN EY=0: GOTO 


や っ た ね , 10 月 号 p.46 の 人 / の 私 も 必殺 ファ ン で す 。 も ちろ ん 家族 の みん な も 必殺 ファ ン で す 。 勇次 さん が 。 か っ こい い ノ 
ATTE, 必殺 フ ァ ン が . 
こし まし ょ う 


o r HA 


私 の 周り に も いる 
上 曜日 に は 必殺 の 話 で 花 が 咲き ます . 今度 始ま っ た 「 必 殺 仕 切 人 」 も 良い で すね . 5%, みん な で 必殺 ブーム を お 
P.S.1 乾い сьс es (北城 慶二 ) 5 


ү, 
› к, } 
1 295; a AA SA 


д 


了 


5040 PUTS EX,EY,EX+7,EY+7, $9BEB 
5050 IF (EY>182)* (EX+8>MX) K(EXCXMX*16) T 
HEN DE-1 

5060 UXEL JJ-EX:UYE JJ-EY 

5070 GOTO 1540 

5100 IF (RND(LE) =0) *(UD[J]>1)*(Y>O) THE 
N UXEJ1-X*4:UYEJJ2Y*8: GOTO 5010 

5110 GOTO 1540 

5499 " mama UFO 2 ШШШ 

5500 IF ОҮГЈЈ=0 GOTO 5600 

5510 EX-UXEJJ:EY-UYE JJ 

5520 PUTƏ ЕХ,ЕҮ,ЕХ+7,ЕҮ+7, $98F0,0 

5530 EY-EY*4:IF EY»191 THEN EY-0:GOTO 5 
550 

5535 IF EX>MX+4 THEN EX-EX-L2 

5538 IF (EX«MX*4) K(EX«254) THEN EX=EX+ し 
2 

5540 PUT9 EX,EY,EX*7,EY*7, $9BFO 

5550 IF (ЕҮ> 182) K(EX*6» MX) K(EXCMX*14) Т 
HEN DE-1 

5560 UXELJJ-EX:UYC J1=EY 

5570 GOTO 1540 

5600 IF (RND(LE) =0) #(UD[ J151) ж(Ү>0) THE 
N UX[J1=X+4:UYC[ J1=Y+8: GOTO 5510 

5610 GOTO 1540 | 

5999 < UFO 5 1, g 

000 IF UYCJJ=0 GOTO 2100 

6010 ЕХ=0ХГ JJ:EY-UYE JJ 

6020 PUT9 EX,EY,.EX*7,EY*7, $98F8,0 

6030 EY-EY*4:IF EY>191 БОТО 6200 
| 6040 PUT9 EX,EY,EX*7,EY*7, $98F8 

6060 UXELJJzEX:UYCJ17EY 

6070 GOTO 1540 

6100 IF (RND(LE) =O)*(UD[J]> 1) *(Y20) THE 
N UX[J1=X+4:UYLJ1=Y+8:GOTO 6010 

6110 GOTO 6070 

6200 J1=LI:IF EX«L3 THEN J1=EX 

6208 LINE EX-J1,194,EX*8*L3, 194:LINE EX 
ーーJ 1 。 195。 EX+B+ し さ 。 195: SOUND 100,1:50UND 10 
> 10: SOUND 50,10 

6210 IF (EX く <MX+16+J1 ) *(EX+ ヨ B+L さ >MX ) THEN 

DE=1 

6220 LINE EX-J1。194。EX+B+ し さ 。194。OILINE 
EX-J 1 。 195。 EX+8+L3, 195,0 

6230 EY=0: GOTO 6060 
UFO 4 ШШШ 

6500 IF UYLJ]=O GOTO 6600 

6510 EX-UXELJJ: EYzUYCL J1: EB=BB4 (J*10) 

6520 PUT EX,EY,EX*7,EY*7, $9900, O 

6530 EB-EB*1:EY-EY«*EB: IF EY>192 THEN EB 
z-EB: SOUND 100, 2: SOUND 50,1:1F EB»-5 THE 
N EY=0: GOTO 6560 

6535 EX=EX+BB さ (J+10) 3 IF (EX>245)+(EX く 1O 
) THEN BB3(J*10) =ー(BB さ (J+1O) ) 

6537 IF (EXXGX1) X (EX*B»GX1) ж  GYIXEY*10) 
*X(GY1*8»EY-10) THEN SOUND 100, 5: SOUND 20 
0,3:8C-SC*10:GOSUB 8530: EY=0: GOTO 6560 

6540 PUTƏ EX,EY,EX+7,EY+7, $9900: IF (EY? 
182) *(EX*B» MX) #*(EX く MX+16) THEN DE=1 

6560 UXECJJ2EX:UYC JJ-EY: BBA(J*10) =EB 

6570 GOTO 1540 

6600 IF (RND(LE) 0) X(UDEJJ» 1) ま (Y>O) ま (X> 
20) #(Х<240) THEN UXLJJzX*4:UYL J1zY48: BBS 
(3+10) =RND( 17) -B: BB4(J*10) 20: GOTO 6510 

6610 GOTO 1540 
ea à— UFO 5 ШШШ 
6700 IF SY=0 GOTO 6800 

6710 PUT9 SX,8Y,8X*7,8Y*7,$9908,0 
SB=SB+1:SY=SY+SB:IF SY>191 GOTO 69 


SX=SX+(MX-SX ) /10 
6735 IF SX»245 THEN SX-245 

6737 IF (SX«GX1) X SX*B»GX1) X (GY1<SY+10) 
X(GY1«*8»SY-10) THEN SOUND 100, 5: SOUND 20 
0,3:8C98C450:GOSUB 8530:8Y-0:GO0TO 6560 
6740 PUT9 SX,SY,8X*7,8Y*7, $9908 

6750 PCOSPCO-1:IF PCD=O THEN PPE=PPE+1: 
CURSOR O,O:PRINT "Ris": SOUND 100,30 
6770 GOTO 1540 

6800 IF (UDC JJ? 12 3 Y20) 3( X220) *(X く 24O) 
THEN SX=X+4: SY=Y+8: SB-0: GOTO 6710 

6810 GOTO 1540 

6900 Ј1=40:ІҒ SX«40 THEN J1=SX 

910 LINE SX-J1,194,8X*48, 194:LINE SX-J 
1,195, SX+48, 195: SDUND 100,1:SDUND 10, 10: 
SOUND 50, 10 

6920 IF (SX-J1<MX+16) #(5X+48>MX) THEN D 
E=1 

6930 LINE SX-J1,194,5X+48, 194。0:LINE SX 
-J1,195,8X*48, 195,0 

6940 SB--SB:IF SB»-5 THEN SY=O:GOTO 656 
0 

6950 GOTO 1540 
^ mE PRINT SCORE ШЕ 
8500 CURSOR 34,7:PRINT HS 

8510 CURSOR 35,13:PRINT MY 

8520 CURSOR 35,18:PRINT RO 

8530 CURSOR 34,11:PRINT SC 

8540 IF BON«SC THEN MY=MY+1 : BONSBON-100 
FOR II=1 TO 1000 STEP 100:SO0UND 1001-11 
»II/100*1:NEXT* GOTO 8510 

8550 RETURN 

8999 ^ CLEAR 

9000 IF (MOD (RO, 3) =0) K(LE»O) THEN LE-LE 
-1 

9010 IF PC=O GOTO 40 

9020 LAD-$9888:X-12:GOSUB 31000:MUSIC " 
R9":CURSOR 12,5:PRINT " 
9030 LAD2$9893:X-10:GOSUB 31000:MUSIC " 


R9":CURSOR 12,5:PRINT " ^ 
9040 UUC 17=80: UDC 11-2: UYE 11-0: SY=0 
9050 FOR 1=2 TO 10 
9060 UUE IJ-RND(4) X15*16: UDEL I]=2: UYE I3-0 
9070 NEXT 
9080 GOSUB 10000 
9090 EC=6: GOTO 100 
9999 uat 
10000 PRINT &$06: GRAPH I1,C;.01 
10010 FOR 1=1 TO 50: X-RND( 33) 1 Y-RND(21) : 
SPOKE X,Y,".":NEXT 
10100 FOR I-O TO 22:SPOKE 55,1, 154: МЕХТ: 
CURSOR 33,23: PRINT "ーー" 
10110 CURSOR 34,0:PRINT "GALAXYOU9eeeUFOSs 
や ちや ちや や ا‎ 
10120 CURSOR 36,4:PRINT "HI-09eee5CORE": 
SPOKE 59,7, "о" 
10130 CURSOR 55,9: РКІМТ "SCORE": SPOKE 39 
» 11, "0" 
10140 CURSOR 55, 16:РКІМТ "ROUND" 
10150 PUT2280, 104, 295, 111, $9910: GOSUB 85 
oo 
10160 LINE 0,199,3719,199 
10170 FOR I-O TO 9 
10180 AD(I-*1)-2-IX*10:IF UDE 1+17=1 THEN UD 
[I*11-20 
10190 UYE I*11-z0:NEXT 
14990 RETURN 
14999 ^ zat 2 ШШШ 
15000 FOR 1=1 TO 10 
15010 UUC 11=RND( 4) ¥#16+16:UD[ 11=2: UY[ I1=O 
15020 NEXT 
15030 IF ( RD=2O)+(RD= さ O) THEN Li=L1i+4: G60 
SUB 32000:GOSUB 10000 
15040 IF (К0=5) +(RO=10) +(RO=25) THEN L2- 
L24*«1:GOSUB 32100:GOSUB 10000 
15050 IF (ROD=1O)+(RD=15)+(RD=2O) THEN L3 
=L 5+10: GOSUB 32200: GOSUB 10000 
15060 IF RD=4O THEN L3=60: GOSUB 32200: CU 
RSOR 8,20:PRINT "Bonus points 10000":SC= 
SC*1000: MUSIC "«*4ES":GOSUB 8530:GO0SUB 10 


| 000 


15070 FOR 1=1 TO 10 

15080 UY[ 1]=O 

15090 NEXT 

15110 RETURN 

19999 " ШШЕН DEAD 

20000 РКЕ=0: РРЕ=0:РС=0:11ІМЕ GX1,GY1,GX1,; 
BY1*8,O: LINE GX1*1,GY1,G8X1*1,GY1*8, O:LIN 
Е GX2, GY2, GX2, GY2*4, O: LINE GX3,GY3,8X3,G 
Ү5+4, 0: X170: GX2z20: 8X 320 

20005 XSzMX: X6zMX*11: Х7=МХ+5: X 日 =MX+ ア 
20010 YS$2z193: Y6z192: Y7z190 

20020 В5=-12:Вё=-10:В7=-16:11=1 

20030 SWzO:GOSUB 20100 

20040 IIZII*1:IF IIS THEN 11=1 

20050 BS-B5*1:B6-B6*1:B7zB7*1:YS5zYS«*BS51!Y 
6=Y6+B6# Y7=Y7+B7 

20052 IF Y5»190 THEN В5=-В5 

20054 IF Y6»188 THEN Bóz-Bó 

20060 XSzXS$5-1:X6zX6*1:X72zX7-3: XBzXB* 3 
20070 SW-1:GOSUB 20100 

20075 IF Y7»200 GOTO 20200 

20090 GOSUB 1000:GOTO 20030 . 

20100 IF II-1 THEN AD1=$7A90:AD2=$97AD0:A 
D3-2$9B10: AD4-$9BS50O: AD$5-$9B90 

20110 IF II-2 THEN AD1=$9AA0: AD2=$9AE0: А 
D32$9B20: AaD4-$9B60: ADS5-$9BA0 

20120 IF 11=5 THEN AD1=$9ABO: ADZ=$9AFO: A 
D32$9B30: aD4-$9B70: AD5=$9B90 

20130 IF 11=4 THEN Арі =%5АС0: AD2-$9BOO: A 
D32$9B40: 4D4-$9B80: QDS= 和 も 9BAO 

20140 PUT9 X5, Y5, X5+4, Y5*4. AD1, SW: PUT3 X 
6, YS, X6*4, YS*4, Ар2, SW 

20150 PUT9 X7.Y6,X7*45,Y6*5.AD3, SW: PUTƏ X 
8, Yá., X8* 5, Үүё+5, AD4 SW 

20160 PUT9 МХ+4, Ү7, МХ+11, Y7*7, ADS, SW 
20170 RETURN 

20200 SM=O GOSUB 20100 

20500 MYzMY-1:IF МҮ<1 GOTO 20510 

20501 JJ=30 

20502 БОБОВ 1000:IF (CO»O)*(JJ»O) THEN F 
OR II=1 TO 500:NEXT:JJ=JJ-1: GOTO 20502 
20505 IF ООС 1]=BO GOTO 40 

20507 GOSUB 15070: GOSUB 8500:GRAFH 11,С, 
01: GUSUS 10140:GOTO 100 

20509 " mmm END Gas 

20510 IF SC»HS THEN HS-SC:G60SUB 8500 
20520 FOR II-$9BBO TO $9D97 STEP 2 

20530 X=PEEK(II):Y=PEEK(II+1) | 

20540 LINE Х,Ү,Х+1,Ү: SOUND X/5。Y/ さ 

20550 NEXT 

20555 MUSIC "ET1REORERERZEORZERODZROC2RO- 
B2RO-4A7R1-4A42R7" 

20560 FOR II-2$9BBO TO $9D97 STEP 2 

20570 Х=РЕЕК (ІІ) : Ү=РЕЕК(ІІ+1) 

20580 LINE X,Y,X*1,Y,0: SDUND X/5,Y/3 
20590 NEXT 

20610 FOR IIO TO 18:CURSOR 10,23-II:PRI 
NT "TRY AGAIN ?":CURSOR 10,24-II:PRINT " 


20620 GOSUB 1000:IF С0=0 THEN C0=500: 605 
UB 10000 

20630 SOUND II*10-*1,19-II:NEXT 

20640 К=ІМКЕҮ: IF Kz"Y" GOTO 20 

20650 IF Kz"N" THEN PRINT &$06:GRAPH CIE 
ND 

20660 GOSUB 1000:IF С0=0 THEN CD=SOO* GOS 
UB 10000: CURSOR 10,5:PRINT "TRY AGAIN ?" 


20670 FOR IIz1 TO SOO:NEXT: GOTO 20640 
29999 ° E DEMO ШШШ 

30000 GOSUB 10000 

50010 FOR I-O TO 8 

50020 AD(I*1)-2-I*10 

SOOSO NEXT 

30040 Ср=%9000: CURSOR 2,23:PRINT "Push s 
Расе key to game start." 

30100 FOR Ј=1 TO 9 

50110 I-zAD(J) 

30120 IF I«O GOTO 30160 

50150 X-CDLIJ: Y=CDC 1+1] 

50140 PUT9 CDLI-22,CDL I-113, CDL I-21*15,CD 
[I-11*15,$9950*J132,0 

30145 IF Ү=255 THEN IzO:GOTO 30130 
30147 IF Y=0 GOTO 30160 

30150.PUT9 X,Y,X+15, Y+15, $9950+J132 
30160 AD(J)=I+2 

30170 KzINKEY: IF K<> さ 2 THEN NEXT:GOTO 30 
100 

30175 IF HS<>O GOTO 40 
50180 GOSUB 10000 

30200 CURSOR 11,35: PRINT 
30210 CURSOR 2,101:PRINT "rA 
30220 CURSOR 2,11:PRINT "| S P A C E |" 
30230 CURSOR 2,12sPRINT "tł 
30240 CURSOR 2,13:PRINT " mnim" 
50250 CURSOR 18,10:PRINT "r4 ra” 
50260 CURSOR 18,11:PRINT "| 4— ы!” 
30270 CURSOR 18,12:PRINT "ーー C w" 
30280 CURSOR 18,15: РКІМТ " uM" 
30290 PUT2180, 88,195, 95, $9910 i 
30300 CURSOR 2,17:PRINT "MASS 


mapa БСА aa с 
303510 MUSIC "+ES" 


30320 CURSOR 11,23:PRINT "Push space key 

50550 SOUND RND(100)*1,2:KzINKEY: IF K«»" 
" GOTO 50530 

30340 GOSUB 52000: GOSUB 52100: 6050В 3220 

0: GOTO 40 

31000 11=0 

51010 A=LAD[II1:IF А=0 RETURN 

31020 FOR JJ=O TO 18:SPOKE XK, 23-JJ, A: SPO 

KE X,24-JJ, 52: SOUND JJX10-*1,19-JJ 

51050 SOUND JJ*1.8:NEXT 

31040 II-II*1:XzX*1:GOTO 51010 

32000 GOSUB 10000:LAD*$9843: X11: GOSUB 3 

1000 

52010 FOR IIzO TO 120 STEP 8:PUTO3II;60,I 

1+15, 67, $9920, 0: PUT9II*8, 60, 114235, 67, $99 

20: MUSIC "RO":NEXT:MUSIC "RS" 

32020 FOR 11=48 TO 180 STEP L1:PUT3132;,I 

I;139,11*7,$98EB, O: PUT9132, II*L1, 139, II+ 

L1*7,998E8: MUSIC "КО": МЕХТ: MUSIC "RS" 

32030 CURSOR 5,10: PRINT "Down speed is 

"s MUSIC "RS"IPRINT L1," dot":MUSIC "R7" 

32040 CURSOR 5,121PRINT "Guide speed is 

"s MUSIC "RS"IPRINT О," dot":MUSIC "R7" 

32050 CURSOR 5,14:PRINT "Explosive power 

is":MUSIC "RS":PRINT " 8 dot"1!MUSIC "R9 

R" 1 

32060 IF ROzO RETURN 

32070 GOTO 32300 

32100 GOSUB 100001 LAD=$98BO: Х=1 1: БОБОВ З 

1000 

32110 FOR II=O TO 80 STEP 8:РОТӘІІ, 60,11 

+15,67, %9950,0:РОТӘІІ+8, 60, II*23, 67, $995 

Оз: MUSIC "RO":NEXT: MUSIC "R5":J-88 

32120 FOR IIs68 TO 180 STEP 4:РОТӘЈ,ІІ,Ј 

+7, I1I*7,$98F0,0: JzJ4L2: PUT9J, II*4,J*7, II 

*11,998FO! MUSIC "RO":NEXT 

521350 CURSOR 5,101:!PRINT "Down speed is 

“MUSIC "К5":РКІМТ 4," dot":MUSIC "R7" 

32140 CURSOR 5,12:PRINT "Guide speed is 

"sa MUSIC "R5S":PRINT L2," dot":MUSIC "R7" 

32150 CURSOR 5,14:PRINT "Explosive Power. 
is"1:MUSIC "RS"IPRINT " 4 dot":MUSIC "R? 

R" 

32160 IF RO=0 RETURN 

32170 GOTO 32300 

32200 GOSUB 10000:LAD-$98BF!Xz11:GOSUB 3 
1000 

32210 FOR IIO TO 120 STEP 8:PUT9II;60;I. 
I*15,67,$9940,0: PUTOII*8, 60, II*23, 67, $99 

40:MUSIC "RO":NEXT:MUSIC "RS" 

32220 FOR 11=68 TO 188 STEP 4: PUT9132, II 
159,11+7, %598Е8, 0: PUTS1 さ 2。 II*4,139, II*11 
:$98F8: MUSIC "RO": NEXT 

32230 LINE 132-L3,194,140-*L3,194:LINE 13 

2-15, 195, 140+135, 195: SOUND 100,1: SOUND 10 
,10:500Мр 50,10: MUSIC "R7" 

32240 CURSOR 5,10:PRINT "Down speed is 

"IMUSIC "RS":PRINT 4." dot":MUSIC "R7 
32250 CURSOR 5,12:PRINT "Guide speed is 
"MUSIC "RS":PRINT О," dot":MUSIC "R7 

32260 CURSOR 5.14:PRINT "Explosive power 
is":MUSIC "RS":PRINT L3SX*2*8," dot":MUSI 

С "R9R" 

32270 IF ROO RETURN 

32300 CURSOR 9,20:PRINT "Bonus points":M 

USIC "«*4E2R5":PRINT ROX100: SC-SC*ROX* 10 
32310 FOR ІІ=0 TO 199:SOUND &600-IIX3.1:N 

EXT: БОБОВ 8530:MUSIC "RS":RETURN 
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TANK 7 


199 X 4E, 世界 平和 協定 を 破っ て 再び 戦争 
を 起こ そう と 考え る 国 が 現われ て きた . 
そし て , 国際 連合 か ら 指 令 を 受け た あな 

た は , 敵国 の 戦車 工場 を 破壊 する こと に な 
ЭДЕ | ) 

画 プ ログ ラム ・ イ ン フ ォ メ ーション 


AC78—CFBF : 
(スタ ー ト B000) 


| マシ ン 語 


E» D 
。 | も うす こし キャ ラク タ に 工夫 が ほ 
_ | し いて すね 、. (O) 


電源 ON 後 , モー タ の M コ ユマ ンド を 使っ 
て リス ト を 入力 し ます . そし て , PiO'84 年 
7 月 号 の MZ-700 用 チェ ッ ク ・ サ ム ・ プ ロ 
グラ ム な ど を 使っ て チェ ッ ク ・ サ ム の 値 を 
確認 し , 間違い が な けれ ば モニ タ の S コ マ 
ンド を 使っ て 

SAC78CFBFBOOO 
FILENAME? TANK COMBAT | CR | 
раа ee 


の モニ タ か ら | 

ゲー ム 入 力 後 , 直接 モニ タ か ら 起 動 す る 
と き は JBOOO[CR | と し て くだ さい . 
の ② の ロー ド か ら 

テー に セー ー プ し た も の を ロー ド し て 始 
め る と き は , 単に テー プ を ロー ド す れ ば オ 
ー ト ・ ス ター トト し ます . 


遊び 方 

` スタ ー ト は [5| キー で す . 自分 の TANK は 
守正 の 慕 色 の も の で 。 カー ソル ・ キ ー で 上 
下 左右 に 移動 し ます . そし て , [SPACE| + 
ー で 対戦 車 ミ サイ ル を , |м) キー で 対 要 寒 ミ 
サイ ル (SR-V) を 発射 し ます . た だ し , I 
の SR-V は 最初 は 持っ て な お ら ず , 敵 の 戦車 


к 2 


PiO10 月 号 p.150 他 , 


MZ-700/ T500 ‚зу. 


TA INK COMBAT. 


の 残骸 の 上 を 自分 の TANK で 通る こと に 
より 1 発 ず つ 増 えま す . な お , 自分 の TAN 
K は 3 台 で , 残念 な が ら 増 える こと は あり 
ませ ん . 

また だ た 敵 の TANK に は 3 種類 あり , AOT 
ANK が 1 番 弱 く こ ちら の 弾 が 当たれ ば 死に 
ます (30/5). 赤い TANK は 2 番目 で , Z 
ちら の 弾 が 発射 し て か ら 16 マ ス 以 下 な ら 死 
に ます (608) が , それ 以上 な らき きめ は 
あり ませ ん . そし て , 緑 の TANK が 一 番 強 
€ (90 点 ) 射程 距離 は ほ 8 マス で す . な お , 
すべ で て の TANK と も SR-V で 撃た れる と 死 
に ます . さらに, 工場 は ぼ ち ら の ミサ イル 
で も 破壊 で き , 100 一 400 点 で す : (射程 距離 
が 関係 し ます が ). 

bi, この ゲー ム に は 4 つの パタ ー ン が 
あり , ЮК TANK は 初め 5 台 で す が 面 (S) 
が 増す に つれ て 増え 20 友 まで いき ます . 

な お , その 他 の 細か い 点 に つい て は 実際 
に ゲー ム を や っ て みて 発見 し て くだ る い 、. 


y と は 各自 で 解析 し て くだ さい . 


改造 ひ いう に は たげ る ず ま ます 2 ИЙ 
の TANK の 増やし 方 と , スピ ー ド の 調整 を 
教え ます . 

自分 の TANK の 増やし 方 は , $B01C の 値 
を 刻 えま すご だ だ や で 9 よ У ч жы на В 
な いで くだ さい. 

まだ スピー ド は , $AEC9 の 値 (現在 50) 
を 小さ くす れ ば 速く な り , 大 きく すれ ば 遅 


YA Pt 
= パグ に つい て 


バグ に な る カ か どう か わか り ま せん が 。 こ 
の ゲー ム で は 敵 の 数 が 増す た と スピー ド が 遅 
く な り ま す . 直 を そう か な と 思い まし た が う 
まく いか な い の で や め ま し た だ . 


うる 星 や つら に つい て 論争 し て いる 皆さん , 私 は その だ いて い の 人 の 意見 に 反対 で す . 
人 に お し つけ よう と し て いる 態度 が あり あり と 見 えて いる か ら で す .。 人 に よっ て アニ メ と 原作 の どちら が 面白 いか 感じ 方 は まほ まったく 違い ます 
ファ ン で ある こと に 変わ り は な いと 思い ます 。 客観 的 に どちら が 面白 いか 判断 する こと は 不可 能 で すし , だ いい ち 無 意味 な こと で す . た 
4 い ir AD ул. の に , ムキ に ENRON CEZ 極論 すれ ば, EA ag 使い な る 


表 に 簡単 な アド レス ・ マ ッ プ を 示し ます . 


瑞 残骸 
工場 PRINT 

MEM) 

B> — £ A+. $ 
SR-V 移 動 
SR-V デ ー タ を 入れ る 
自分 の ミ — 
自分 の ミサ イル ・ 
敵 の TANK 移 動 
自分 の TANK 移 動 
XY つつ 16 進 数 に 変換 
地図 を PRINT 
地図 デー タ を 仮想 V- RAM へ 


この ゲー ム は , 約 3 箇 月 か け て 作っ た も 
DTF. マシ ン 語 4 作 目 で , 作る の に は 慣れ 
て きだ も の の や は りつ らい 。 その か いあ っ 
C, 結構 いい も の が で きだ と 思い ます (Н 
分 と し て は で す よ ). ま っ , 暇 な 人 は 入力 し 
て 遊ん で みて くだ さる い そし て 20 面 まで 行 
oT 0M 8S6 (だ だ ん 行人 な いと 遇 い まず 


ー タ を 入れ る 


2) 


ムフフ ラノ ここ が 秘密 の 安全 地帯 


SCORE 188 SR-V 1 


TANK 13 


TS v 


な ぜ な ら , 皆 主 観 的 な 意見 を 他 
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v, と 言う こと に な りか ね ませ ん . 自分 自身 の 娯楽 し し て 楽し め れ ば それ で いい で は あり ませ ん か . 他人 の 好み に 干渉 する の は あま り 良 く あ ое. 
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ゆ Pi010 月 号 で あつ か まし いこ と を 言っ て すい ませ ん で し た . 実は あの ハガキ を 出し た あと .「 ポ ー ト ピア 連続 殺人 事件 」 と 「TIME 
SECRET), それ に 9 月 に 買っ た 「 サ ラダ タ の 国 の トマ ト 姫 」 の 3 つも 解け て し まい まし た 。 本 当 に すい ませ ん で し な た, PSI 「 サ ラダ の 国 の 
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四街道 市 カモ メ と よ ば れる 男 埼玉 県 A. み ず ほ 八王子 市 紫 崎 昌 二 ` 秋川 市 ネアンデルタール 渡辺 
5(O) (е) PC-8001 は いい で すね . 発売 され て か ら も う 数 年 も た っ て いる の に , ファ ン フ ァ ン や PiO РіО, 走れ スカ イラ イン な どの と て も すご い ゲ ー ム 
| Ол Qi が で て いて . 一 部 で は グラ フィ ッ ク が くさ る い // と か 言わ れ ま す が 。 ゲー ム 中 に は 気 に な ら な いと 思い ます し , 160X100 の グラ フィ ッ ク だ か 
| | ‹ Ө E ら こ そ 640X200 な ん か に 真 公 の で き な い スピ ー デ ィ な ゲー ム が で きる の で す . それ に , 昔 の I/O な ん か に は よく 「 こ ん な 小 き さい の に どう し て あ 
s. 130 Cea ウ ん な に きれ いな グラ フィ ッ ク が 描 り る の だ ろう 」 上 言わ れ て いた で は な いで すか . PC の ユー ザー の 皆さん 、 頑 張っ て くだ さい . で も MZ も 負 _ 
Dou EAM cx ode dona УНЬ А а BP a E C E RM 


BASIC 


AIM AHD FIRE 


「 ガ ガー ン ノ /」2102 年 . 遂に MZ 王国 と 
の 戦争 が 勤 発し た . MZ 王国 の 長 距離 ミサ 
イル が 我が国 を 襲っ た の だ . 

総司 官 令 に 任命 され た あな た は 果して 我 


が 国 を 守る こと が 出来 る か ノ 
画 プ ログ ラム ・ イ ン フ ォ メ 


ーション 


` | オー ル BASIC の わり に は , 反 応 が 
— 速い よう で すね . (0) 


と 1 個 の 


我が国 の 陣地 に 10 個 の 基地 ӨШ) 
火薬 庫 (X) を 配置 し , MZ 王 国 の 陣地 に 配 
置き され て いる 基地 を すべ て 破壊 せよ . た だ 
L, MZ 王国 の 基地 を すべ て 破壊 する 前 に 


我が国 の 基地 が 全 減 の 場合 は , 我が国 の 敗 
tu ЧЖУ 5l25Uv. 


ER 


火薬 庫 を 破壊 きれ た 国 は ダメ ー ジ の た め 
に 2 回 分 の 戦闘 能力 を 失 な う . 基地 は , АД 
方 どこ に 建設 さき され て いる か は 判ら な い . Z 
こ で 君 に 2 枚 の 作戦 図 を 渡し て お こう . X 


HE (MZ) と 書か れ た 作戦 図 を 利用 し 


1$ X. 

「Y Il[Nl[e |[』| で 照準 を 合わ せ , [SPACE] で 
ミサ イル を 発射 し た り 5 基地 を 建設 し だ た りす る 
の だ . 作戦 図 の 画 の 地点 は 障害 ブロ ッ ク で 
Pb, 基地 の 設置 は お ろか 攻撃 も も でき ない. 
最後 に コン ピュ ー タ に よさ る 攻撃 情報 に つ 
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表 1 行 番号 マッ プ 


初期 設定 I 

初期 設定 II 

先攻 決定 

MZ 方 基地 ・ 火 薬 庫 配置 
人 間 方 基地 ・ 火 薬 庫 配置 
主 プ ログ ラム 

人 間 方 攻撃 

MZ 方 攻撃 (LEVEL 2 ) 
MZ 方 攻撃 (LEVEL 1) 
コメ ント クリ ア SUB 
キー 入力 SUB 

初期 画面 SUB 
DEMO 画 面 

GAME OVER 


いて 説明 し て お こう . 君 が 攻撃 し た と き に 
限り , その 地点 に お いて の 情報 が 作戦 図 に 
自動 的 に 書き 込ま れる が , それ ら は ※*… 破 
壊 。 ? … 周 囲 8 地点 の どこ か に 少な く と も 
1 つっ 存在 , x… 周 囲 に 存在 せ ず , の 3 つ だ . 
た だ し , 基地 か 火薬 庫 か は 破壊 し な い 限 5 


不明 で ある か らく れ ぐ ど ぐれ も 注 意 す る よう に . 


その 他 に つい て は 。 の DE un 
タ の モニ タ 下 部 に 命令 きれ る の で これ に 徒 
っ て 欲し い . も う 時 間 が 無い ./ 一 刻 も 早く 
est 


70750818 


rior ocio с 
ў. 全 374 行 ,。 サイ ズ は 約 7.7KK バ イト あり 
33. 

LEVEL1 と LEVEL2 の 違い は 強 る で は あ 
り ま せん . 表 1 に 行 番号 マッ プ , 表 2 に 変 
数 表 を 示し ます か ら 忠 な 人 は 解読 し て みる 
と 良い で しょ よう 。 

is, LEVEL2 で ゲー ム を する と 勝っ だ 
国名 が 記録 る され ます . 
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DIM BC25. MC25 HES? 
178 FOR 1=1 TO S:N$CIDz"- - — "NENT 
1980 REM: s= 

288 B<(1>=108:B(2=10:FE=0 

218 FOF I=1 TO 9:FOR J=1 TO 9 

220 MICI. Ј2=0: 241. JozasUucI, 5-8 

238 MEXT J:MEXT I 

240 GOSUB 20000: REM --- TITLE 

298 REM 
268 IF A$="1" THEN 
278 IF R#="2" THEM R=1 
288 GOSUB 13000 

29 FOR I-1 TO 20 
ATINTCRHD£ 129541 
"=INTCRNDC 1 )* ネ 9)+1 
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人 間 側 陣地 の 座標 デー タ 
MZ 側 陣地 の 座標 デー タ 


共通 、 4 : 周囲 に あり 
: 周囲 に な し 
: 残骸 

: カー ソル 
MZ 評価 デー タ 
ET 


ы a сл +. соо м — O 


1 : 可能 性 1 
2 : 可能 性 2 
3 : 可能 性 3 
4 : 可能 性 0 
残り の 基地 数 


=[ چ 25 


この の と た ム は Tiny » ミー ジー ジ УЗЕ 
いう 雰囲気 で , 簡単 に 遊べ る 様 に 作り まし 
だ た 、 頭 の トレ ー ニ ング に は な る と 思い ます 
か ら , ぜひ 入力 し て 遊ん で 《 だ さる 
K3 参 考 文献 
1) マイ ュ コン ・ ゲ ー ム の 本 [1|, 工学 社 
2) マイ コン , "83 年 3 月 号 , 電波 新聞 社 


オヨ ョ ヨ . ノ いっ た い ど こ に … 


BASE ATTACKER BASIC リス F maw; s 


M=1: MT=1:GOSUE 11000 
MT=2: GOSUE 11000 


GOSUB 1686680868 
418 РЕІНТ"> DECIDE THE TURH" 
42 MUSIC M1$."R?" 

430 GOSLIE 1886468 


456 GET R$:IF A$=" " GOTO S18 

466 CURSOR 1.;23:PRINT"? PUSH [SPRCEJ" 

478 MUSIC"RS" 

480 GET H$:IF A$=" " GOTO S18 
CURSOR 1, 25:РКІМТ" > PUSHI _ 


1" 


いつ の 日 か きっ と PC を 越え て みせ ます . 絶対 
( ぁ の PCvsMZ の 時 代 の 復活 を 願う MZer) 


ius Bi 


DUNS AN 


pio 


BASE ATTACKER BASIC) X F 
aa GOTO 4 


- 118880 PRINT"4":RETURN: ーーーーーー НЕН: IN 


3198 IF X1€X.V522 GOSUB 3340:M=6:B(1)=B 


4й 
T2INTCRHDC12*25*1 


“12-1: GOTO 3440 11898 PRINT" ?": RETURNS ーーーーーー 4 AROUND 
520 USR(62) 3200 IF N1CX.VY5»-23 GOSUB 53490: М‹2)=2:М=6 11188 PRINT"X":RETURN: ------ S NO RESP 
S3 GOSUB 188606 :G0TO 34468 11118 РЕІМТ "ж": RETURN: ------ 6 WRECK 
940 日 =N ま (Di IF T=2 THEN A$="MZ" 3210 FOR I-X-1 TO X+1 11120 PRINT"£S":RETURN:------? CURSOR 
998 PRINT"5» ":R$:" FIRST !" 5220 FOR J=v-1 TO Y+1 КЫ Кы ык ыз, ^o - 
560 MUSIC"RƏR" 3238 IF<I=x)*(J=v> GOTO 3260 12000 C= 


570 REM ---------- 

tan FOR I-1 TO 16 

&18 X-INT&RHDC1»:*9254*1 

628 V-2INTCRNDCIO«9»541 

658 IF х2‹%, 2420 GOTO вій 
648 HAR. YI=2 

658 HEXT I 

&6B8 X-IHTCRHDC12:9241 

670 V-INTORHDC1?*9241 


12018 M-X2C0X;. YD: IF MT=1 THEN MzX1€CX.V5 
12820 CX-C(MT-12:*204X*2-1 

12038 Сү=4+(ү-1 )ж2 

12040 CURSOR СХ, СУ 

12050 С=С+1:6ЕТ Я: РОКЕ 17826,0 

12060 IF H$-"V" THEN YY=Y-1: 50508 12180 
12070 IF A$="N" THEN YY=Y+1: GOSUB 12180 
12050 IF A$="G" THEN XX-X-1:G0SUB 12188 
12098 IF H$-"J" THEN XX-X*1:60SUB 12189 


IF X1<I,J>=2 GOSUB 35340: M=5: GOTO 3 
IF *1€I,J5»-23 GOSUB 3349: M=5: GOTO 3 


NEXT JiNEXT I 
3278 FOR I=x-1 TO Х+1 
3288 FOR JzV-1 TO V41 
3298 UCI, J»-4 

au Ј:МЕХТ I 


680 IF X2x: ITA GOTO 6668 M= 12108 IF Я$=" " THEN IF RE=0 THEN RE=1: 
690 REN. Y0 =3 GOTO 3440 RETURN 

HE NEN oM REM ---------- 12110 IF R$-" " GOTO 12130 

S00 GOSUB 1868086 FOR I=x-1 TO %+1 12128 RE-6 


12138 IF C«3 THEN М=7:50Т0 12160 

12140 IF C»5 THEN С=@ 

12158 IF&MT-225:*CCM225 * CM2 S»? THEN M=@: IF 
SAN: Y2=1 THEM М=1 

12160 GOSUB 11000 

12174 GOTO 12010 

12188 IF YY>3 THEN YY=1 

12198 IF YY<1 THEN YY=9 

122080 IF XX»9 THEN KR=1 

12218 IF X41 THEN ХХ=9 

122280 IFCMT220»*CCMz25*CM232)» THEN М=0: IF 
RAN: Y2=1 THEM M=1 

12238 GOSUB 11900: Ka: = リリ 

12248 C-8: RETURN 

122390 REM. エン ーー ャ と ェ ャ ーーー 


818 FRINT" > SET 18 BASES (Д)" 

828 MUSIC М1 

S838 MTz1:X25:VY25: X25: Y=5 

640 FOR I-1 TO 18 

850 GOSUB 12000 

IF S1CN.VO«»6 THEN MUSIC M2$: GOTO 8 


USRCG2) :X1€3, V)821 M=2: 60SUB 118688 
550 МЕХТ I 

690 GUSLE 180800 

988 PRIHT"> SET 1 MAGAZINE (#)" 

918 MUSIC M1f 

920 HSD: 28: XK-5: "= 

33 GOSLI 12000 

IF KiC Y2 >d THEN MUSIC M2$: GOTO 9 


3350 FOR J=v-1 TO Y+1 
3368 IF UCI, J)=4 GOTO 3400 
IF ХіХ, "5 う =2 THEN UCI, J?z8:GOTO 34 


IF X1€X,V5-23 THEN UCI, J»-8:GOTO 34 
UCIsJOosUCIs J2*1: IF UCI.JOz4d THEN U 


3488 NEXT J T:HE#T I 
3410 UCK, YY=4 N1 CN, =l 
3428 RETURN 

5450. REM. =i 

3448 FOR I-G TO 8 

3458 ММ=М: М=0: 50506 1166880 
3468 M=MM: GOSUE 11600 


3470 NEXT I 13888 PRINT" м". BASE ATTACKER am"; ТАВ 
USRC62)IX1CRJV う = M=3: GOSUE 11000 3480 RETURN (32); "LEVEL ":А$ 
MT=T i 3490. REM 2 13018 CURSOR 0, 2:PRINT"L":N$C055 "]" 


13828 CURSOR 28.2:PRIHT"ELMZ1" 

13838 J= ロ 

13848 CURSOR 7+12, 2: PRINT"BASE іа" 
CURSAR J, SPRINT" ーー 


FÜR 1=4 TO 20 STEP 2 
CURSOR J.I PRINT“ 1 1 1 111 


CURSOR J.I*1:PRINT" ヒーー オ ーー オー トー 


NEXT I 
CURSOR J;21: PRINT" ルル 


IF J=g THEN J-28:GO0TO 13040 


MT=T+1: IF MT=3 THEN MT=1 
1818 IF R=1 THEN ON T GOSUB 2900, зада 
1020 IF R-2 THEN ON T GOSUE 2900, 4000 
1838 CURSOR 16.2:PRINT Вс1›:" " 

1040 CURSOR Z6.2:PRINT BC253" " 

1858 IF M<(T)<>@ GOSUE 1119:60Т0 1010 
18680 IF BCNT)=g GOTO 21886 

1878 N=N+1 

1888 T=T+1: IF T=3 THEN T=1 

1090 GOTO 1000 

1100 REM ----- 

1118 GOSUB 10000 

IF M<T)=1 THEN PRINT"> SKIP":MUSIC 


IF M<T5>=2 THEN PRINT"? MAGAZINE '" 
:MUSIC NM さま 
1148 MT)=HMXT)-1 


4444 GOSUBE 106808068 

4018 PRINT" > М2 *5 TURN" 

4020 MUSIC Mi を 

4030 FOR K=2 TO 1 STEP-1 

4848 FOR 1=9 TO 1 STEP-1 

4050 FOR J-9 TO 1 STEP-1 

4060 IF UCI, T=K THEN X2I:VY2J:GOTO 41368 
4070 NEXT Ј:МЕХТ I:NEXT K 

4808 REM -——-- 

4098 X-INTCRNDC12*95*1 

4100 V-INTCRNDCI2*95*1 

4118 IF UCX,Y5-24 GOTO 4096 

4120 REN ニッ ーー 

4130 FOR 1=50 TO 150 STEP 16 

4140 М=7: 60506 11000 

4158 POKE 4514;1:POKE 4513. I:USRC68) 
41680 M-8:GOSUB 11000 

4170 NEXT I:USR(C?1) 


CURSOR 26;:22:PRINT" ү" 


1158 RETURN 4188 REM ----- 13160 CURSOR 26.23:PRINT"G J + [SPHCE]" 
1160 REM ---------- 4198 IF X1CX, V2=2 GOSUB 4340:M=6:B(1)=B CURSOR 26;24:PRINT" N"; 

2000 GOSUB 10000 (15-1:60TO 4450 

2010 PRINT"> TAKE AIM AND FIRE !" 4200 IF X1CX,V2-23 GOSUB 4340:M(2)=2:M=6 || 13198 REM ---------- 

2828 MUSIC M14 :GOTO 4450 PRINT"E" 


2038 х=5:Ү=5:Хх=5:ү'\ү=5 

2048 GOSUB 12000 

28058 IFCX2C€X» 2-210 *CN2CX, V)Z6D) THEN MUSI 
C M2$:GO0TO 2040 

2060 REM ----- 

2878 FOR 1=5 TO 158 STEP 1@: 

2088 М=7: GOSUE 11808 

2098 POKE 4514.1:POKE 4513.I:USR(C68) 
2100 М=0: 50506 11000 

2118 NEXT I:USR(C?1» 

O NEN — 5 

2138 IF W2604.V022 THEN B¿é2x=BE<21-1:M=6: 


20018 CURSOR 16;18:PRINT"RSE" 

20020 CURSOR 22, 17: РЕІНТ"ТТАСКЕЕ" : 
20038 POKE 4514.1:POKE 4513: @:USR(68) 
20048 FOR I=0 TO 6 

20050 CURSOR 12,1  :PRINT" g 

20068 CURSOR 12,I+1:PRIHT" へ" 

20070 CURSOR 12, 1+2: PRINT"L ^" 

20080 CURSOR 12, I*S:PRINT"| *" 

20090 CURSOR 12, I*4:PRINT"L ^" 

20100 CURSOR 18;20-I:PRINT'"/ ^" 
20118 CURSOR 18;21-I:PRINT"| |" 

20128 CURSOR 18:22-I:PRINT"T 1" 


4210 FOR I-X*1 TO Х-1 STEP-1 
4220 FOR J=v+1 TO v-1 STEP-1 
4238 IFCI-MD*C(J-2V) GOTO 4260 
IF х1С1,.Ј2=2 GOSUB 4348:M-5:GOTO 4 


IF ХІСІ,Ј)=35 GOSUB 4340:M-5:GO0TO 4 


NEXT JiNEXT I 
4270 FOR I-X*1 TO X-i STEP-1 
4280 FOR J-vY*1 TO V-1 STEP-1 
4290 UCI, Ј)=4 

4300 NEXT Ј:МЕХТ I 


MEN: YI=6 GOTO 2220 4318 М=5 20138 CURSOR 18:23-I:PRINT"| |" 
2148 IF M2CWN.V5»-23 THEN MC1522:M-6:X2CX. 4320 GOTO 4450 20140 CURSOR 18,24-I:PRINT" "1 
vozeé:GOTO 2228 4550. КЕМ. ーーーーーーー ニ ーーー 20158 NEXT I 


2158 FOR I-X-1 TO #+1 18; 5: PRINT "a'a a u a a a a a a u"a aaa" 
2160 FOR J=v-1 TO Y+1 


2170 IF Х2<1.7)=2 THEN M=4:X2(X,V)=4:60 


D. 2220 

2180 IF #2CI, T=3 THEN Mz4:X2(X, VI=d: GO 
TO 2220 

2190 NEXT JiNEXT I 

2200 M-5:X204,.v5-25 

ARIO REM . ヤ ャ ーー ニー 

2220 FOR I=0 TQ 8 

2238 ММ=М: М=0: 560508 11008 
М=ММ: GUSUE 11000: МЕХТ I 


4540 FOR I-X*1 TO X-1 STEP-1 

4358 FOR J=v+1 TO Y-1 STEP-1 

4368 IF UCI.J5-24 GOTO 4400 

4370 IF KR1CX。V)=2 THEN UCI;JOsUCI; J-1: 
GOTO 4400 

4380 IF ХіХ, V2=3 THEN UCI;JOosUCI, J-1: 
GOTO 4400 

4398 š ы api Рау MCI,Joz3 THEN U 
' KI, D= 

4400 IF UCI, viae gi THEN UCI, Ј®=а 

4410 NEXT JiNEXT 

4420 UCK, y»24: ІХ, =1 

4438 RETURN 

4440 REM ----- 

4458 FOR I= TO 8 

44680 MM-zM:M-68:GOSUE 110608 

4478 M-MM:GOSLUE 11888 


CURSOR 


20170 FOR I-6 TO 18 
28188 CURSOR 19, I:PRINT'"- " 

20198 CURSOR 38; І: РЕІМТ" В" 

20200 NEXT I 

20210 CURSOR 18, 19: РЕІНТ "s's sau aua a a a aaa" 


т CURSOR 20, 22:РЕІНТ "Вт KENSUEE ARA 


20238 MUSIC M$ 
20240 PRINT"EZZZEZGUWMEEE EASE ATTACKER 


20258 CURSOR 5. 3:PRINT "YOU WILL HAVE TO 
MAKE WAR" 
20260 CURSOR 14: 5S:PRINT"AGAIHST “EINGDO 
nur e a kR 


60508 10000 
3010 PRINT"> MZ^S TURN" 
5020 MUSIC М1$ 


3050 FOR K-3 TO 1 STEP-1 4480 NEXT I 20270 CURSOR 5, ri PRINT"TELL ME THE МАМЕ 
3040 FOR I=1 TQ 9 4490 RETURN OF YOUR NATION. 
5050 FOR J-1 TO 9 4500 REM ---------- 20288 CURSOR 10,9: INPLUT" > "3N ま CB 


20238 IF LEHCN$CEDO«9 GOTO 28318 

20388 CURSOR 180.:11:PRINT"TOO LONG !":MU 
SIC M2$:GOTO 280246 

20318 USR(62)5 

203280 CURSOR 5.11:PRINT"LEUEL [1- J?" 
20338 GET R$:MUSIC"R2" 

28340 IFAF="1")+C A=" 2" GOTO 20390 
20350 CURSOR 5:11:PRINT"LEVEL С #21?" 
28368 GET Н%:МИ51С"Е2" 


3060 IF UCI.J?-K THEN X-I:V2J:GOTO 3138 
3070 NEXT J:NEXT I:NEXT К 
5080 REM ----- 

3898 X-INTCRNDCID*95*1 
3100 V-INTCRNDC12*9541 

i Nn =4 GOTO 3898 
FOR 1=5@ TO 158 STEP 180 
3140 М=7: 60508 110900 


10000 CURSOR 1. 23: PRINT SPC(21»5 

10010 CURSOR 1:23 

18828 RETURN 

10030 REM ーーーーーーーーーー 

11888 CX-C(MT-12*20*X*2-1 

11010 Су=4+сү-1)ж2 

11828 CURSOR СХ, CY 

11838 ON М+1 GOSUB 11050, 11068, 11070,11 
OSG, 11090, 11100, 11119, 11120 


5150 РОКЕ 4514, 1:РОКЕ 4513. I:USRC68) 11848 RETURN - | 20376 IFcH$-"1"5«Ca$-"2'0G60TO0 28338 
3168 M-8:GOSUB 11000 11058 PRINT" ":RETURN:------ 9 SPACE 28388 GOTO 28328 
11868 PRINT"B":RETURN: -—---- 28398 USRCeé25 


NEXT I:USR(C?1» 
REM 


11070 PRINT"E":RETURN: === 20400 PRINT"ESEEZZZHMEMNENEE BASE ATTACKER 


PEDE, RUEROLIUM.CCLFIOERCECLCLRGRUR (43277 4). 1, VA TROROLERPES COE TEE 

り ま せん か / な ん て 幸せ 者 な ん だ ろう 僕 っ て (PiO10 月 号 p.92). Р.5.1 10 月 号 p.66 の 人 , えら いで すね . 隠れ コマ ンド な ん か 。 どう や っ て 

b, 捜す ん で すか 7? — P.S.2 10 月 号 p.24 の 人 , それ で ぐらい どう っ て こと な いじ ゃ な いで すか 。、 はずかし な が ら 。 僕 は 「 ミ ステ リー・ ハ ウス 」 を 買 
tA ma Le e まだ 解け ませ ん. て も ишекке АН Dad も の な ん で す . Р.5.3 や っ た 一 , つい に 彼女 — 


ç * ”> A ү J 1 MT 1 $ "S Z 
"s LER io ME SLM УКО АДУ Y š i СА , AZ WS 4 рМ у 
ET IS. AAS NA раде な > vbt dde no ut S же КЕ AS КИ WEAR QAO TR 
а CET "ЖУН, 46, UD AA XC sed まお УЛ sct MS ます アコ ї Е ES. DM A уи 
iA: Parto v CLP TURA, 2 Y ; SEGI SSE y Ый ik: НУ, а E E ua qt 


f q 


| の と き , 


CURSOR 168,3:PRINT"S WIMHING NATIO 


! FOR 1=1 TO Š 
CURSOR 13: S:PRINMT"CLEUEL 225" 
CURSOR 12, I*2*6 | 
PRINT Is" "SN を CI 
NEXT I 
M 
R 
A$="G AME OVER" 
GOSUB 21230 
IF T=1 THEN R#$=H#<@)>+" WON !''":IF 
BC 1)=1 THEN 日 ま =N ま (ロロ)+" WON NARROWLY" 
050 IF Т=2 THEN A$="MZ WON ..." 
GOSUB 212368 
IF T=2 GOSUB 21320 
GOSUB 1868808 
CURSOR 1;23:PRINT"TRVY AGAIN [v^ ] 


MUSIC"R2":GET R$ 

IF R$-"V" GOTO 21160 

IF A$="N" THEN PRINT"B":END 
CURSOR 1,25: РЕІМТ "ТЕУ AGAIN С -NJ 


MUSIC"R2":GET R$ 


199 х 年 , 日 本 は 大 気 汚染 に よる 温室 効果 
の た だ ため, 冬 で も 30 度 を 下らない 異常 気象 が 
続い て い だ た. そし て , 今 ま で ロス トワ ー ル 
ド に 住ん で いた 恐竜 の 子 孫 た な ち が , 名 古屋 
港 に ひょっこり と 現われ だ の だ. 

「 ま ずい / 港 に は 海外 輸出 用 の PiO と 1/ 
O が 山積 みき れ て いる ん だ アグ 」 

工学 社 は あわ て ふた だ めい て , あな だ に ホ 
イス ト を 使っ て 回 収 す る よう に 命じ た . 
ゲー ム の 説明 

左端 に ある 荷物 を , 時 間 が な く な る まで 
に ホイ スト で 右端 の トラ ッ ク に すべ で て 乗せ 
ます . 荷物 は 1 個 ト ラッ ク に 乗せ る ご と に 
50 点 で , 1 面 で は 6 個 乗せ る と 面 ク リア で 
4. そし て , 1 面 進む ご と に 運ぶ 荷物 が 1 
個 ず つ 増 えて ゆき , 3 面 ご と に ホイ スト の 
高き が 荷物 1 個 分 上 り ま す . な お , 荷物 は 
最高 12 個 まで 増え ます が , タイ ム は 増え ま 
"T^. | ) 
また だ , 途中 恐竜 が 邪魔 を し て きま す . я 
イス ト の 左右 移動 と , GIO КГС? z < 
か わし て くだ さい . 荷物 は ホイ スト の 移動 
に よっ て 揺れ る の で , 少し 移動 し て は 止め 
る を 繰り 返す か , 図 1 の 方 法 で 揺れ を 止め 
て くだ さき さい. 揺れ が 大 きく な る と 荷物 が 海 
に 落ち て し まい ます (ミス は 3 回 まで で 
+). 

そして, トラ ッ ク に 荷物 を 乗せ る と 走り 
云っ て いき 。 まだ すぐ に 戻っ て きま す 。 І 
と きど き 鉄 の 塊 を 運ん で くる の で 
これ を 少し 揺らし な が ら 恐 竜 に ぶつ ける か , 
恐竜 の 頭上 に 落す か する と 恐竜 は 「 ア ン ギ 
ャ ー ノ /」 と 叫ん で (で つ に 叫ば な く て も よ 
v) 海 に 沈み ます . また , この 鉄 の 塊 は 沙 
し て お か な いと 次 の 荷物 が 運べ で ませ ん . 

な お , 家 に 恐竜 の 特性 な ど を 示し ます . 


IF A$="Y" GUTU 160 

IF A$="N" THEN РКІМТ "Е": ЕМО 

GOTO 21870 

LUSR(62) 

IF R=2 GOTO 21210 

IF T=2 THEN N$ca»z"KINGDOM OF М2" 
FOR 1=5 TO 1 STEP-1 
N$CIDPZN$CI-1»5 


GOSUB 10000 
FOR I=1 TO LENCH を ) 
CURSOR 1:23 
21260 IF RIGHTSALEFT$CR$; I>), 1)=" "THEN 
MUSIC"R2":GOTO 21298 
21278 PRINT LEFT ま CH を , I2: USRCOE2D 
21280 NEXT I 
21290 MUSIC"R9RS" 
21388 RETURN 
21318 
21520 GOSUB 10008 
21338 PRINT"? М2 ^5 BASE"; 
21340 IF В‹2)>1 THEN PRINT"S" 
21358 MT=2 
213680 FOR x=1 TO 9 


表 恐竜 の 種類 と 特性 


海中 か ら ゆ っ くり と 首 を の ば し て 荷物 を 落と し 


ます 


海中 か ら ガ バッ と 出 て き て 上 空 に 炎 を 吐い て 


荷物 を 燃やし ます 


左右 か ら 高 速 飛 来 し て きま す . これ に 荷物 が 


当たる と 揺れ 出し ます 


[x] 1 
揺れ だ し た ら 


HI-SCORE 3000 


ムッ シッ シー m 荷物 


が で きた だ た ぞ /(Tomoko さ ん と 今日 子 ち ゃ ん の ファ ン で 彼女 が で き て よろ こん で る マー 君 ) 


A * EA 
3-06 


` ij? 


ї, 


:USRCe2) 
: USECEZ) 


50001 REM * * 
30002 REM * BRSE RTTRCKER * 
30005 REM * * 
30004 REM ж FOR * 
30005 REM * * 
50006 REM ж MZ-3S0K/C 1200 ж 
30007 REM ж 5Р-5@3@ * 
50008 REM ж ж 

ж 


BASE ATTACKER BASIC リ スト 


21370 FOR "=1 TO 
21388 IF KZCN, VW)=2 THEN M-2:GÜ0SUB 11000 


21398 IF X2(X,V523 THEN M-3:GO0SUB 11888 


21406 NEXT V: NEXT Ж 

21419 RETURN 

380060 REM ekkki kk tok kkk 
R 


30009 REM ホホ ポポ ホネ ポポ ポキ ポポ ポキ ポポ ホホ ポポ 


※ 出 現す る と き の 効 果 音 


頭 の 上 を 通過 し ます 
炎 を 吐き 終わ る の を 
待っ て 通過 し ます 
荷物 を な る べく 下げ 
て お きま す 


ホイ スト 
荷物 が 前 に 出 た と き に ホ 
イス ト を 前 進 さ せる 

_( 逆 で も よい ) 


пас жә 
も し く は 止ま る 


WS 


k: Y. 


Sg 


た | Р Qu 
4 3 $ ЖА? 133 
"NT j м RE Ç 
a OTE > " Tow i ` 


ETE V MERE ra e T ER SEQ АА 
Pad WE ОЕР РОТ OSS от Е оаа OLE 
АМСАР RD ESL ОДРЕЧЕ 


東京 は 浅草 の 観音 裏 . その 空地 に 住む と 


いう 幻 の 大 蛇 , へ ビ ヘ へ ビ 君 が と て も 奇妙 な 
問 気 に か か っ て し まい まし た 。 体 が どん ど 
ん 延び て し まう と いう , 恐 し い 病 気 で す . 
し か し へ ビ ヘ へ ビ 書 も 生き 物 の は し くれ . I 
サ を 食べ な けれ ば な り ま せん . さて , この 
へ ビ へ ビ 君 を あな た は どの くく らい 長生 き さ 
せ て あげ られ る か ググ 

TET MP イン フォ メー ショ ン 


ы BASIC 2% 
| マシ ン 語 FA40~FFFF 


к | へ ビ の 動き や 表情 が と て も ユニ ー 


Af s $ 
d 


є 
Ain 
ira zi 
この プロ グラ ム は 3 つ に 分 か れ て いま す . 
まず , リスト 1 の 初期 設定 1 プロ グラ ム を 入力 , 
セー ブ し ます . XU, CLEAR, &HFA3F[R 
ETURN | を 必ず 実行 し た 後 , リス ト 2 の マ 
ダン 語 ゲ ログ ラム を モニ タ で 入力 。 先 の BA 
SIC ブ ログ ラム の す で YY 後に セー グ し ます 。 
最後 に リス ト 3 の BASIC デ ログ ラム を 入 
JH, マシ ン 語 ブロ グラ ム の 後に モー し て 
終了 で す . どの ブロ グラ ム も 完成 する まで 
は 絶対 に 走ら せな いで くだ る い . RÆTT 2 


恐れ が あり ます . ui, ファ イル 名 は それ 
ぞ れ 自由 な つけ て くだ さい 


[5РАСЕ] + — を 押す と ゲー ム が 始ま り ま 
+. へ ビ の 移動 は [sl[2|[4|[e| で 上 下 左右 に 
動き , 一 度 キ ー を 押す と その 方 向 に 動き 続 
け ま す . 

ルー ル は い だ っ て 科 単 . と に か が かく 画面 上 
に ある エサ を すべ で て 食べ つく せ ば 1 ステ ー 
ジ ・ ク リア で す . この ステ ー ジ は 1 一 4 まで 
bó, ステ ー ジ 4 を クリ ア す る と コー ヒー 
ブレ イク が あり ,・ 多少 難し く な っ て まだ ス 
テー ジ 1 から 始ま り ま す . ` 

な お , へ ビ の 死ぬ 条件 は 自分 の 体 を 食べ 


э 


初期 設定 2 

初期 設定 3 
コー ヒー ブレ イク 
дъ злуч 
ゲー ム ・ オ ー バ ー 処 理 
ハイ ・ ス コア 処理 

へ ビ 死 亡 処理 

エサ を 食べ つく し た 時 の 処理 
サウ ンド 

x 1 
ステ ー ジ 2 
バテ ー ジ 9 
ステ ー ジ 4 

スコ ア な ど を 表示 
文字 列表 示 

デモ 


表 2 変数 表 


スコ ア の 1/10 
ハイ ・ ス コア の 1/10 
ハイ ・ ス コア 者 の 名 前 


ヘビ の 数 

面 数 
食べ る べき エサ の 数 
ステ ー ジ 数 

ボー ナス の 1/10 


る ( 頭 が 体 に ぶつ か る ), # 4 秒間 以上 動か 
ず に いる ,。 ステ ー ジ 4 に 出 て く BES 
を 食べ る の 3 つ で , この 場合 は その ステ ー 
ジ の 初め か ら ゲ ー ム が 始ま り ま す . 

そし て へ ビ は 初め 3 匹 い て , 全部 死ぬ と 
ゲー ム ・ オ ー バ ー。 スコ ア が 10 位 以内 に 入 
る と 名 前 が 登録 どき ます . この 名 前 は 長き 
12 文 字 ま で , А-7, 0 一 9 と 小数 点 な ど が 使 
IE di 0 

= үз: АР ОГ Е ТАБА Ж» qO оне Ы де 
す 。 そこ て も つも オリ ジテ チリ チイ を たる 
だ め , いく つか の 隠れ フィ ー チ ャ ー を 付け 
ted E. 
ヒン ト 1 : ステ ー ジ 1 で の み , へ ビ の 長き 
を 100 キ ャ ラク タ よ り 長 くす る と スペ シャ 


- ル ・ ボ ー ナ ス が も ら え , へ ビ が 1 匹 増 えま す . 


ント 2 : コー ヒー プレ イク で 。 その と き 
の スコ ア が ある 結果 に な る と カッ プ に フル 
ー ツ が 入り, 5.000 点 の ボー ナス が も ら え ます . 
ヒン ト 3 
を 入力 する と き 
が 名 前 を 書き 換え て し まい ます . 

以上 の カギ を 解く の も 楽し み の 一 つ だ と 
思い ます 。 


・ ス コア が 10 位 以内 に 入り , 名 前 
に の る と UET EE Жыш" 


画面 の 読み 込み 

в W 

へ ビ 表 示 

文字 列表 示 (BCD) 
文字 列表 示 (ASCII) 
1 文字 表示 


表 4 ワー ク ・ エ リア 


キー 入力 タイ マー 
頭 の 色 

体 の 色 

進行 方 向 

へ ヘ へ ビ の 長 さ 
体 の 増分 


へ ビ の X, YES 


NS) он ДА Ў 


ヌル ・ キ ャ ラク タ 
へ ビ の 体 
^. EO 1 
へ ヘビ の 顔 2 
へ ビ の 顔 3 
^. EORR 4 


77 A DD] 


ъъ ビ の 移動 や 表示 . 文字 の 表示 を マシ ン 
語 で 組み , メイ ン ・ ル ー チ ン は BASIC 内 に 
あり ます . 画面 を 書く とき に ダ ラダ ラ と 書 
いて いく の は あま り め 気 分 の よい こと で は な 
CDT, スク リー ン 2 に 書き 終わ っ た だ た ら ペ 
ー ジ を 切り 換え て いま す . 

な お , FE7FH か ら の 文字 列表 示 ル シー チン 
は ゲー ム 作 り に 必要 な サブ ルー チン で す . dh 
い 方 は , メモ リ 上 に 文字 列 を 置き , HL レジ 
スタ に その 先頭 アド レス , B レ ジス タ に 長 
る を 入れ て コー ル す れ ば 表示 し ます . 読者 


の 和 皆 き ん も この ルー チン を 使っ て みて くだ 


る v, 


p PiO パ ー ツ に 投稿 し て いる 方 に 一 言 / 最近 PiO パ ー ツ の キャ ラク タ に 載っ て いる 物 に , ドッ ト で な くだ た だ の 絵 で 投稿 する 人 が いる . ま あま 
あ ア イデ ア と し て 見 て みれ ば ょ よく で き て いる も の も ある が , 中 に は 16X16 で も 表 わ せ な いよ うな 絵 も ある . 投稿 し て いる 人 (た ぶん , 小 中 学 生 
だ ろう ) は , C КЫ RE e ako SE e Ska usis б Дд Е Аа. 反論 待つ / | 


( 元 福 mkl ユ ー ザ ー ー の 佐藤 0 


リス ト 3 の 行 番号 マッ プ や リス ト 2 の ア 
ド ビ ピス ・ マ ッ プ な ど を まとめ で ある の で , 
この ブロ グラ ム の 解析 , 変更 の た め に 利用 
КЖ ый 54 


6 月 号 で 予告 し た “大 東京 トロ ビア ン " 
は 結局 す で 出 来 上 が り ま し だ ただ. しかし, € 
ざ や っ て みる と まっ だ く 《 く オモ シロ ク な い の 
С, これ で は 皆さん に 申し わけ な いと 思い 。, 
急い で この ゲー ム を 作り まし た . この 誠実 


° KC CIC E Y E E JC ЗЕ JE JE JE JE E Je € € E JE 9€ E E € EE 3€ 
'4** PLAY НЕВІ HERI READ P. +++ 
Cae 1984.7.7 (SA) +++ 
'4** SANYA SOFT WARE inc.  *** 
° K JC JC ЭЕ ЭЕ CJ € NXX € JE ЭЕ ЭЕ ЭЕ ЭЕ 9E E ЗЕ ЗЕ 
f ショ キキ セッ ティ 1 
CLEAR う の の , &HF AZF 
DEFCHR$ (НЕО) = "SC7EFFFFFFFFFFFF " 
DEFCHR$ (&HE1)-z"FFFFFFFFFFFF7ESC" 
DEFCHR$ (&HE2) =" 3F7FFFFFFFFF7FSF'" 
DEFCHR$ (&HE3) ="E の FBFCFEFEFFFFFF" 
DEFCHR$ (&HE4) ="FFFFFFFEFEFCFBE の @" 
DEFCHR$ (&HES) -"FFFFFF7F7F3F1F07" 
DEFCHR$ (НЕЬ) -"071F3F7F7FFFFFFF" 
DEFCHR$ (&HE7) "FFFF7FS3F3F7FFFFF" 
DEFCHR$ (&HEB) "FCFEFFFFFFFFFEFC" 
DEFCHR ま (を HE ) = "の の の の 18 うじ さ 4 18 の の の の " 
DEFCHR$ (HEA) = "うじ 7EDEFFE7C さ 667E" ` 
DEFCHR ま (HEB ) -"70783818000COCOO " 
DEFCHR$ (НЕС ) =" 3C7EDBE7DBFF663C" 
DEFCHR$ (&HED) = "の の 7 の DEEFFBFFFE の の " 
DEFCHR$ (&HEE) =" 3SC7EDFBFBFDF7ES3C" 
DEFCHR$ (&HEF) =" QAOCOF OF SFCF CF SED" 
DEFCHR$ (&HFQ) -"3SEFFFFFFFFFFFFE1" 
DEFCHR$ (&HF1)-"1E7FFFFFFF7F3FQ7" 
DEFCHR$ (&HF2) 2"3844B28AB2443800" 
RESTORE410:FORI-&Hi1DBF TU&H1DC さ : КЕ 
ADA: FOEEI , А: NEXT 
280 FORI=&H1DA4 TO&H1DBO:READA:FOKEI,A^ 
: NEXT 
290 MIDTH4 ウ : SCREEN2: BEEPOFF : COL ORQ 
る の の DIM9??2"4(26) 。 リ ンコ "ん (26) „3° ZZ (26) 。 ヒ 
33% (26) 。 キ ノコ ん (26) 。 フ ルー ツリ 1 ん (9 昌 ) ‚2%—')2% (98) 
310 RESTORE420: FORI-QOTO26: READ タ マコ ~ ZX (I) 
:МЕХТ , 
320 RESTORE430: FORI-OTO26: REQGDUSZI" Z (1) 


O で も な ん で も な い の で す が , 


な 心 を わか っ て や っ て くだ さい. すると, 
トロ ビア ン の 入っ だ ファ イル を ふん づけ だ 
あの と き の 気 持ち が 忘れ られ ます . 

ぼく も , FP の ソフ ト を 発表 する の も これ 
で 3 回 目 . ここ まで きだ ら , これ か ら も FEP を 
愛し 続け ます . 

を それから, ぼく の プロ グラ ム に 付い て いる 
レー ベル , SANYA SOFT は も ちろ ん 会 社 
SANYA SOF 
の 仲間 が 増え た の で これ か ら は 他 機 種 で 
も この レー ベル を 見 つけ る こと が で きる 様 
I6 57 L3. あな だ も 仲間 入り し ませ 
Ao? ざ 一 報 待つ て ます 、 


リス ト 1 HEBI HEBI 初期 設定 1 プロ グラ ム | 


s NEXT 

330 КЕЅТОКЕ440: FORI-OTO26: REARD ネ マミ メス (1 ) 
s NEXT 

340 RESTORE4S0: FORI-OTO2ó6: RERD ヒ ヨコ X (I): 
NEXT | 

3S0 RESTORE460:FORI=O0TO26: КЕАР”Р+/27 (I): 
NEXT 

360 RESTORESØØ:FORI=ØT098: RERD フ ルー リリ 1 ん ( エ 

s NEXT 

370 RESTORES30:FORI-QTO98: RERD フ ルー リタ ん ( エ 
) gi NEXT 

380 RESTORE470:FORI-1TO19: READA: НН (І) = 
A:NEXT 

390 RESTORE480:FORI-1TO10:HH$((1)-"":FO 
RJ-1TO10:READA: HH$ (І) HH$ (І) *CHR$ (А) : МЕХ 
TJ,I 

400 LOADM"CASO: "Ü": LOAD"CASO: ",R 

410 DATA82,65,78,89,65,80,76,65,89,160 
372509,65,735,72;69,65,75 

420 DAT^A6144,24,6168,0,4096,15420,0,81 
92,32582,0,8192,52582,0,8192,:52582,0,0,.5 
1354,0,0,30326,0,0,15420,0,0,0 

430 DATAO,24,6144,0,0,2048,0,2048, 
,0,8192,8447,0,0,255,0,8192,8447,0,4096, 
4222,0,0,60,0,0,0 

440 DATA0,0,0,0,0,96,0,2560,2698,0,558 
4,5726,0,7936,0095,0,21760,21855,0,—-4608 
,74370,0,—35072,-2828,0,0,0 
. 850 DATA39584,14,3598,0,0,5397,0,0,694:5 
,0,0,-29042,0,0,-1,0,0,-1,0,0,352382,0,0, 
36,0,0,0 

460 DATA15376,4112,4156,0,8192,85318,0, 
0,255,0,26112,61658,0,0,12236,0,0,12336,0 
,0,6168,0,0,6168,0,0,0 

470 DATA3000,2500,2000,1800,1600,1400, 
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Eet- ろ に ある エサ は 早め に 食べ まし ょ う 


1400 НЕБІ J HE SCORE (NEO 


* 
| eed 


キー 


12 の の 。 1 9 の の , 500 。 ご の の 


480 DATA74,46,65,78,75,79,66,65,0,0,77 


,46,83,65,84,79,0,0,0,0,75,45,83,65,75,6 

5,71,65,77,73,84,46,84,65,75,69,71,65,75 

,73,84,46,77,65,83,85,68,65,0,0 
490 DATA77,65,77,73,0,0,0,0,0,0,72,72, 


82,79,77,73,0,0,0,0,72,46,73,82,79,66,69 


,0,0,0,75,46,83,85,71,73,89,65,77,65,75, 
46,84,82,85,84,82,85,77,73 

500 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
@,@,127,@,@,@, -8192,53 76, 7999, 9,0,0,-188 
8, 736,2047, e, の ,0,-1024,4194, 14453,0, 0,0, 
-352 

510 DATA2800,2902,0,0,128,-236,62,71,0 
,-32758,-32544,-192,1472,1807,0,0,224,-8 
6,766,775,0,16384,-7944,-171,255,5,0,-22 
528, -1795, -214, 127,0,0,21504, -770,32533, 
63, 0,0,-22528 

20 DATA-770,16138,21,0,0,21504,-257, 7 

941, 15,0,0,-22015,-257, 7946,15,0, ù, Ç. 128 
‚ 530 DATA128,-32768,0.0,1, ð, 9, 16384, -32 
640,1,2,0,0,0,-16384,512,7,0,0,16:84,-24 
544,1024,15,0,0,-22758,24576,4608,21,0,0 
,16284,-24576,13212,62,0,0,8192,-12224,2 
8672 


540 DATA95,0,0,4096,-8192,-19968,255,0 


,0,8192,-12272,-3072,255,257,0,20480, -24 
5756,-22272,255,515,0,0,-4096,-8192,255,1 
799,0,4096,-8160,-14336,255,2821,0,-3276 
8,24576,-24575,255,7965,0,0 
550 DATA-8064,21504,255,16191,0,-22768 
,15384,2,252,244:8,0,0,-16255, -28668, 251 
,-8,0,0,128 
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КЕЮШ 78 74 72 72 72 FE 70 00 FE 02 7А FE CO 
FF10 78 OC 7E FE CE CE 7C 00 FC FE CO 20 18 


4040 1 ОСАТЕ 10, 12: АФ= "1 ЕҒТ" : 505089500: CO 
LOR2:PRINT" «eeeeeeeeee": COLOR7 

4050 LOCATE10,15:4$-2"RIGHT": 605089500: C 
OLOR2:FPRINT" 9eeeueeveee": COLORA 
4060 FORY-STO14STEPF3 
4070 PRINTCSR(27,Y)" ,.— "CSR(27,Y*1)"| | 


° HE E E E HE E HE E E HEH E E E HE E E E E E E E E E ¥ Зе 
20 '***x HEBI HEBI MAIN PROG. + 
30 ‘жж 1984.7.7 (SA) + 
40 '*** SANYA SOFT WARE inc. +++ 
S  '3 JO 9€ EH JE M HE HE AE JE ME JE ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ DEDE EXER 

200 FF-0: GOSUB10000: 505084000 


6200 ‘SPECIAL. BOUNS 
6210 fff-1: GOSUB7000: B-SN*1000: SC-SC«*E 

6250 GOSUB8400: IFN ぐ 9THENN=N+ 1 : GOSUR90:30 
:LOCATE13,14:PRINT"O ";:A$="HEBI HEBI +1 
": 605089500 

6490 LOCATE10,12: COLOR7: A$-"SPECIAL BOU 


っ 1 の ショ キヤ セッ ティ 2 "СБК (27,Y*2) " —— "3; NEXT: COLOR6 NS": GOSUB9 S500: RETURN 
215 SC=Q: M=1:N=3: RANDOMIZE 4080 RESTORE4080: FORY-6TO1SSTEP3:READA$ 7000 ' ng Kd 
300 ' ショ キヤ セッ ティ 3 : LOCATE28 , Y: 605089500: NEXT: DATA8,2,4,6 7002 ҒРОКІ=1Т07:ҒОКЈ=1Т07: SCREEN2 ,J: FORL 


4090 COLORS:LOCATE14,20:4$-"GAME START" 
: GUSUB95 の の : PRINT"&":SCREEN2, 7: GOSUBB200 
4200 FDRI=1TD1 の の の : NEXT: RETURN 

5 の の の GAME OVER 

S030 FORI-1TOSQQ0: NEXT 

5040 COLOR7:A$="GAME DVER":LOCATE15,13: 
605089500: GDSUBB ウ 1 の 9: GBDSUBB の 5 の 

5042 IFSC>HH( 1 ) THENLUCATE さ 1 , 0: АФ=МІрФ (S 
ТКФ (SC) ,2) :A$=STRING$ (6-LEN(A$) , "@")+A$+ 
"Ø": 605089500 

5044 FURI=1TD4 の の の : NEXT: GBDSUB55 の の 

=@5@ GOTO2QQ 

5500 БОТ HIGH SCORE 

5510 IFSC«HH (10) THENRETURN 

5520 HH (10) =5С 

5530 CLS:SCREEN2,@:COLOR7:A$="YOU GOT N 
ICE SCORE":LOCATE10,4:GO0SUB950Q0: PRINT" #" 
5540 COLOR6:A$-"INPUT YOUR NAME":LOCATE 
7,8: 605089500: X-2z 

5542 CDLUR さ : АФ="ЕМЮ ":LOCATE12,15:G60SUB 
9500: COLOR7: PRINT"9eeee "; : АФ= "ЕМТЕБ" : СО 
LORA: 505089500 

5544 COLORZ:4$-"BACK ":LOCATE12,18:GOSU 
B9500: COLOR7:PRINT"eeeeeee ";:4$-"BS":CO 
LDR4: 605089500: SCREEN? , 7: A$-STRING$ (12," 
") : COLOR2: CALL&HZ ウ さ 

5550 X$-INKEY$ 

550 IFX$»CHR$(&H1F)ANDX$«CHRS$ (НУВ) THE 
NGOSUBS6QOQ 

5570 IFX$-CHR$ (8) THENGOSUBS700 

5580 IFX$-CHR$ (22) THEN5B の の 

5590 Б0Т05550 

5600 IFX> さ 4THENRETURN 

5610 LOCATEX,8:CALL&HFEA7 , ASC (X$) : MID$( 
АФ,Х-22,1) =Х% 

5620 ВЕЕРОМ: BEEPDFF : X=X+1 : RETURN 

5700 IFX>2 さ THENX=X-1 

5710 X$-" " 

5720 LOCATEX,8: CALL&HFEA7 , ASC (ХФ) :MID$ ( 
4$,X-22,1)-X$ 

5730 BEEPON: BEEPOFF : RETURN 

5800 BEEP:B$-CHR$(82)*CHR$ (69) +CHRS (88) 
:IFLEFT$(A$,3)-B$ THENGOSUBS900 

5810 HH$ (10) -A$:FORJ-1TO10: FORI-1TO9 
5820 IF НН(І) <НН(1+1) THEN SWAP HH(I),H 
H(I*1):SWAP HH$(ID,HH$(I*1) 

5830 МЕХТІ,Ј:ҒЕ=1: 6050810270: ҒОКІ=1Т050 
00: NEXT: RETURN ' 
5900 ЕОКІ=1Т0500: NEXT: СО ОКЗ: PRINTCSR (3 
9,9) ic اا‎ 

5910 FORX«38TO2ZSTEP-1: COLORZ:PRINTCSR( 
X48) "о"; :COLOR1: PRINT" .^":FORJS1TO20: NEXT 
: NEXT 


POKE&HFC6B , Ø: PDKE&HFC6E , 0: РОКЕКНЕС =17010: ВЕЕРОМ: NEXTL ,J, I: BEEPOFF 

'7010 FORI-1TO1000:NEXT: 505088050: FORI-1 
TOSØØ: NEXT 

7020 AD=&HFC71+PEEK (&HFCAF) #2 

7030 FORI-AD TO&HFC7D STEP-2 
7040 PRINTCSR(PEEK(I),PEEK(I*1))" ";:ВЕ 
EFON: BEEPOFF : NEXT: IFf f £ -1THENf f £20: RETUR 
N 

7050 В= (255-РЕЕК (&HFC&F)) #SN: SC-SC*B: FO 
RI-1TOSQ00: NEXT 

7060 LOCATE14,13: COLOR7: A$-"BOUNS" : GOSU 
B9500 

7070 A$-STR$(B)-*"Q":GOSUB9500: ВЕЕР: GOSU 
B7040 

7080 FORI-1TO2000: NEXT 

7090 IFM MOD4= の THENGDSUE う の の の 

7100 NM=M+1: GBDTD さ の の 

Bo の gg ' SOUND , 

8010 FORj-1TO14:BEEPON:FORi =1Т09: NEXT: № 
EXT: BEEPOFF : RETURN 

8050 BEEP:FORI-1TO200:NEXT: BEEP: FORI-1T 
0100: NEXT: ҒОКІ=170200: BEEP: NEXT: RETURN 
8100 BEEP:FORI-1TO209: NEXT: BEEP: FORI-1T 
0100: NEXT: ВЕЕР: FORI-1TO10Q: NEXT: BEEF: FOR 
1=1Т0200: NEXT: ВЕЕР: ҒОКІ=170500: NEXT: BEEP 
: ҒОКІ=1Т0200: NEXT: FORI-1TO70: BEEF: NEXT: К 
ETURN 

8200 GOSUBS300: GOSUBB 300: 605088510: 5050 
BB さ 1 の : GOSUBB 200: RETURN 

8300 ВЕЕР:ЕОК1=1ТО2@@:МЕХТ:ВЕЕР:ЕОК1=1Т 
0100: NEXT: ВЕЕР: FORI-1TO100: NEXT: FORI-1TO 
150: BEEP: NEXT: FORI-1TO200: NEXT: RETURN 
8310 BEEP:FORI-1TO200: NEXT: BEEP: FORI-1T 
0100: NEXT: ВЕЕР: FORI-1TO10Q: NEXT: RETURN 
8350 FORI-1TO250: BEEP: NEXT: RETURN 

8360 FORI-1TOB8Q9:NEXT: RETURN 

8370 FORI-1TO120: NEXT: RETURN i 
8400 GOSUBEB8350:GDSLB8360:BEEP:GOSUB8360 
: ВЕЕР: GOSUBB8360: GOSUBB250: 60SUB8Z60: ВЕЕР 
: 505088560: ВЕЕР: GOSUBB360: ВЕЕР: 505088570 
: ВЕЕР: 5050883560: ВЕЕР: 60508560: ВЕЕР: GOSU 
B8360: ВЕЕР: 605088560: ВЕЕР: 505088560: GOSU 
B8350: RETURN 
8500 ・ STAGE 1 

8502 DEFCHR$(&HFE)-"FBFBFBOODFDFDFOQO":C 
OLOR2 

8504 A$-STRING$ (39, "$i" ) :PRINTCSR (0,1) АФ 
CSR (0,2) ASCSR (0,23) A$CSR (0,24) A$; 

8506 FORY-3TO22:PRINTCSR (O, Y) "X" CSR (37 
,Y) "Si" s NEXT 

8508 A*$="#%"+UHR$ (HIF) +СНЕ% (&H1D) +CHRS 
(&#H1D) +" sii" 

8510 RESTDREB59 の 


S2 (M-1) M0ÜD4*1: SN= (M-1) 学 4+ 1 

325 L=21-SN: IFL く 3 さ THENL= さ 

330 POKE&HFBS8D,L 

340 FORI-&HFC73 TO&HFC7C STEP2:POKEI,1 
9: POKEI*1,22: NEXT 

550 ONS GOSUB3S2,354,356,358: FUKE&HFC6 
C, A:POKES%HF COD , В: df =0: GOTOS60 

352 A=4: B=1: RETURN 

394 A=6: B=5: RETURN 

356 A=5: B=4: RETURN 

358 A=4: B=3: RETURN 

360 WIDTHAO:LOCATE165,12:0$-"STAGE ": GO 
SUB9S00: СА 1. %НЕЕА7 ,5+48: ВЕЕР: ҒОКІ= і Т0100 
Q: NEXT: CLS: SCREEN2 , 0: 605089000: GBDSUB9 の 2 の 
: DNS GUSUBB5 の 0 の , 日 6 の の ,в700 ‚8800 

362 X-FEEK(&HFC73) : Ү=РЕЕК (&HFC74) : CALL 
 &H703 š 
364 FORI-1TOS 
365 PRINTCSR(X,Y)" ":FORJ-1T0100:NEXT 
366 FRINTCSR(X,Y) "e":FORJ-1TO100: NEXT: 


NEXT 

370 CALL&HFA60:BEEP 

380 IFFEEK(&HFC6A) =1 THEN6 の の の 

З9@ GOSUBS8010:SC-SC-M: KB-KB-1: BDSUB9 の 4 
Ø: IFKB< 1 THEN79 の の ELSE さ 7 の 

さ の の の ' COFFEE BREAK 

3010 CLS: C=INT (RND (1) *6+1 ) : SCREEN2, 0: GO 
| SUE9 の の の : GOSUB9020: COLORC 

3020 РКІМТСБК (14,10) "ーー 

3020 PRINTCSR (14,11) " 
3040 FRINTCSR (14,12) " 
5050 PRINTCSR(14,12)" 
3060 PRINTCSR(14,14)" 
3070 PRINTCSR(14,15)" ~, e 
3080 PRINTCSR(14。16)" '——————' 

5090 PAINT (150,100) ,C,C 

3095 COLOR, ,7:FO0RX-120T0123 

3096 PLOT(X,86) -(X,92) :PLOT(X,96) - (X,12 
Q) : NEXT | 

3097 QUAD(126,125)-(128,129) :РАІМТ (127, 
125) ,7,7 

3100 PLOT(112,124) - (208,124) 。 の 

3110 PLOT (205,88) -(205,120) : FBDUNG= の 
3112 SC$-STR$(SC):a-ASC (RIGHT$(SC$,1))- 
48: b-ASC (MID$ (RIGHT$ (8C$,2) 。 1 。1 ) ) 48 
3113 IF (a+b=9) DR((a=1 ) AND (b»4) )DOR((as1) 
AND (b=9) ) ORC (b=1 ) AND (a=4) ) DR ((b=1 ) AND (а= 
9) ) THENFUT@ (190,67) - (215,82) 。 フ ルー リツ 1 ん РОТЕ 
(112,67) - (135,82) 。 フ ルー リツ 2 ん ェ FBDUNS=1 

3120 СО ОКЪ: LUCATE1 4 , 3: も =" COFFEE BREAK 
": 605089500: SCREEN2 , 7: COLOR, 。 。5 


L. 
r | 
2 | 
p 
> 


ニュ ーーー = = 


3130 A$-2''«P": COLOR7 5920 ҒОКІ=1Т0500: NEXT 8515 FORI-1TO16:READX,Y:PRINTCSR(X, Y) АФ 
3140 FORJ-38TOQSTEP-1 5950 FORX-23T025: COLOR2: LOCATEX ,8: CALL & ss NEXT 

3150 PRINTCSR(14,5)" "CSR(18,9) A$:FOR || HFEA7,88: COLORS: PRINT" O"; : ВЕЕРОМ: BEEPOFF 8530 FORI-1TO2:READY: PRINTCSR (18 , Y) "8888 
1=170100: NEXT : FORJz1TO80: NEXT: NEXT "CSR (18, Y*1) "888" : NEXT 

3160 PRINTCSR(18,9)" "С5К (17,7) A$: FOR 5940 FORX-226T038: PRINTCSR(X,8)" о": ҒОКЈ 8532 KBzSN*2-48:IFKB^3QTHENKB-30 
I=1TO100: NEXT z1T020:NEXT: NEXT: РКІМТСЅК (59,8) " "; 8533 СО ОКА: РКІМТСЅК (19,22) "e": SCREEN2, 
3170 PRINTCSR(17,7)" "CSR(14,5) A$:FOR 5950 A$-"XXX":RETURN 7: IFdf=1 THENdf =Ø: RETURN 

I-1T070: NEXT ら 6 の の の Tl 8534 FORI=1TOKB 


001 IF PEEK(&HFC6F) > 99 AND KB=kb AND 
S=1 AND PEEK (&HFC73) =РЕЕК (PEEK (&HFC6F ) «2 
+&HFC7 さ ) AND PEEK(&HFC74) =РЕЕК (PEEK (&HFC& 
F)*2*&HFC74) THEN 50508200: 50707070 

6002 FORI-1TO25:FORJ-1TO7: SCREEN2 , J: МЕХ 
342 

6 の 1 の FORI-1TO1000:NEXT:GOSUB8100:FORI-1 
TOSØØ: NEXT 

6020 AD-PEEK(&HFCAF) *24-&HFC71: OLOR PEE 
K (&HFC6D ) 

_ 6 の 3 の FDRI=AD TO&HFC7S STEP-2 

6 の 4 の PRINTCSR(PEEK(I),PEEK(I*1))"9";:BE 
EFON: BEEPOFF : NEXT 

6050 COLOR PEEK(&HFCAC) : PRINTCSR (PEEK (& 
HFC72) ,PEEK (&HFC74) ) "9"; 

6 の 6 の N-N-1:GOSUB9020: FORI-1TO2000: NEXT 
6070 IFN 1 THEN5 の の の ELSE さ の の 


3172 COLOR2:PRINTCSR(J,20) "о"; : COLOR4: P 
RINT" 7": : COLOR7: ВЕЕРОМ: BEEPOFF 

3180 NEXT:PRINTCSR(14,5)" "3 

3182 IF FBOUNS-1 THEN COLOR2:LOCATE11,6 
:A$-"FRUITS BOUNS 5000" : 605085500: GOSUBS 
400: SC=SC+5090: 605085020 

3190 FORI-1TO1000:NEXT: COLOR7, , ,0:A$-" 
GAME START":LOCATE14,20: 605089500: PRINT" 
Ф ":i:GOSUB8300:FORI-1TO1500: NEXT: RETURN 

4000 ' START メッ セー シ " 

4010 CLS:SCREEN2,0: COLOR6: PRINTCSR (10,2 
) "ey "::COLORS:A$-"KEY FUNCTION": GOSUB9 
500: COLOR6: PRINTCSR (27,2) "eee": COLOR7 

4020 | ОСАТЕ 10,6: АФ= "ОР" : 605089500: COLOR 
2: РКІМТ" Фффффффеоффефф" : COLOR7 

40:50 і ОСАТЕ 10,9: A$=" DOWN" : 505085500: COL 
OR2:PRINT" *99eeeeeveee": COLOR7 


8535 X=INT (RND( 1 ) ¥35) +2: Y=INT (RND( 1 ) #20 
) + さ 
8540 IFPEEK(&H9 の の の +4 の ォ Y+X) -320RPEEK (&H9 
の の の +4 の *Y+X ) = の THENB55 の ELSEB5 さ 5 
` 8550 PDKE&H9 の の ウ +4 の *Y+X。&HF2: РОТЕ (X*B, Y 
8) -(X*8*7,Y*8*7) , 923" 7: ВЕЕРОМ: BEEPOFF 
8560 NEXT: kb=KB: RETURN 
. 8590 DATA6,5,12,5,25,5,31,5,6,19,12,19, 
25,19,51,19,9,9,15,9,22,9,28,9,9,15,15,1 
5,22,15,28,15,5,19 
8600 STAGE 2 
8602 DEFCHR$(&HFE) -"2CZE7EFE7F7FFESC":C 
OLORA | 
8504 PRINTCSR (1,2) STRING$ (37, "s" ) CSR ( 1 。 
23) STRING$ (37 , " i") CSR(2,24) CSR (2,5) STRIN 
G$ (35, "S" ) CSR(1,24) STRINGS (37, "ii" ) ; 
8605 FORY-3TO23:PRINTCSR (Ø, Y) "HR" CSR (37 


も う 知 っ て いる 人 も いる か と 思い ます が , ニュ ー ト ロン で 中 央 の 穴 ( 是 の 出 て 6 る 所 ) の 右 下 に 実る フル ー ツ を, 実っ た ら す で ぐに 取る と 顔 の 
マー ク が 出 て , 残り が 1 匹 増 えま す ( こ れ は 3 面 で す )、 その他 に は , フル ー ツ の か わり に "ドク ロマ ー ク "が 実る と き が あり ます . まだ カマ キ 


リ の 面 ( 4 面 ) で は , 一 番 最後 の 花 は 実 の な る 前 に 一 度 し ぼ み ます . フェ イン ト を か けら れ な いよ うに し て くだ さい . (Emiko my Love) 
M t i ? Ai i er р Š NES sd i M Ç. { L je ) 2 i / 
n " MERCI ү (きい ү, m DES E GO TO ERDE. ху ТАН こめ ! bos УУ. А - 3 i tg 
4 r Жї Sé xta A AN IEF x , t dre V SIN NS: ^ E Lu РА ^ E. Mt ons “Ёш, Е y 2 NM "i А bo * s dior E の maet jt ; ds 


———— 


‚Ү)"#®";:МЕХТ 

日 6 の 6 A$-" SE "+СНКФ (HIF) +STRTNG ま (4 , CHR 
$ (&H1D)) +" Sii" -CHR$ (%H1F)+STRING$ (4, CHR 
$(&HI1D))-" se" 

8607 RESTORE8699:FORI- 17010: READX , Y: PRI 
NTCSR (X, Y) A$; : NEXT: LOCATED , Ø 

86109 KB-SN*248: IFER>30THENKB=3@ 

8625 COLORA:FRINTCSR(19,22) "e": SCREENZ, 
7 

8630 FORI-1TOKB j 
8635 X-INT(RND(1)*35) +2: 
) +4 
8640 IFFEEF(&H9 の の の +4 の XY+X ) =520КРЕЕК (SH? 
の の の +4 の xY+X ) -ÜTHENB6SOELSES8625 

8650 FUOEE&H9 の の +4 の XY+X , HF 2: PUTE (X#B, уж 
8) -(O8*7,Y*B*7) ,UL2" 4: ВЕЕРОМ: BEEPOFF 
B660 NEXT: RETURN 

8690 DATAS,6,30,6,10,12,25,12,5,18,30,1 
8,14,6,21,6,14,18,21,18 

8700 STAGE š 

8702 DEFCHR$ (&HFE) ="7F797D7F5F4F7FØ0" :C 
DLOR6 , 1 

8704 PRINTCSR (Ø, 1) STRINGS (39, "gi" ) CSR (0, 
23) STRINGS (39, "#" J 3 :FORY=2T022:PRINTCSR ( 
Ø, Y) "#E"CSR (38; Y) "8"; : NEXT 

8706 RESTOREB790 

8710 FORI-1TO6:READY:PRINTCSR(11,Y) "#"C 
SR(27,Y) "š"; : NEXT 

8714 FORI=1TO3: READY: PRINTCSR (1,Y) "#"С5 
R(9。Y) "RS CSR (18, Y) "titi CSR (25, Y) "н 
RE" CSR (37 , Y) "i": МЕХТ: COLOR , O: LOCATEO 。 の 
8720 kB-SN*248: IFEE> さ の THENRB= さ の 

8725 COLORA:PRINTCSR(19,22) "e": SCREEN2, 
7 

8730 FORI-1TOKB 

87358 X=INT(RND( 1 ) *37) +1: Y2INT (RND (1) *21 
) +2 

8740 IFPEEK (&H9 の の の +4 の XY+X ) =320RFEEK (&H9 
の の の +4 の *Y+X ) -ÜTHENB7SOELSEB7:25 

8750 PUREE&H9 の の P+4 の XY+X ,*HF2:FUT@(X*8 ,Y* 
8) -(X*B+7,Y*8+7) ,33" £4: ВЕЕРОМ: BEEPOFF 
8760 NEXT: RETURN 

8790 DATA5,7,11,12,17,19,6,12,18 


Y=INT(RND( 1 ) *19 


ввод STAGE 4 
8802 DEFCHR$(&HFE) ="FF4 さ 271F1F274 さ の 1": ビ 
DLOR5 。 1 


8810 FRINTCSR (0,1) STRINGS (39, "#") CSR (O, 
23) STRINGS (29, "#") ; : FORY22TO22: PRINTCSR ( 
Ø, Y) "S"CSR (38, YO "i$": : NEXT: COLOR, Ø 

8812 COLORA: PRINTCSR(19,22) "e": SCREEN2, 
7 

8820 Ј=5№+4: IFJ:1STHENJ=15 

8822 FORI-1TOJ 

8824 X=INT (RND (1) #37) *1: Y=INT (RND (1) #20 
) +2 

8826 1ЕРЕЕК (&H9000-- 4Qx Y- X) —320RFEEK (НӘ 
の の の ウ +4 の *Y+X ) -ÜTHENB82OELSEB824 

8850 FOFESH?9000+40%*Y+X ,*%HF1:PUT@(X*8 , Уж 
8)- (X*8B+7 ,Y*8+7) , 227: ВЕЕРОМ: BEEFOFF : МЕХ 
Т: РОКІ=1Тт0800: NEXT 

8840 КЕ=5М#2+8: IFKBE73SOTHENEKE-30 

8842 FORI-1TOKR 

8844 X=INT (RND(1)*57) *1: Y=INT (RND(1) *21 
)+2 

8846 IFFEEK (&Н9@@@+4@*үҮ+Х) =52ОКРЕЕК (&H9 
@@@+4@+*#ү+Хх ) -ÜTHENB8SOELSE8844 

8850 FOKE&H9O000-40*Y-X,&HF2:PUTGCX*B, Уж 


プリ ンス の 持つ 数 々 の 記録 。 ノ ウ ハ ツ を 
新しい 視点 か ら ア レン ジ . 別々 の テー マ を 

- 冊 に まとめ た だ た 。「THE RACE/WHAT'S 
NEW-MAN」 (福武 書店 ) を 5 名 の 方 に プレ 
ゼン ト し ます . 葉書 に 住所 , 氏名 , Fir 
ONU CREDITOR SEIN だ る い :(〆 切 は 
12 月 1 日 消印 まで 有効 ) な 当所 は 発表 


8)- (X#8+7 ,Y*8+7) 。 ヒ 上 ヨ コメ: ВЕЕРОМ: BEEFOFF : МЕХ 
+ | 

8860 RETURN 

9000 SCORE TH" tan" 

9010 COLOR7:LOCATE1,0:4$-" SCORE 

HERI HI-SCORE": 605089500: RETURN 


9020 COLOR7:LOCATEZ1,0: 4$-MID$ (STR$ (HH ( 


122,2) : A$-STRING$(ó5- -LEN(A$) ,"Q") «à$«"Q": 
GOSUB95 の の 

90:30 COLOR7:LOCATE20,0:CAOLLSHFEA7,N+48 
9040 IFSC»;999999THENSC-SC-- 1000000 

9041 COLOR7:LOCATE7,0: 5$-MID$ (STR$ (SC), 
2):0$-5TRINGS$5- -LEN(A$), "Ø")+A$+" Ø": 6050 
B9500: RETURN | 

< ЕР Бы, ЖЕ „+ e Зи 

9510 а=\/АКРТК‹А%):СА 1 &НЕЕ9Х,,а+1,,РЕЕК 
(a) #256: RETURN 

10000 ET E: 

10001 WIDTH40:SCREEN2 , Ø 

10008 COLOR7:LOCATE11,1:A$="SFECIAL WALL. 
GAME": 6050Е9500 

10010 COLORS 

10020 PRINTCSR (1,5) s "= 


= юш: Баш“ онт 


10050 FPRINTCSR(1,40;"M А а m m m 
10040 FRINTCSR (1,5); "шаа EN ШР и 
10060 PRINTCSR(1,60;"M mu m m m 


10070 FRINTCSR(1,7)s"E 
10080 COLORA 
10090 FRINTCSR(21 


г EET ENS. ФЕТ 


S) wc: 


= даш; NENNEN om 


10100 FRINTCSR(21,4);"M E B m m m 
10110 PRINTCSR(21,50; "NENNEN шат UNE ш 
10120 PRINTCSR(21,60)0;"M Шш m m m 


10150 FRINTCSR(21,7);" 上 г аг NEN eI 
10150 Рите (88,80) -(95,87) 。 タ ッ マコ" X: COLOR7:F 
RINTCSR(12,10) STRINGS (9,"e")" "::4$-"TAM 
AGO" : COLORS: GUSUB95 の の 

10160 PUT@(88,96)- (95,103) , Y3" X: COLOR7: 
PRINTCSR(12,12) STRINGS (10, "#")" "i:0$-2"R 
INGO" : COLORS: 605089500 

10170 FUT@(88,112)-(95,119) , 33^ £X: COLOR7 
:PRINTCSR(12,14) STRINGS (9, "€")" "::4$-"N 
EZUMI": COLORS: 605089500 

10180 PUTG(88,128) -(95, ,E323X: COLOR7: 
FRINTCSR (13,16) STRING$ (9,"9")" ";:4$-"HI 
YOKO" : COLORS: 505089500 

10190 FUTE(88,144)- (95,151) , 734: COLOR7: 
PRINTCSR(12,18)STRING$ (5,"€e")" "i:4$-"DO 
KUK INOKO" : СО ОБЖ: 605089500 

10200 COLOR2:LOCATE6,21:A4$-"PUSH SPACE К 
EY TO START БАМЕ" : 605089500 

10210 COLORA:LOCATE6,24:4$-"COPYRIGHT ": 
505089500: РКІМТ" ж" ; : Аф=" SANYA SOFT WARE 
": 605089500 

10220 LOCATEO,Q: SCREEN2 , 7: CALLZH7O3: FF =0 
10230 L-2000 


10240 IFINKEY$-" "THENRETURN 
10250 L-L-1:IFL THEN1 の 4 の 
10260 


10270 CLS: SCREEN2 , 0: COLOR1: PRINTCSR (5,0) 
"www. "IICOLOR6:A0$-"HIGH SCORE BEST 10 

": GOSUB? S00: COLOR1: PRINT"veewe 

10280 FORI-1TO10:Y-2I*2*1: COLORS: LOCATEB, 
¥ 

10290 АФ=5ТКФ (І) : IFI-10THENA$-MID$ (A$, 2) 
10295 GOSUB9SO0:FRINT". "; 

10300 COLOR7:A$-MID$(STR$ (НН (І) ) , 2) : Аф=5 
TRING$(6-LEN(A$) , "0" ) +А%+"0 ": 60506950 


を も っ て か える きせ て いた だ だ きま す . 

《 送 り 先 》 

(株 ) 工学 社 PiO 編 集 部 
プレ ゼン ト 係 

9151 東京 都 渋谷 区 代々 木 1 - 


ぜん らく ビル 5FE 


ГТНЕ ВАСЕ; 


N c 
T 


DA 
Me тара 
i Hw RARI > 


; > SS went ° 1 AT M d 
* У? ied A » ا‎ 
кас Е 


リス ト 3 HEBI HEBI BASIC リ スト 


p " 

10210 LOCATE2Z,Y: СО_ОК2: АФ=ННФ (1) : ІРАФ > 
"" THENGOSUB9500 

10:20 NEXT:COLOR4:A$=" SANYA SOFT WARE":L 
OCATE12,24: GOSUB9500: SCREENS , 7: IFFF=1THE 
NRETURN 

10330 し =1 の の の 

10340 IFINKEY$-" "THENCOLOR, 。 。 の : RETURN 
10250 COLOR,,,(L/10) MOD6*1:L-L-1: IFL OTH 

EN10340 ¿ 

11 の の の ‘DEMO GAME 

11010 MIDTH4 の : SCREEN? , 0: 505089000: BDSUB9 

@2@:4#=1:4А=4:605ИВВ5@0@: TFTNEEY ま =" "THENR 
ETURN 

11020 RESTORE11020:FORI-1TO10: READX , Y: PU 
TG (X*B, Y*8) -(XXB*7,Y*847) , 773" Z: FORJ-1TO 
50: МЕХТ: МЕХТ: ОАТА2,19,14,11,51,14,51,4,2 
SATO 21:95. 21: 17,18,2, 3, 5,6 

11020 FORI-1TOS 

11032 PRINTCSR(19,22)" ":FORJ-1TO100: NEX 
т 

11024 PRINTCSR(19,22) "e": FORJ-1TO100: NEX 
T:NEXT 

11040 RESTORE11040:D4T50,4,1,0,5,20,19,2 
2,19,22,19,22,19,22,19,22,19,22,19,22,19 
,22,19,22,19,22 

11050 AD-&HFCóB:FORI-1TOS5:READA:FOKEAD,A 
: AD=AD+1 : NEXT: READA: FOKE&HFEBD , A: ADS НЕС 
73: ҒОКІ=17010: READA: POKEAD , A: AD- AD 1 : МЕХ 
T: AD=$%HF COE 

11060 RESTORE 1 2000 

11070 READT: IFINEEY$=" "THENRETURN 

11080 IFT=9THEN1 1500 

11085 ІҒТ=1 ТНЕМҒОКІ=1Т080: NEXT: GOTO1 1070 
11087 READH,J 

11090 POKESHFCÓE,H:FORI-1TOJ:CALL&HFBZ2: 
CALL&HFB7D: CALLS&HFBDD: NEXT: GOTO11070 
11500 FORI-1TO25:FORJ-1T07:SCREENG , J: МЕХ 
TX. 

11510 ҒОКІ=1701500: МЕХТ 

11520 Ар=РЕЕК (&HFC6F ) *2*&HFC71: OLOR PEE 
K (&HFC6D ) 

11530 FORI-AD TO&HFC7S STEP-2 

11540 FRINTCSR(FEEK (I) ,PEEK (1+1) ) "Ф"; : NE 
XT 

11550 COLOR PEEK (&HFCAC) : FRINTCSR (РЕЕК (& 

HFC7 ミ ) ,РЕЕК (XHFC74) ) "8"; ' 

11560 COLOR7:LOCATE15,12:4$-"GAME OVER": 

GOSUB9500: L -500 

11570 IFINKEY$-" "THENRETURN 

11580 し = し ー1: IFL: の THEN1 157 の ELSE1 の の の の : 
12000 DATA0,2,17,0,1,2,1,0,1,8,0,4,12,1, 

0,4,17,0,2,5,1,0,2,4,0, 2,14,1,0, 2, 3,0, 4, 
їз, 1, 0,4,8,0,1,17,0,5,5,1,0,1,1,0,4,2,0, 
2,1,9 
20000 
20010 
20020 
20020 ' F111 トウ キョ ウト クイ トウ クー ニホン ウミ 1-21-7 
=Y" tve“ 

20040 ' 

20050 

OTTORI 


SANYA SOFT WARE inc. TOKYO 


Sanya Soft Network TOKYO-OSAkA-T 


Aq: 
1 


P 


芸 夢 狂 人 氏 の 名 作 LUNAR CITY SO 
S” を SMC-777 に 移植 し まし た . 自分 と し 
て は , か な り 満 足 の いく も の に な っ た の て 
発表 させ て いた だ きま す . 


較 プ ログ ラム ・ イ ン フ ォ メ ーション 


| BASIC 

| マシ ン 語 A000—ACBF 
PT 

B> > > 

| P Ph 

| 原作 と ほとん ど 同 じ よ うに 遊べ ま 
HT. | (V) 


PiO6 月 号 に 載っ て いる 簡易 モニ タ の あ 
る 大 は それ を 使い , 次 の よう に し で て だ き 
Cv. 

GO MCLEAR, &HFFF | RETURN | 

@ 簡 易 モ ニタ を RUN し , [А ユマ ンド で マ 
シン 語 部 (リス ト 1) を 入力 

同じ く 簡 易 モ ニタ の [|p| コ マン ド で チェ 

ッ ク ・ サ ム を チェ ッ ク | 
© BASIC (277: > T NEW [RETURN 
BASIC 部 (リス ト 2) を 入力 
Q SAVE "LUNAR", &HAOOO, &HACBF 

[RETURN] 

簡易 モニ タ の な い 人 は 777 に 付属 の DEB 
UGGER を 使い 。 次 の よう に し て くだ さい . 
@DEBUGGER を 起動 し , [P|] コマ ンド で マ 

シン 語 部 (UZ F 1 ) を 入力 

分 裂 し て すぐ に や っ つけ て お け ば … 


ADD  + す の +1 +2 +5 
А000 ZA FB AD 3C 
А@1@ OF CC C7 AB 
A020 A3. AS F1 FS 


+9 +A +B +C +D +E +F SUM 
ØF CC A7 A2 F1 FS E6 :C3 
2D A3 F1 F5 E6 Q3 CC :54 


Рі Р5 E6 05 CC 1C AS :0C 


ト プ シ ダー ステ ーション の 速度 
星 点 減速 度 | 
ト プ シ ダーUFO 速 度 | 


ト プ シ ダー 速度 

ト プシ ン 速 度 

F ポン & ミ サイ ル 速 度 

ビー ム ・ シ ッ プ 速度 

ビー ム 速 度 

全体 の 速度 

0 0 に する と ビー ム の 連射 可 


Ө SHIFT| +| HELP SONY FILER へ 戻り , 
BASIC を 起動 し , BASIC 部 (リス ト 2) 
を 入力 

© SAVE "LUNAR", &HAOOO, &HACBF 
[RETURN] 


スー の 
る る る る ххх 
Хохохохохо ° 


この プロ グラ ム は SMC-70 で も 走り ます 


55, この と き は ジョイスティック が 必要 で 。 


ポ ボート 2 に 差 も 込ん で くだ さき るい. ИЕ, ТУ 
7 用 の 遊び 方 を 説明 し ます . 

о оо ДУУ 
ク ・ パ ドル の を と で 左 へ 。 っ で 右 へ 移動 し , 
CIT ӨЕ ОЗАЛ, トリ ガ ・ ボ タン 
([SPACE| キー) で ビー ム 発射 で す . 

ゲー РАВУ 1, まず ま ト ツン ダー え 
テー ショ ン が 1 機 飛ん で いま す が 。 この 中 
央 部 の 紫色 の 部 分 に ビー ム を 4 発 当 て る と 
分 裂 し て 2 機 の ト プ シ ダーUFO に な り ま す . 
さら に この ト デ シ ダーUFO は 3 発 で ト デ シ 
ダー2 機 に 。 る ら に トブ プシ ダー は 2 発 で ト 
ズル が 2 森 ほ な りり まず. ご の アテ な 
5i. 3517113 ЖҮК Ж УЛ 
り ま す が 。 ミサ イル は 発射 し ませ ん 。 そし 
て この ト プ シ ジ シン に ビー ム を 当て る と , A 
は し ませ ん が ト ボ ポン に な っ て 落下 し て きま 
$; 

都市 の バリ ア は ミサ イル や ト ポ ボン が 当 た だ 
る と 穴 が あき 。 その 穴 か ら ミ サイ ル や ト ポ 
ン が 入り 込ん で 都市 や ビー ム ・ シ ッ プ を 破 
壊す る の で , 適当 な 時 期 に 張り 換え て くだ 
Sv, バリ アプ 数 は ステ ーション 数 が 増え る 


ロリ スト 1 LUNAR CITY SOS マシ ン 語 リス トド нани 
А050 Fi FS E6 01 CC 64 AQ F1 Eó 
Ag4 の CD 19 A6 CD B9 A6 CD 5B Ag 
А050 B7 28 Ар CD C2 А7 ЗЕ DF D3 53 


00, 01, 03, 05, 07, OF, 1F, 3F, 7F, 
FF の 値 に し て 〈 く だ さい . 


СИК У: 

ステ ーション 数 は 3 面 か ら 2 Ж, 
ら 3 機 。10 面 か ら は 4 機 に な り , 1412 7 
TT m. と の 日 間 だ っ が の る た 79, 
ス と 宇宙 艦隊 が 到着 し て めで た し , めで た 
し どなり ます 。 | 


6 [HÎ 2° 


>т 


プロ グラ ム 自 体 は , 原作 で ある PC-8001 . 


版 と は 違う 部 分 も ある と 思い ます が , それ 
は それ で 結構 楽し め る と 思い ます . な お , 
この プロ グラ ム の 変更 点 を 表 に 示し ます の 
て いあ いろ と 変え て みて で て だるい. 

jit この ブログ ラム は 入力 する 人 の 負 
担 も 考え て か な り 短 くし て あり ます が 。,BA 
SIC 部 分 が 長 す ぎる と 思う 人 は ,。 ゲー ム の 
説明 を し て いる 部 分 な ど を 削除 し て も ゲー 
^а асу; 


f ЎЫ A ANA NZ S P А, н 
< ANS X eXoX の る x o» °> SAO © 


X 239. 
Фф ? 


>x ベベ ベジ ЖЖ SC OX 
XQ XS X9 XS Xo Xo Xo oo 
PiOPiO 欄 で 。 プ ログ ラム が 長 す ぎる の 
で も っ と 短く し て ほし い , な ど と 書い て い 
る 人 人 が いま し だ た が 。 ピロ グラ ム を 作っ て いい 
Чо ур. 
ム で も 。 4K バ イト だ ら ず の マシ ン 語 の アセ 
リス ト は 30K バ イト に も 及ぶ の で 


ンプ ブル ・ 


THG. 


@1 :E2 
ЗЕ : 


QA の 6 の B4 20 FB C9 CD 74 AQ CD BO AQ 


p 最近 , 愛 機 FM- 7 を 箱 に し まっ て , いと こ に 譲り まし た . それ と いう の も . ^E b OL, 大 学 受験 が だ ん だ ん と 迫っ て くる の で や め ま し 
た Cb, 良質 の ソフ ト だ け は 買っ て お こう と 思っ て いま す . 僕 の 契 が きだ ころ に は , FM-NEW 7 の 後継 機 が 出 て いる か な . 


(The ボツ ) 


キー < S А BC TPS E ETI: - T TET E D 867 еу / Эк ЕГ", е et SM AQ ане "Ж уш EXON TY A. Sia ] жү "OPT РЕН RT аа a ТРТ Wm PENES "nm 
жїк (i n". o. 3 E MS, е ga xs AN i D NP R VN TE ^ t „Уе STR M^ nl * : Š + N | iv ^ e t. * / - f CN F ao NE d AM o SIL vd 
VUL OE ү : $ 9 à i iot š ) 3d ү бү 1 1 МАЛ 1 M LU > Í 3 K і [ 4 
ЧА кз < CRN y 9 by; 1 ‹ БЕГЕ $v. 9 і 2 И i e 0 n í っ で 
ае T ` > \ > + ; V š 
T AUN r ET * Ф 4 


" у t З" 1 2 
; À 3 r 

t - ы с" 

1 ; ; un.) f ' : AUR OC 
ia Nd ^ 『 , 1 f ; 0 $ y ГЛ Р n ^ 2. = 
PSR "e а - р ` ç - ! ç 1 EMIT. А - ' же, 
х 
" ; LE i š | 
\ , : i 
ү ý 1 E ` * ` d 
# ? 


cs | l リス ト 1 LUNAR CITY SOS マシ ン 語 リス ト HET 
81 18 の 2 ЗЕ F1 ED 79 01 00 の 8 Ø? 45 4C :45 | 


A 
yr 
+ 
ま 
re 
SWE 
"i 
LI 
tx 
} 
„й 
€ 
I 
Ка 
* 
Т 
f 
1 
i 
e BUS 
Ж; 
ў 


ым 


К d | mee УТЫ, に жы Куз! eal ん pi 人 OL で mc 
Ç m HA A 1 
РА oa a EL ЖИА RE T 
っ まい ç た に る a ond: bolt M MORS Scl ee も 
ご E MU ECE 6 к, n d Epit T 
Tau ve たっ の we irs bornal mg z 
MEUM ун ARE E У 


MOT, А p ЖМ, тх. 
Ton dA at iie A DS w ues ' > 


К SAC 


PiO 


リリ スト 1 LUNAR CITY SOS マシ ン 語 リス ト 


лл | リスト 2 LUNAR 


10 МА1М=%НА@@@: GSYO=%HA6CO: FCG=&HA897 

20 FONT RESET: CURSOR OFF 

30 CONSOLE 40: WIPE 

40 FOR I=5 ТО 32: CCOLOR 7:PRINT 

5 "SFOR J=1 TO 2Ø:NEXT J 

50 CCOLOR IRND (5) +2:PRINT 
S":PLAY "T2S9SL404N1FB":NEXT I 

OR PRINT (1:5), " 

70 CCOLOR S:FOR I=@ TO 12: ВЕЕР: РКІМТ 
(0,0) LEFT$("2001"*CHR$(242)*" 1"-CHR$(2 
43) +" 12"+СНКФ (244) ,1І) ;:ҒОК К=1 TO 40: NE 
XT K,I 

80 CCOLOR 6:FO0R I=@ TO 23: BEEP:PRINT 
(9,2) LEFTSC"LUNAR. CITY ) TOPSIDER Z", I) 
siFUR К=1 TO 40:NEXT К,І 

9 の FOR I-Q TO 16: BEEFsFRINT (5,4) LEF 
T$("n5307"* 9? ウケ リリ 9 JU".I):s:sFOR Kat TO 40; 
NEXT K,I 

100 FOR I-Q TO 20:BEEP:PRINT (5,6) LEF 
T$("zf*10 I»7"2 Э 325L92.",.I);s:FOR に =1 TO 
40: МЕХТ KE, I 

110 CCOLOR 2:FOR 1=@ ТО 18: ВЕЕР: РКІМТ 
(19,8) LEFT$("LUNAR CITY ^$"?r494",I)oss:FO 
R К=1 TO 4 の :NEXT K,I 

120 CCOLOR 4:FOR 1-0 TO 500: МЕХТ :FOR 
1=0 TO 8:BEEP:PRINT (0,11) LEFT$("^»o7"» 

"SI)S$:FOR К=1 TO 40: МЕХТ К,І 

130 CCOLOR 3:FOR I=@ TO 25: ВЕЕР: PRINT 
(5,152) LEFT ("99* FI 051000290: 797072 k "y 
I)::FOR К=1 ТО 4Ø:NEXT K,I 

14@ FOR I=@ TO 22:BEEP:PRINT (5,15) LE 
FT$("9"4 5 ウチ ュ ウ カン タイ 32 オフ ル 。 ",120;:FOR に =1 
ТО 40: МЕХТ K,I 

150 FOR 1=0 ТО 15: ВЕЕР: РКІМТ 
ҒТФ ("2"+СНКФ (244) +", モチ コタ エ ヨ 。 
k=1 TO 4@:МЕХТ K,I h 

160 FOR I=@ TO 12:BEEP:PRINT 
FT 第 ("ケー トウ Э イノ ル 。 
T K,I | 

170 CCOLOR 2:FO0R 1=@ TO 18:BEEP:PRINT 
(17,21) LEFT あ ("チキ ュ ウ O*#392" 7 LAN", UO; FF 
OR k=1 ТО 40:NEXT K,I 

180 CCOLOR 7:PRINT 
key" :$:PRINT (3,24) " 
190 G$-INKEY$((0):IF G$z 2CHR$(13) THEN 


(1,5) 


(1*1,5) "SQ 


(S217) "5E 
"153 S£ FOR 


(5,19) LE 
" I) s :FOR К=1 TO 40: МЕХ 


(3,24) "Hit RETURN 


@ お ぶさ ざぁ ー ば ぁ 一 


10 READ A$, E$ 
20 FLAY А%+Е% 
SØ DATA 
EFGAB.RZ2 


TiGgQLGV180040C15D16z^aGFEFGEGGISFI16 


20 DATA E15F16GO05CO4EAGAGFEFEDCAR 1 & 


200 CONSOLE 89 

210 WIPE: PCG 

220 CCOLOR 5:РКІМТ " 
ss CCOLOR 6: PRINT " LERA N 
¥ 9.08 jí. '"£$:CCOLOR SePRINT;" 


HHHH" 
Т 
HHHH 


230 CCOLOR 2:PRINT (13,4) CHR$ (150) +CH 
R$ (151) +CHR$ (152); : CCOLOR S: PRINT CHR$(1 
S3)*CHR$ (154) +СНКФ (155) ; : CCOLOR 2: PRINT 
CHR$ (155) *CHR$ (157) +CHR$ (158) ; : CCOLOR 3: 
PRINT " TOFSIDER STATION 20 
points" 

240 CCOLOR S:PRINT (17,6) CHR$ (245) +CH 
R$ (246); :CCOLOR Z:FRINT СНКФ (247) ; : ССОО 
К 5: РКІМТ СНКФ (248) +CHR$ (249) ; : CCOLOR 3: 
PRINT " TOPSIDER UFO 40 
points" 

250 CCOLOR 4:PRINT (19,8) CHR$ (225); :С 
COLOR 2:FRINT CHR$(226);:CCOLOR 4:PRINT 
CHR6 (227) z+ CCOLOR' 3: PRINT " TOPSI 
DER 60 points" 


260 CCOLOR 6:PRINT (20,10) CHR$ (235) +С 


НКФ (236) ; : COLOR 3:PRINT " 
j 8@ points" 
270 CCOLOR 2:PRINT (21,12) СНКФ (129) ;: 
CCOLOR .3: PRINT " TOPON 
100 points" 
280 CCOLOR 2: РКІМТ 
FUNCT I ON жж" 
290 ССО ОК 7: РКІМТ 
НІР 


TOPSIN 


(13,15) "ww KEY 
(1359017) 401 
(カー ソル ле К) " 
300 PRINT (13,18) "(2) BEAM SHOOT 
SPACE key (trigger)" 
310 PRINT (13,19) "(3) BARRIER- 
v (カー ソ ツル)" トル ) " 

320 CCOLOR 6:РКІМТ (12,21) "5000 point 
59 コ エ ル ト ` .BEAM SHIP. 1 ダァ "イィ "4m " 

330 CCOLOR 7:PRINT (22,24) "HIT RETURN 
REY ЫТ 

340 IF INKEY$(1)<>CHR$(13) THEN 340 

350 CCLEAR: GSYO 

360 | MAIN 

370 ON FEEK(&HAFFF) GOTO 430,490 

380 CCOLOR 6:GOSUB 56 の 9:FUR I-0 TO 12; В 


BEAM S 


<===== "> 


(リス ト は PC-6601 よ り ) 


ee テ 


1 


私 は 「JR-100」 の ユー ザー で す . 今度 , 迎 夢 快 人 さん の JUFC に 入会 し ます . 
校 技 を 教え も ちゃ いま す . まず 1 人 用 で スタ ー ト る させ, モレ クト を 押し た まま に し て A の ボタ ン を 数 回 押し ます . する と … 面 中 いか な あ . 最近 ポ 
ケ コ ン も る グラフィック が で き て 。 よ く な っ て き て いる よう で すね . 


これ を 直す に は 、 い くら で らい か か る の で すか 7 — 
' EN i 4 ^ W NF А 
"BT. . 3 ۹ر‎ n rs К“ 5 CS ` 
DU MATS x о! ovo Me "orae. de mI CL My ç л 
" MSS ORE ECT OESTE GE ARE ese | гаг) 
к E QU Me i XE ad La e S s MIR v X E Miu M 


る W か て 、2 章 協 A 島 に まず が 2 つう あり 8 す 條 前 n は 22 ヤー ト で さ 
A13 こと で て が. & ots か ^ 


と ころ で 


私 も PC-1251 を 持っ て いる の で す が , ifii 


CITY SOS BASIC リ ス т A 


EEP:PRINT (25,4) 
+" 1"+CHR$%(24Z)+" 
K=1 TO 4@:МЕХТ K,I 
390 CCOLOR 3:FOR 1=1 TO 22:BEEP:PRINT 
(25,7) LEFT ま ("チキ ュ ウ の チュ ウフ ーー N  hO*T92n",I) 
::FOR K=1 TO 4Q:NEXT K,I 
400 FOR 1=1 TO 21:BEEP:PRINT (25,9) 
FT$ ("LUNAR CITY N マフ 9 し マシ タ 。 , 』:FHR К=1 
TO 4@:NEXT K,I 
410 CCOLOR 7:FRINT 
= RETURN key "; 4 
420 IF ІМКЕҮФ (1) < >CHR$ (13) THEN 42 EL 
SE 200 › 
430 BEEF:CCOLOR 6:PRINT 
440 PRINT (25,4) 
450 FRINT (25,5) 
:GOSUB 550 
460 CCOLOR Z:FOR I=1 TO 27: ВЕЕР: РКІМТ 
(20,7? LEFT$ ("LUNAR CITY "^ ^r494 » セト フル メリ 
"1)s:FHR К=1 TO 40: МЕХТ K,I 
470 FOR I-1 TO 36:BEEP:PRINT (20,9) LE 
ЕТФ ("LUNAR CITY » TOPSIDER ш センリ ョ ウ サレ マシ クタ 
„1);:ЕОК К=1 TO 40: МЕХТ K,I 
480 GOTO 410 
490 BEEF:CCOLOR 2:PRINT 


LEFT$ ("2001 "+СНКФ (242) 
14" +CHR$ (244) , I) 3 t FOR 


"FLAY AGAIN 


(25,12) 


(29,3). "= 


"жжж САМЕ OVER ЖЕҢ 


(25,3) 


300 FRINT (25,4) "44H GAME OVER ###" 

510 FRINT (25,9) 
: GOSUB, 550 

S20 CCOLOR 3:FOR I-1 TO 17: BEEP: PRINT 
(a5, 7X LEFTISUTTO  À^ gum E YU VI) paipa 
K-1 TO 4Q:NEXT K,I 

550 FOR 1=1 TO 23: BEEP:PRINT (25,9) LE 
FT も ("LUNAR CITY n セリ フン メリ ウシ マシ タダ 。 ",1) РОК K= 
1 TO 40:NEXT K,I 

540 GOTO 410 

550 PLAY "T15002L4N2P8N2P16L8N2P16L4N2 
PBNSF16L6N4P14L4N4P16LBN2P16L4N2P16LBN1P 
161 23№2": RETURN 

S60 SOUND "S2003L8NSNSN6L4NSL8N1L2NSL4 


N9L.BN1 11 8391 8N8L 2. N6L8NBL 1 №" : RETURN 


DO I マツ se ミュ ー ジ ッ ツ 


(も ロム に 使え 3 か 自信 は 分 か 6 ちい の で 、 Във, 


16 SL 


ファ ミリー コン ピ ビ ピュータ の ロー ド ・ 


СЕ ' 


ラン ナー の 必 


E が が こわ れ て し まっ た の で す . 


西暦 2020 年 , 地球 に 突然 変異 が 起こ っ た . 
何と , 空 の か な た か ら 無 数 の 落下 物 が 人 々 
めがけ て 降下 し て きた の で ある . ビル へ と 
避難 し た 人 々 は , この 凶器 の 雨 の お か げ ば で 
一 歩も 外 に 出 ら れ な か っ た . そこ で て 勇気 あ 
る あな た は , この 食糧 危機 を 打開 すべ さく, 
果物 収集 へ と お も むく の で あっ た . 

画 プ ログ ラム ・ イ ン フ ォ メ ーション _ 


_ | マシ ン 語 0800~1BFF 
(スタ ー ト 0A37) 


ゲー ム に 新 し さ は あり ませ ん が が , 


н 
F | 結構 楽し め る ゲー ム で す . (у) 
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この プロ グラ ム を 入力 する に は 。 過去 に 
発表 きれ た マシ ン 語 モニ タ を 使っ て くだ さ 
い . プ ログ ラム の セ モーグ は , POKE45, O : 
POKE46, 28| RETURN] | に し て か ら SAVE 
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6M, 


この プロ グラ ム を SYS2615| RETURN | で 
スタ ー ト させ る と , ま ず 説 明 画面 が 出 ま す . 
この と き , |[S| キ ー を 押す と ゲー ム が 開始 し 
ます . | 

人 は [Ll[]] キ ー で 左右 に 動い て 落ち て < 
な フッ ルーツ を っ Е СЕС. ЦОС Әә, 
フル ー ツ 以外 の 落下 物 に 当たっ た り , 爆弾 
が 爆発 し た と き に 発する 衝撃 波 に 巻き 込ま 
れ だ り 。 人 が フル ー ツ を 持っ て いな い の に 
フル ー ツ の 近く に 爆弾 が ある の が 問題 


ビル に 入っ だ りす る と 死ん で し まい ます . 

Jis, 人 が 取っ た フル ー ツ の 数 は 左 の ビ 
ル に 表示 きれ ます が 。 人 の 持て る フル ー ツ 
は 最大 3 個 ま で (それ 以上 取っ て も 取っ た 
こ 渉 に な ら な (60 な の で 注意 し て ぐだ きい 、 
だ だ し , 得点 は 増え ます . 

この 得点 は フル ー ツ を 1 個 取 る ご と に 20 
点 。 フ ルーツ を 1 個 持 っ て ビル に 入る と 50 
m. 2 個 持 っ た と き は 150 点 , 3 個 ど と 350 点 
(C, 入っ だ ビル の 方 に 持っ て いる ラル ー ジ シ 
の 個数 分 どけ 電灯 が つき ます . 

を し て , 左右 両方 の ビル の 電灯 が すべ て 
つく と 1 面 ク リア で , 音楽 が 流れ て 残り 時 
間 が 加算 る きれ ま す . な お , この ゲー ム に は 
各 キ ャ ラク タ の スピ ー ド な どの デー タ を 15 


面 分 用 意 し て あり ます . 


この プロ グラ ム は $0800 一 $1BEF ま で で 
アド レス ・ マ ッ プ と ワー ク ・ エ リア を 表 1, 
MEIR Е. 4. ИЙ | 

LIAC, この ゲー ム の 特色 と し て 落下 
物 や 戸 が ドッ ト 単 位 で 動い て いま す . この 
ゲー ム で は ,。 1 ドッ ト ず つ ず れ だ キャ ラク 
タ ・ ッ マター ン を 作っ て お き , それ を 順に 同 
じ 場 所 に 表示 し て いま す . する と , その キ 
ャ ラク タ が 1 ドッ ト 単 位 で 動い ひい て いる よう 
СЯ АЎ; 
jeg ww 2 Wee ^y =. y 
RANSA 
Ni BRI SSS 
3 ルミ シク NN 

この ゲー ム で は ジョ イス ティ ッ ク は 使え 
ませ ん が 。 1 面目 か ら ス ピー ド 感 を 味わい 
だ い 方 は ど ジョ イス ティ ッ ク の トリ ガ ・ ボ タ 
ン を 押し て みて くく だるい. 

それ で は VIC ユ ー ザ ー の 皆さん , ZOR 
られ だ た メモ リ を フル に 利用 し , 原案 。 グラ 
フィ ッ ク 。 スピ ー ド 。 サウ ンド 共に VIC の 
限界 に 人 迫っ だ すばらし い ゲ ー ム を 作っ て , 
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ビル 等 の 基本 画面 表示 
説明 画面 表示 

S キ ー 判 断 

タイ マー サブ ルー チン 
スタ ー ト ミュ ー ジ ッ ク 
初期 設定 

付加 表示 
全体 の スピ ー ド 制御 
人 の 動作 

戸 の 動作 

死 の 処理 

ビル へ 入っ た 時 の 処理 
ゲー ム ・ オ ー バ ー の 処理 
効果 斉 デ ー タ 
LAT 
落下 物 の 処理 

イン セキ 

バー ベル 


バク ダン 


右 ビ ル の 戸 の 状態 
左 ビ ル の 戸 の 状態 
人 の 果物 持 数 

右 ビ ル の 果物 持 数 
左 ビル の 果物 持 数 
落下 物 の 座標 と WAIT 
人 , 戸 の 回 送 


FRUITS CATCH/ Ti RE x BEENDEN 


ADD +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +С +D «E +F SUM ADD +0 «1 +2 +3 +4 +5 +6 +7 +8 +9 4A +B +С +] +E + $ 
0800 RO 00 98 R2 OE SE OF 90 99 BO 1E 99 00 96 99 00 :94 0200 OB 90 ВЭ 2C 00 85 19 B9 38 OD RE BF OR 9D DA IF :23 
0810 1F 99 Q0 97 CO FF C8 90 EC R2 FE 8E 05 90 R8 R9 :66 0010 20 51 9А RC ЕЗ pR CO AC 90 nO RO 0A SC EB OR 60 :C3 
0820 76 99 16 1E R9 06 99 16 96 C8 CO 16 30 F1 R2 03 :ЕВ 0020 ER E? E8 E? Еб ES E4 00 ЕЗ 20 ЕЗ 00 80 80 80 80 :1? 
0830 AQ 70 SE 08 96 8С 08 1E C8 SE 00 96 8С 00 1E C8 :4C BDA SA 80 80 40 60 40 62 40 4C 4C 77 77 78 78 79 79 :68 Р 
0840 8E 10 96 8C 10 1E C8 8E 11 96 ӨС 11 1E RO 99 8R :D9 0740. AA 99 99 OO RC BF OR CO 01 90 24 CO 11 BO 40 4C :F7 
0850 99 12 96 R9 24 99 12 1E C8 CO 04 90 F2 RO 00 8A OF 9n59 DD OF BC CO OR CO 3D 60 RC ES AA CO 01 60 20 RC :5В 
0860 99 EE 96 99 81 96 R9 74 99 6E 1E 99 81 1E C8 CO :4Ғ 0069 дї EO OF 60 85 26 RC ER BA 84 27 20 B6 OD 60 R2 :4? 
0870 03 90 EC AO 00 R9 02 99 E4 97 R9 24 99 E4 1F C8 :0F 9079 91 20 52 OD 99 03 4C 29 OE 20 58 OD 90 F8 ñQ 01 :44 
0880 CO 16 90 F1 RO 00 R2 00 R9 28 99 9R 1E 99 9B 1E :@D QD8@ 20 SE ON BO.F1 R9 00 R2 21 20 64 OD 4C 49 OF А2 :4F 
0890 R9 03 99 9A 96 99 9B 96 BC R2 08 ES EO 0С 90 ЕВ :F1 ansa 99 20 52 BD BQ EO 20 58 OD 90 DB RQ 00 20 SE OD :2R 
RASAA BA OR 2C 58 84 RO DC 14 40 6C 98 C4 FO 8D R2 9? :21 ADAO BO D4 R9 14 R2 90 20 64 OD 4C 49 ØF B9 ER QA 18 :DD 
98B9 8D АЗ 97 8D B6 97 8D В? 97 R9 28 8D R2 IF 8D АЗ :СВ ADBA ne 6n ES OR RR 60 4C 71 15 ER 20 51 OA R4 2? B9 :FD 
98C9 1F 8D B6 ІР 8D B? 1F RO 00 R2 00 R9 24 99 84 1E :2E enco OA OE 8D D2 AD B9 18 OE 8D D3 0D E6 27 R6 26 R9 :52 
0800 99 85 1E 99 86 1E R9 05 99 84 96 99 85 96 99 86 :RD anna 07 9N 76 9? R9 OF 3N GE 90 RE EC OR BD 26 OE 8D :B6 
98E9 96 BC EB 08 ЕВ EQ 9C 90 E2 BA OB 2C 58 84 BO DC :DR ODEO 0С 90 EE EC OA RC EC OR CC E9 OA 90 CD 20 51 BA :В9 
98F9 13 3F 6B 9? СЗ EF AQ 00 R2 00 R9 24 99 8C IF 99 :F2 99 ӨЛ EC BA AD ac 2? C0 01 90 : 
SUM ЭЕ 96 00 94 FA 99 1? АЗ 92 08 DE 96 75 E9 2E 69 :OF 53 B? 48 BD CD 35 57 63 : 


+C «D +E +F SUM 


ADD +Q +1 +2 +3 +4 +5 +6 +7 +9 +9 +A +B +1 42 +3 +4 +С «D +E + 
0900 8D 1F 99 ЗЕ IF R9 05 99 8C 97 99 8D 9? 99 8E 9? :D? 9EQ9 05 80 ER OR RO 03 8D EB QA 60 R2 R3 76 77 4A 4B :E2 
0310 BC 1A 09 ЕВ EO 06 90 E2 BO 05 13 2C 42 55 3F R9 :92 0E10 1E 1F F2 F3 C6 C? 9R 9B 9? 9? 9? 9? 9? 9? 9? 97 :9C 
0920 07 8D DO 97 SD Е! 97 R9 3D 8D DO 1F 8D Е! 1F RO :8F gE29 96 96 96 96 96 96 F? F9 FB 4C 6B 15 ER 20 51 OA :R9 
0930 00 R2 00 R9 24 99 9С 1E R9 05 99 9C 96 BC 4? 09 :47 9E39 20 ER QC CE BD OA RC BD OA CO 01 BA 03 4C 66 BE :52 
0940 EG EO 0С 90 EE RO OB 2C 58 84 BO DC 11 3D 69 95 :Ер 9E49 R9 99 90 55 1E 8D 56 1E 8D 5? 1E A9 09 8D BF OR :В4 
0950 C1 ED 8D R4 97 8n B5 97 R9 24 8D R4 IF 8D BS 1F :CD @Е50 R9 97 8D DO 97 8D El 97 R9 3D 8D DO 1F 8D Е! 1F :98 
0960 60 18 RO 51 РЭ 03 99 25 96 98 99 25 1E C8 CO 57 :ВС 9E69 20 51 0А 4C 35 13 R2 00 ВЕ 55 1E BD B9 OR DD EO :EF 
0970 90 F2 R2 03 АЭ 15 SE B8 96 8D B8 1E R9 SC 8E BR :71 0E70 OA 90 10 BD EO OR DD B9 OR BO 03 4C 21 OF E8 EQ :E8 
0980 96 SD BR 1E 18 AQ 57 R9 03 99 65 96 98 99 65 1E :FE 0Е80 04 99 ЕЗ R9 71 8 52 1F RO BA BE EO OR ЕВ SA 99 :E? 
0990 C8 CO SB 90 F2 R9 05 R2 2B 8D E4 96 8E E4 1E R2 :19 @Е90 54 1F RR CR ВА 99 B9 OA C8 CO 04 90 ED R9 01 8D :@D 
0980 $C 8D Еб 96 8E Еб 1E 18 RO SD A9 05 99 8B 96 98 : 0C 9ERO 58 1F RO 00 R2 бА SR 99 TF 1F C8 ЕВ CA 06 90 F6 :EQ 
@9В@ 99 8B 1E C8 CO 61 90 F2 RO 00 B9 E4 09 ВЕ DO 09 :9R QEBO R9 00 8D 53 1F АЗ R9 03 99 52 97 99 ?F 9? C8 CQ : P5 
99C9 9D 10 97 B9 DR 89 9D 10 1F C8 CO OR 90 EC BO 1E :88 OECO 07 90 ҒЗ RO 00 8С 85 1F R9 80 85 10 R9 OF 8D OE :6B 
a9na 99 02 04 06 05 2C 2E 30 31 32 OE 5С SB SA 57 ЗЕ :В2 дЕ? 90 20 51 OA RE ED OR RC EE QA BI 08 OF 9D OR 90 :SB 
99E9 SC 51 52 53 06 06 06 06 06 04 04 94 04 04 R9 Q3 :30 gEE9 EE EE ӨН CO 18 90 ER R9 00 8D EE 0А EQ 02 EE ED :23 
Q9F9 AA 99 99 AA 96 C8 CO 15 90 F8 ER ER ER ER ER ER :79 9R R9 FE 85 10 20 : 


SUM DS 97 EC SC SA 11 4A 92 АЗ 74 OA AO 94 73 22 58 :AD 18 9D 68 15 C8 3D C8 QE 75 6R : 
ADD 40 +1 42 +3 +4 45 +6 +? «8 «9 +A +B «C «D «E +F SUM +1 42 +3 +4 +5 +6 +7 +8 +9 +A «B «C «D +E +F SUM 
QADA ER ER ER ER ER ER ER ER R2 64 8E 94 1F CR 8E ?E :5D 9F99 51 OA 20 51 OA 4C 37 OR FE F9 FD FR FC FB FB FC :3F 
OALA 1F CR SE 82 1F CR SE 80 1F R9 05 AO 00 99 7E 9? :0B AF10 FR FD F9 FE FD F8 FC F9 FB FR FR FB F9 FC F8 FD :RC 
9R29 C8 C8 CA 88 90 F? RO 65 R9 03 99 5C 97 98 99 5C :A9 OF29 00 RO BA R2 бА BA 99 27 1F RR ЕВ C8 CO 06 90 F5 :ВА 
0830 1F C8 CO EA 90 F2 60 20 00 08 20 61 09 20 57 0B :27 OF39 RO 00 A9 03 99 27 9? C8 CO 06 90 F6 R9 FE 85 18 :F3 
9R49 R6 CS EO 29 90 FR 86 10 R2 29 E4 10 90 F2 4C FF :2@ 9F49 20 51 OA 20 51 BA 4C 37 OA 4C 86 OF RO 00 B9 FO :AD 
0950 14 RO 06 R2 00 ЕВ E4 10 90 FB C8 C4 10 90 F4 60 :3D OFS9 OA 18 D8 79 EO OR RR EQ OA BO OR 99 EO OR C8 CO : B6 
AAEA R9 86 8D OE 90 R2 00 BC 82 pR 8C AB 90 9С 0С 90 :13 OF69 04 90 EB RO 12 38 D8 E9 OR 99 EO ВА 84 28 R6 28 :41 
QR?0 E8 86 11 R9 ñQ 85 10 20 51 OA AG 11 EA 11 90 E? :F? @Ё?@ FE DF OA C8 4C 4E OF RO 20 98 99 FO OA C8 CQ 04 :RF 
0R80 BO 12 EF EE EF EC EF EE EF EB EF EE EF EC EE EF :С6 @F80 90 F8 20 57 OB 69 RC E9 9A R9 05 8D ЕЗ BA CO 02 :93 
0R90 FO FO 00 08 R9 00 RR BD R4 OR 9D BD OR ЕЗ EO 15 :DF OF9@ BO 06 20 4C OF 4C RR OF CO 03 BO 0? AS 91 8D F2 :D9 
9RR 90 FS RO 2E 03 11 09 36 36 20 01 00 00 99 00 99 :0D OFAO OR 90 EF R9 03 8D F2 ØA BO ЕЗ R9 99 8D ES OR R9 :28 
ПАВ? 00 00 99 28 20 05 07? G6 08 00 05 00 00 08 11 OR :82 OFBO 09 81 RF AA RS 3D 8D CO OR 8D Сі AA R9 0? 8D DO :01 
QACA 35 35 20 01 00 00 ро 99 00 99 OO OO 28 20 05 07 :DF OFC9 97 8D Е! 97 R9 3D 8D DO IF 8D Е! IF 4C 35 13 F6 :15 
enne OE 98 AA 99 98 99 EO OR C8 CO 38 90 F8 R8 BO 39 :A2 gerne F? F8 F9 FR FR 00 00 FE FD FC FB 08 QQ RC F5 QR :7A 
ОАЕ? AQ 99 OO OO OO 10 42 10 QA 00 OO OQ 99 OO 00 80 :E2 9FE9 CA 01 BO 50 EE EF OR RC EF QA CO FE 90 OD RO 00 :48 
QAFA 00 99 OA 09 08 BA GO AA SA 00 OO O4 00 OR OO 00 :79 OFFO 8C EF OA EE F4 OA RC F4 AA CO OC 99 37 AQ pQ 8C :DR 
SUM AE 69 DS AS 44 51 BD EC 62 25 F4 10 E8 EO 6C 20 :ñ6 2R ES 3B 58 $1 7Е 7B D3 : 
ADD +Q +1 +2 +3 +4 +5 +6 +7 +8 +9 +R +B +С +0 +E +F SUM ; +6 +С +D +E +F 
OBOA 99 OO OO OO OQ OO OO OO AA OO OO OQ OO OO OO OQ :99 100A F4 QA EE F6 QA RC F6 9A CO 11 90 OD RO pQ 8C F6 :28 
opio Qp OO OO OO OO OO OO 99 OO 4C 34 OB 09 09 00 OQ :8B 1018 OA AQ 02 8C FS OA 4C ЗЕ 17 RC F6 PR B9 42 10 8D :1C 
0p20 00 00 OO OO OO 99 OO OO OO ве OO OO ве 99 99 ва :99 1020 15 1E B9 ЗЕ 19 8D 14 1E B9 ЗА 10 8D 13 1E B9 36 :R9 
OB39 00 00 00 00 20 00 AR RO OO R9 4C 99 55 1E R9 03 :?5 1030 10 8D 12 1E 4C RE 11 24 24 24 24 24 24 24 24 24 :1C 
-0B40 99 55 96 C8 CC ВІ OA 90 FO R9 03 RO 00 99 00 96 :DR ` 104Q 24 24 24 25 26 27 00 00 99 PO 20 99 OO 00 OO 99 :DE 
0850 C8 CO 15 90 F8 BA 26 RO AA BE B9 PR ЕЗ 8R 99 02 :29 1050 00 00 00 00 A4 70 CO AC 90 98 RO C6 A2 9B R9 В! :75 
OBEA 1E C8 CA 04 90 F3 RO 01 8С 06 1E SC OE 1E 88 BE :7С 1060 BQ 06 RO 85 R2 SA R9 RO 8C 74 10 SE 7B 10 8D 80 :R6 
0870 EO OR ES ЗА 99 OR 1E C8 CO 04 90 ЕЗ 60 A2 4C 8E :08 1979 10 R4 69 BE СЄ 10 86 26 86 28 BE 9B 10 86 27 BE :DF 
0880 D9 1F R2 03 8E 19 97 20 5? OB R9 OC 85 10 20 51 :18 _ 1080 В! 10 86 29 60 2E 44 SA ?0 86 9C B2 C8 DE F4 OR :84 
0B90 OR EE E4 QA RC E4 AA CC CC OR 90 66 RO 00 3С E4 :28 [E 1E ЈЕ: 
OBAO OR BA 21 RC RF AA R9 00 99 CF 1F RC BF OR R9 03 :R1 - 
ABBO 99 DA 97 R9 4С 99 DO 1F 60 RC BF OR R9 900 99 D1 :65 | 

OBCO 1Е 4C RB OB R4 CS CO 16 90 9А CO 17 BO 06 EE BF :34 

ABNA OA 20 ЯЗ 0B R4 CS CO 15 90 OA CO 16 BO 86 CE BF :C9 

OBEO OA 20 B9 OB RC BF QA CO 90 90 05 RO 00 8C BF OR :3D 

9BF9. 20 RB AB RC BF QA CO 11 90 05 RO 11 ӨС BF OR 20 :D? 

SUM 38 RB R3 15 85 1D SA ñQ S8 9F 26 D3 24 72 89 98 :9E 

ADD 40 41 42 +3 +4 45 +6 +? +8 +9 +ñ +B +C +D «E +F SUM 

9C99 RB OB R9 0% 8D E2 97 R9 24 8D E2 1F ER EE ES pR :8C 

9C19 RC ES OA CC CD OA BO 03 4C E? OC RO 00 8C ES OR :4B 1110 91 26 : 
0020 4C 89 OC R4 8D R2 90 CO 22 90 02 R2 40 CO 56 90 :40 ` 1120 11 R4 4E 91 26 AS 53 91 28 60 16 18 1A 1C 1E 20 :6D 
9C39 02 R2 25 CO RC 90 02 R2 12 CO EO 90 02 R2 05 86 :DR 1130 22 00 17 19 1B 1D 1F 21 23 15 12 14 00 00 00 00 :28 
0740 QE 60 RC С! OA CO 3D BO A7 CO 36 90 0? 4C R$ OC :23 1140 00 00 11 13 OB AC OD OE OF 10 2D 2F 31 33 00 00 :35 
9C59 AO 02 BO 02 RO 04 84 08 4C 8С OC RC CO OR CO 3D :DB 1150 00 00 2E 30 32 34 29 2A 2B 2C ЗЕ 41 43 45 47 49 : 06 
acea BO A7 Cg 36 90 27 4C D4 AC RO 02 BO 02 RO 04 84 :EC 1160 00 00 40 42 44 46 48 4A 4B ЗЕ 00 00 00 00 99 00 :27 
9C79 Q6 4C ВВ OC FE CO QA BD CO OR 99 DO 1F R9 0? 99 :39 1170 00 ве 00 ве ве 99 OO OO OO OO OO OO OO OO OO OQ :99 
9C89 DA 97 60 DE CO OR 4C 77 OC 4C 42 OC EE Еб 0А RC :62 1180 00 00 00 O0 ве ве OO ве OO OO OO OO OO OO OO OO :99 
9C99 Еб OR C4 04 90 22 R9 00 8D Еб PR 20 BB EO 20 23 :8E 1190 ве ое 00 00 ве ве 20 OO OD OO OO OO OO OO OO OO :OD 
OCAQ OC R6 OE 86 84 R4 03 CO 03 RO AQ R2 01 90 06 20 :В2 11R0 00 BO QO 99 BO O0 99 OO OO OO OO OO OO OQ EE F9 :E? 
@СВ@ 74 OC 4C B8 OC 20 81 OC 4C 5B OC EE E? BA RC E? :62 1180 OA RC F9 OA CC CE ARA BO 03 4C 4E 12 ñQ 00 8C F9 :E1 
OCCO OR C4 05 90 22 R9 99 8D E? OR 29 BB ЕВ 20 23 OC :B6 11C9 OA 4C 31 12 R6 10 BD 6C 11 C9 01 90 05 DE 6C 11 :43 
oo R6 OE 86 05 A4 06 CO 03 RO 11 R2 00 90 96 20 74 :29 1100 BO 4F BD 6B'11 C9 01 BO 11 20 ВВ EO AS 8D 4A 4A :44 
9CE9 OC 4C E? 8C 20 81 0С 4C 44 QD RC E8 PR EE ЕЗ QA :13 11Е0 4A 4A R8 C8 98 R6 10 9D 6B 11 85 79 BD 6A 11 8D :25 
9CF9 R2 OF ВЕ OE 9A B9 20 PD 8D AC 90 18 D8 69 OR 8D :DC 11F8 РӘ QR R9 04 85 53 R9 SR 8D ØC 11 R9 62 8D 1F 11 :FC 
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ADD 40 41 42 +3 +4 +9 +6 +7 +8 «9 +ñ +B +С +0 +E +F SUM 
1900 00 00 00 00 00 00 18 3C PE DF FF 6E 3C 18 00 00 :72 
1910 00 99 99 O0 00 00 20 18 3C 7E DF FF 6E 3C 18 00 :72 
SUM ЗА 7B 53 59 6C 5С R1 4F 74 ВВ 90 86 E4 EC CC RC :А6 


1920 FF FF FF FF FF FF FF FF FC 


SUM FO E4 F8 RE 25 24 DE 16 38 19 1C 27 F3 4A F4 00 :?C 
1930 FQ FO FO FO Fo FO FO FO C 


(マク ロス が 見 れ な く て し ょ げ か えっ て いる 出 戻 始 ) 


1940 FF 81 89 91 R5 89 81 FF E 
1950 00 E? AS BD R$ E? 00 00 


ADD +0 +1 +2 +3 +4 45 - 
1960 00 99 


1700 03 07 07 06 05 0 
1710 20 20 

e 
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ADD +0 «1 +2 +3 +4 + 
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19F9 04 OR 11 10 28 
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1700 FF 
17E0 BF 
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19A0 RS В 
1980 FF 81 
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BASIC 十 マシン 語 


アバ ルド 


APPARD 


圏 き し さき し 


К 7979 Р へ へ КА A^ A ^ A А Ф ME. Uu ^ KA AA qe ^J MCA. AKA ЧҮ А へ ^. t ^ AA > 
К 0 0 0» (m (CI a 0» 00 000» 0 00» 09» (9) 09)» (000 (00e e У, 
Se Va AA, VIO TA V) S97 S9: 624004002406 ンジ く 6 の 


お れ は 全速 力 で あの 市 街 地 へ 突っ 込 も う 
と し て いた . 戦車 アバ ルド に 乗っ て …. 
戦車 アバ ルド ー 一 超 最 新型 兵器 . それ ま 
で の 戦車 の イメ ー ジ を 一 変 さ せる ほど の 高 
速 走行 お よび 高速 転 廻 、 な に し ろ , BOSE 
車 が 止ま っ て 見 える と いう くら い だ . それ 
が , この 四方 入 方 敵 に 囲ま れ た 最前 戦 に 部 
品 の まま て 送ら れ て きた の が 10 日 前 . 開発 
され た ば か り の 代物 な ん で , 本 部 も 相当 あ 
せっ て た ん だ ろう な . 本 物 の エン ジニ ア も 
いな いこ の 最前 戦 に , 部 品 の まん ま 送 っ て 
くる な ん て ……. 

仕方 な いか ら , 組み 立て は 隊長 や ら パ バイ 
ロッ ト や ら 給 仕 長 や ら が わい わい 言い な が 
ら や っ た . それ で も な ん と か 出来 上 が り , 
いよ いよ 明日 が 走行 テス ト っ て 時 に 一 一 お 
れ は 無 許 可 で 出撃 し た . 失敗 すれ ば 軍法 会 
議 モ ン だ ろう が , 成 功 す る に 決ま っ て る さ . 
МОЗ аЗ сл 5. お れ は 英雄 
だ . 失敗 する わけ が な い …. 

と ころ が 市 街 地 に 突っ 込み , 減速 し よう 
と べ ペタ ル を 踏ん だ 途 端 , お れ は 青く な っ た . 
ーー ブレーキ が 効か な い ./ ノ そん な バカ 


y. 

と 突然 。 組み 立て の と き に 部 品 が 余っ た 
と 言っ て いた 誰か の 言葉 が お れ の 脳裏 を か 
すめ た . 

ae е PP d 

が , も う 遅 い . お れ は アバ ルド の レー ダ 
ー コ ン ソ ー ル に , さっ きか ら 瑞 戦車 が ご ま 
塩 を ぶっ か けた みた い に 写 っ て いる の に 
気付 いて いた . も う 後 戻り は で き な い . m 
を 破壊 し て , 破壊 し まく っ て や る ./ それ 
か ら , それ か ら …. 


お れ は , 操縦 か ん を 握る 手 に 力 を 込め た . 


圏 プ ログ ク ラム ・ イ ン フ ォ メ ーション 
ー -o ET | 
| マン シン 語 6000—7648 
LET 
っ うっ っ 


お が の の 


敵 戦車 が 動い た り , 攻撃 し て くる 
| と も っ と 面白 く な っ た の に ….(V) 


У N ^w N ヘン へ ^ — л へ ` à ^ ia А A ベン =” = a4 Ya ^T ペン へ A AVAA へ ペン AN へ N 
@ ОКО АО Ф 


プロ グラ ム は BASIC + > > > m +. 
まず , BASIC 部 (リス ト 1) を 入力 し た 
Ó 一応 テー フ に セーブ し て お きま し ょ う . 
を そし て マシ ン 語 部 (リス ト 2) の 方 は , = 
ニタ で 入力 し たら BiO 7 月 号 か 11 月 号 に 載 
э, Ме-200Н fx. 5 ДК, 4? 
D О ДС am Ле Чиа >Р | Г 
くだ さい (11 月 号 の 方 は , $5000— 57:5 


広い 市 街 地 一 体 今 ど こ を 走っ て いる の か ? 


に リロ ケー ト し て か ヵ ' ら A=USR ($ 5000) 
で 走ら せ て くだ さる い ). そし て BASIC 部 の 
後に モー ブ し まし ょ う . 次 回 か ら は LOAD 
: MLOAD: RUN で ゲー ム が 楽し め ま す . 


3 
j 
ў, 
y 


まず タイ トル 画面 が 表示 され , [S] *— 714 
す と ゲー ム ・ ス ター ト で す . 中 央 の 白い 
戦車 が アッ ルド で て で, カー ソル ・ キ ー ま た は 
ジョ イス ティ ッ ク ゼ 移動 し ます . 壁 や 敵 戦 


車 に ぶつ か ら な いよ うに 操縦 し て くだ さい . 


Z LT, [SPACE] キー また は トリ ガ ・ ボ 
タン で 弾 を 発射 し て 敵 戦車 を 破壊 し て くだ 
きい. Б, 弾 は 4 連射 で きま す が 。 射程 
距離 は 3 キャ ラク タ 分 し か あり ませ ん の で 
¿EK に で くだ きい 。 

この よう に し て , MRAZOM (あと 何 
両 か は ラウ ンド の 下 を 見 て くだ きい . また 
50 と いう 数 字 が いや な 人 は , 30 行 目 の TA 
三 50 を 変 た て くだ さい ) 破壊 し た と ころ で 
面 ク リア デア で, 面 ク リア ご と に 壁 の 色 が 変わ 


mi アド レス ・ マ ッ プ 


市 街 地 デー タ 

表示 デー タ 

キャ ラク タ ・ デ ー タ 1 
ミュ ー ジ ッ ク ・ デ ー タ 
メモ リ の 初期 化 
定義 文字 の 設定 

アバ ルド 表示 
市 街 地表 示 

キャ ラク タ ・ デ ー タ II 


市 街 地 の ポイ ンタ 
アバ ルド の 進行 方 向 
残り 敵 タ ンク 数 
アバ ルド 残り 

アバ ルド の パタ ー ン 
ウッ ンド 

タイ マー 

АЗУ 
ハイ ・ ス コア 


0, アパ ルド の 動き も 速く な り ま す . 

この スピ ー ド は 4 面 が 最高 速 に な り ま す 
が 。 この スピ ー ド に つい て いけ る 人 は まず 
ор Е р РЕ аа ЧЕ SAN: ST Tu: е. Би 
する と , 5 面 で は 壁 が 見 を なくなり, 6 面 で 
は 道 の ド ッ ト も 見 えな く な り ま す . Áo 
ター ン は 1 面 か ら 変 化 な が いむ ので , 記憶 力 だ 
け で 進ん で 《 だ さき さい. 7 面 以 後 は まだ 1 面目 
に 戻 : り ます . 


市 街 地 の パタ ー ン に 飽き た ら , GOTO 
10000 を 実行 し て , "READY" が 表示 され 
て か ら ЕОМ し て くだ さき さい. この 場 谷 。 乱 
数 を 使っ て いる の で , と ん で も ない フッ パタ ー 
ン に な る 恐れ も あり ます が 。. を その と き は も 


うー 度 や 直し て *《 さる 
921267 90 CHR ER // 


エ き 4r Фй Cpr 
rw: 
LY 4# 
x ¥ 


コン パイ ラ が 手 に 入っ ただ ので, 高速 ゲー ム が 作れ ます . э 
ン 許 を ロー ド す る と き が サイ ュー./ ). 


i $ 
に ステ ここ うそ 


を ち は ./ NATTSU で す . PiO10 月 サ p.76 で は PC-1251 ユ ー ザ ー と 上 半 い て あり まし た が 、 実は PC-6001mkII の ユー ザー で も ある ん で す . や っ と 
БЕ 兵 る さん ドア ド ズ mkH を 買い に まじ ょ うう./ МУУС 
Р.5.1 КоА, 吉 の 会 誌 1 ケ に 幸せ て くだ る いま し て あり が と う ご ざ いま し だ た だ. PS2 kW 
は か っ こい い ( 本 人 が 革 け と いう の で …)” P.S.3 ШАЛБА. 20 才 に な っ た そう で すね . お めで と う ご ざ いま す . 


EN 


10 REM ———— APPARD ---- 
20 TEMPO 109:CLEAR $4FE3: RANDOMIZE: H=@: P 
-USR(($724C) :POKE 0,0 

25 GOSUB 5000: RD= 1 : 5= の 

30 TA-250:8X-248:8Y-249:P-USR ($7223) : TM-200 
-RD*50: АХ=0: AY=-1 : АК=%88: AA=3 

40 POKE $700B,MOD(RD,6)*$40:POKE $7001,4*4 
44:IF MOD(RD 。6) =5 THEN POKE $700BR,0 

45 IF MOD(RD,6?)-0 THEN POKE $7001, $40 

50 COLOR 2,0,0:CLS:COLOR ,,1 

60. LOCATE 25,1:PRINT.. "X° 15) *"3LOCATE 235, 
2:PRINT "9 ( (бж, " 

70 COLOR 4,,0:LOCATE 262,4: РКІМТ "JR-200" 
:COLOR S:LOCATE 24,7:FRINT "Score" 

80 LOCATE 24,12:PRINT "High-":LOCATE 25, 
13:PRINT "Score" 

90 LOGATE 27,17:PRINT "Round" 

100 COLOR 7:LOCATE 24,15:FRINT H:LOCATE 
23,17: PRINT RD:LOCATE 28,19:PRINT "SQ" 
110 LOCATE 24,9:PRINT S:GOSUB 5000 

120 P-USR(($72AB,$5000-5Y*64-8X) 

130 TEMPO 20:PLAY "B",,$71DE,$71F9 

140 REM NENNEN | ООР ИШ 
190 IF PEEK($32)-0 THEN PLAY 
$71F9" 

160 REM -—--- APPARD f" % 
170 PICK P:ST=STICK (1) 
175 IF F-$20 OR INT(ST/16)=14 THEN GOSUB 
1500:GOTO 300 


"B",,$71DE, 


-1:AX-0:0K-$88: GOTO 230 

190 IF P=$32 OR P-$1F OR ST=253 THEN AY- 
1:АХ=0: АК=%8С: GOTO 230 

200 IF Р=%59 OR P-$1D OR ST-25 
-1:АҮ=0: АК=%84: БОТО 230 
210 IF P-$50 OR P=$1C OR ST=247 THEN АХ= 
1:AY=0: АК=%80: GOTO 250 , 

230 SX=SX+AX: SY=SY+AY: P=USR ($72AB , $5000 
SY*64*98X) 

240 Q=USR ($728D,,Ak):IF P=@ THEN 500 

250 R-PEEK($C26B):COLOR 2,0,1:LOCATE 11, 
11: PRINT "-/":LOCATE 11,12:PRINT ".Q" 
260 SX=SX-AX:SY=SY-AY:FOR Р=1 TO 9: SOUND 
700,5: SOUND 350,5:NEXT P 

AA=AA-1:IF АА=@ THEN 5500 

GOSUB 5000 

P= =USR ($728D , , AK) 


1 THEN AX- 


К) = の THEN 390 
320 0=%5000+РЕЕК (К+2) *64*PEEK (R+1) : SO-PE 
EK(Q):POKE Q, 

550 POKE К+1 , PEEK (R+1 ) +РЕЕК (К+3) : РОКЕ R+ 
2,PEEK (R*2) *PEEK (R+4) 

540 51=%5000+РЕЕК (R*2) *64*PEEK (R*1) 

550 IF PEER(R+1 ) =РЕЕК (К+5) AND PEEK(R*2) 
=PEERK(R+6)〉) THEN 370 

555 IF РЕЕК (51) =5 THEN 270 

360 IF РЕЕК (51) <1, OR РЕЕК (51) >4 THEN 380 
365 0=51:5=5+10:С010К 7,,0: LOCATE 24,9:F 
RINT S: TA-TA-1:IF ТА=@ THEN 6000 

367 LOCATE 27,19:PRINT TA 


(奈良 交通 の バス ガイ ド の 伊興 田 さ ん が 大 好き で, 


180 IF Р=%51 OR P=$1E OR ST=254 THEN AY- 


FOR R-$4FEA4 TO $4FFF STEP 7:1F PEEK( 


POKE R,0:POKE O,10:GOTO 390 
POKE S1,S0 


1510 P= を $4FE4 

1515 IF Р=%5@@@ THEN RETURN 

1520 IF РЕЕК (Р) =1 THEN P=P+7: БОТО 1515 
1530 PLAY "B",$7210 

1540 R-PEEK($C26B) *$10: 02$5145*SY*64*8X: 

50=0:51=0 

1550 IF R=$90 THEN 0=0+1:50=1:60Т0 1585 
1560 IF К=%94 THEN 0=0-1:50=%ҒҒ : GOTO 158 

5 

1570 IF R=$98 THEN Ü=D-64:S1=$FF:GOTO 15 

85 

1580 О=0+6&4:51=1 

1585 IF PEEK (0) =5 THEN RETURN 

1590 IF PEEK(Q)<>@ AND PEEK(0)<>1Ø THEN 
1640 

1595 0-0-$5000 

16800 FOKE P,1:POKE Р+1 ,МОр (0,64) :РОКЕ P+ 
2,INT(Q/54) :POKE Р+5,50: РОКЕ P+4,S1 

1605 IF S0-$FF THEN SQ--1 

1607 IF S1-2$FF THEN Si1--1 

1610 POKE P*5,PEEK(P*1)43*80: POKE P+6。FE 

EK(P*2)*3*S1:POKE 0+%5000, (К-%90) /4+6 
1620 50=50#2+11:51=51#2+11:К=К-%40: COLOR 
6,,1:LOCATE 50,51 

1630 PRINT CHR$ (К) ; CHR$ (R+2) : LOCATE 50,5 
1+1:PRINT CHR$ (R+1) 』 СНКФ (R+3) : RETURN 
1640 S-S*10:COLOR 7,,0:LOCATE 24,9:PRINT 
5:ТА=ТА-1:ІҒ ТА=@ THEN 6000 

1050 LOCATE 27,19:PRINT TA:POKE О, 10: КЕТ 
URN 

5000 REM ---- APPARD PRINT --- 

3010 COLOR 2,,1:LOCATE 26,21:PRINT РС (5 
):LOCATE 26, 22: PRINT, SPC (S) 

3020 IF АА=1 THEN RETURN 

3030 LOCATE 29,21:PRINT "'4";LOCATE 29,2 
2:PRINT '"$':1F AA=2 THEN RETURN 

3040 LOCATE 26,21:PRINT "'4":LOCATE 26,2 


iPRINT '"$' 


3050 RETURN 

5000 REM ---- タイ トル 

5005 COLOR ,0,0:CLS 

5010 DATA 10,12,11,14,17,20,24,26 

5020 RESTORE: COLOR ,0,1:FOR P=1 TO 15 ST 
EP 2:COLOR INT (RND (1) * さ )+1 

S030 READ R:LOCATE R,P:PRINT "%' 
САТЕ R,F*1:PRINT "£&((&&," 

5 の 4 の NEXT P 

5 の 5 の DATA 0,18,0,20,2,20,0,22,2 
6,22,8,22, 10, 22, 12,21, 14,21,25, 
5060 COLOR 1:FOR P=1 TO 13 

5070 READ R,O:LOCATE R,GQ:PRINT "!#": LOCA 
TE R。 ロ +1:PRINT '"$'; 
5080 NEXT P | 
5090 LOCATE 5,10: РКІМТ 
PRINT "EG" 


"X)*":LO 


"DF":LOCATE 3,11: 


よく NUTTSU と 間違わ れる NATTSU ひ ) ` 


`512@ COLOR 4,,@:1ОСАТЕ 5,8:PRINT є. зарра 


5540 COLOR S:LOCATE 5,13:PRINT "Wars, 


る の 2 の TEMPO 109:ҒОК Р=@ ТО 9:SDUND 400,5: 


5100 COLOR 7:LOCATE 3,7:PRINT "DF": LOCAT 
E S 88 PRINT "EG" 
S110 COLOR 6:LOCATE 16,18:PRINT 


OCATE 16,19:PRINT "UWUW" 


"TTS sh 


rd":sLOCATE 5,11:PRINT ERR 

S5130 LOCATE 13,13:PRINT *"1"'sLOCATE 14, 
(4S PRINT "4" 

5140 LOCATE 9,159:PRINT '"9" = + "0" 
5150 LOCATE 14,16:FRINT " 4": ОСАТЕ 13,1 
ТЕРЕМ; 

5160 LOCATE 20, 19:РКІМТ '"SPACE"': COLOR 
S:LOCATE 17,22:PRINT "Push s key...." 
5170 TEMPO 109:Рі АҮ "B",$71DE,$71F9 
5180 PICK P:IF Р=%75 THEN RETURN 

5190 IF PEEK($30)-0 THEN 5170 


5200 GOTO 5189 
S500 REM -——- BAME DVER ニニ ニー 
5505 PLAY "F",$97018,97018,97018:COLOR ,9 ' 


,U:CLS 

5510 COLOR 5,1: LODATE 11, 1:PRINT "X''*) 

+"s LOCATE 11,2:PRINT "g (CR, i 

5520 COLOR 5, „0:1 ОСАТЕ 8,6:PRINT ".Score 
"15: PRINT 

5525 IF SH THEN H=S 

S530 PRINT TAB(8);"-High-":PRINT ТАВ (10) 
3 "Score"sH 


un 


n't come easy. ":PRINT 

5550 PRINT TAB(5); "You must have been th 

ink"s:PRINT 

5560 PRINT TAB(6)?;"about it.":PFRINT:PRIN 

T TAB(5); “Game the "АРРАКр" is':FRINT 

5570 PRINT ТАВ (5) ; "immortal." 

5580 FOR Р=0 TO 9:SDUND 200,5: SOUND 200, 

5: SOUND 900,5: МЕХТ Р 

5590 FOR Р=0 ТО 5000: МЕХТ Р 

5600 БОТО 25 ; 

6 の の の REM ——— ROUND CLEAR ---- 

6005 PLAY "F",$7018,$7018,$7018 

6010 COLOR 7,0,0:LOCATE 8,9:PRINT 
!":Sz8*RD*100 


"CLEAR 


SOUND 800, 3: SOUND 1200,5:NEXT P 

6030 TEMPO 20: RD=RD+1: GOTO ZØ 

10000 REM -- PATTERN CHANGE -- 

1 の の 1 の RANDOMIZE x 

10020 FOR P-$5000 TO $6FFF:POKE P。 の :NEXT 
P 

10030 FOR P=1 TO 900: РОКЕ $¿QQQ+INT(RND ( 
1) #4032) +INT (RND (1) *64) ,S: NEXT Р 

10040 FOR Р=1 TO 100:POKE *6 の 9 の +INT(RND ( 
1) *4932)+INT(RND(1) +64) , INT (RND CI) #5) +1 
1@@45 NEXT Р 

10050 FOR Р=5 ТО 58 
10060 POKE $6140+P,5:POKE $6EB8Q*P,5:POKE 
$5005*P*64,5:POKE $602A*P*64,5 

10070 NEXT P:END 


. ^ — 


リス ト 2 APPARD マシ ン 語 デー タ ・ リ スト 
6268 05 05 00 05 05 00 05 00:19 
6 で CO 05 の の の の OO 05 OO 05 00: OF 
6 で CB の の ро OO 05 QQ QQ 05 の の : 0А 
6SD OO の の 05 QQ の の の の 05 00: 0А 
6 で DB の の QQ の の QQ QQ の 5 の の 00:05 
S2EQ@ 05 00 01 QQ の の の の QQ 05: DE 
o2EB8B 05 QQ QQ 05 QQ 05 05 00:12 
6 で F の の 05 の の QQ の の OO 05 00: дА 
e62F8 QQ の の QQ の 5 OO QQ の 1 00:06 


ーー ツー ーーー"ー ーーーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー somon 一 ーー ーー ーー ー… ーー ーー ーー ー こ ーー 


14 1E 18 1E 19 QA 31 14:DO 


SUM OA 1F ØF 2D 19 20 14 


6500 00 の の 05 05 05 の の QQ 
6508 05 O0 の の の の の の 05 00 00: 0^ 
6510 O00 оо の の QQ OO 05 QQ 00:05 
6518 05 05 00 の の の の QQ OO 00: O^ 
ら 69 で の の の QQ QQ QQ ро OO O5 00:05 
6528 の の の の の 5 QQ 05 QQ 05 の の : の F 
6530 05 00 05 QQ 05 05 O0 00:14 
6938 の の の の の の 05 の の O5 の の 00: 0А 
4240 の の の の OO の の 05 の の OO 00:05 
6548 ор の の の の OO OO QQ OO 05:05 
6550 O00 05 05 02 00 05 QQ 05:16 
6558 の の の の QQ の の の 5 の の 05 05: OF 
6560 の の 05 の の QQ の の OO O5 4: の 
6568 の の 05 оо 05 05 00 00 05:14 
6570 05 の の QQ QQ の の 05 QQ 05: OF 
6578 QQ の 5 の 5 の 5 の 5 QQ の 5 


SUM 14 17 19 16 23 1E.19 1D:D1 


ら 6 さ 3 の の 05 の の оо OO の 5 QQ QQ @@:@^ 
6308 の の の の OO OO 05 の 5 00 QQ:QA 
4310 の の の の 05 O5 の の QQ 05 00: пр 
64318 の の 05 05 QQ の の QQ 00 00: の 
63520 05 の の 05 の の OO OO QQ 05: OF 
4328 の の の の の の OO OO OO QQ 00: по 
43230 00 OO QQ QQ OO QQ の 5 00:05 
6338 00 00 の 5 05 00 05 05 00:14 
4340 05 00 O0 QQ 05 QQ OO 00: ПА 
6548 05 по 05 の の 05 の の 05 05:15 
0350 01 05 QQ 05 の の の の 05 00:10 
6358 05 05 05 o0 の の 05 の の 00: 14 
6360 05 05 ро の の 05 OO QQ @@:@Е 
63568 00 の の の の OO QQ 05 の の 00:05 
6370 の の の の の 5 O0 OO QQ O05 00:04 
6578 по の の の の の 5 の の の の OO @5:@А 


ーー — "ーーーー seeen spome ーー sotos coson ーーー ーー ーー conse somut ーー 一 ~ 一 - ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー 


ово QQ の 5 QQ QQ 05 05 QQ 
6588 05 05 の の QQ の の 05 05 00:14 
6590 00 の 1 00 05 の 5 05 QQ 05:15 
4598 05 00 05 05 05 の の QQ 01:15 
55А@ ор 05 05 QQ の の QQ QQ 00: DA 
6SQB の の оо OO A3 OO O1 の の 00: 04 
Во 05 O0 QQ の の QQ 05 QQ の 5: の F 
65EB 05 の の 05 05 05 02 00 @5:1С 
43C0 QQ ро оо QQ 05 от OO 05: 0с 
6SCB の の の の 05 QQ OO QQ OO 00:05 
оро OO の の QQ O5 OO 05 の の 00: па 
oS5D8 の の の 4 оо QQ OO OO OO 00: од 
SSEQ の の の の QQ QQ OO O2 QQ 00:02 
6SE 05 の の の の の の の の OO QQ の の : の 5 
&55Е@ の の 05 05 QQ の 5 05 OO 00: 14 
6SF 昌 の の の の QQ 05 の の QQ 05 i 


ヤー 


63580 05 05 の 1 の の 05 QQ 00 00: 0Е 
43838 の の 05 の の 05 00 05 の の 00: OF 
63590 05 00 05 05 01 05 の の 05:14 
6598 の の の の QQ 05 QQ QQ QQ 00:05 
OJAD 05 の の QQ QQ OO OO OO 00: 05 
зав の の OZ ро の の 05 QQ 00 00: 0А 
зво の の の の OO OO QQ の 5 QQ 05:04 
зва の の 05 の の 05 QQ の 5 05 00:14 
63C の の の の の の の の 05 OO QQ 05: O^ 
63 じ 8 05 の の の の の の OO OO の 5 00:04 
ら 63D の 05 の の の の QQ の の の 5 QQ OZ5:0F 
e63D08 05 の の の の の の 05 QQ 00 05: OF 
SE の 00 QQ 05 QQ QQ OO 05 00: ПА 
63EB の の の の の 5 QQ の 5 QQ QQ 05: OF 
63F の の の 05 の の の の 00 の 5 05 @5:12 
6 さ FB 05 の の の の 05 05 QQ 00 の の: の F 


ーー ーー ーー ーーー ーーーーーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー 


£1 129.19 19 1F 1E.12 2*1DS 


6600 05 05 05 の の 05 02 の の 
6608 の の QQ OO 05 05 05 05 05:15 
6610 QQ ро の 5 QQ QQ Q5 QQ 00: ПА 
6618 ро 05 の の 05 の の QQ QQ O5:0F 
6620 05 00 00 の 1 QQ QQ QQ 04: 0А 
6628 の の оо QQ O5 QQ QQ の の 03: пв 
663 の 00 по 05 0: 00 の 5 OO の の : の D 
64438 05 ро QQ 05 QQ 05 QQ 00: QF 
6640 05 の の 00 QQ 05 O5 QQ 00: OF 
6648 05 05 の の 00 OO OO 00 00:04 
6650 QQ の の の の QQ 05 O5 QQ оо: па 
6658 05 QQ QQ QQ の の OO QQ 00:05 
ら 666 の 05 の の 05 QQ QQ OO QQ 05: OF 
6668 05 05 05 QQ QQ QQ QQ の の : の F 
6670 QQ の の QQ 05 OO 05 QQ 00:04 
6678 00 05 00 05 の の QQ の 5 00: 0F 


ーーーーーーーーーー ーー 


SUM 28 17 19 22 14 25 の 1B:D8 


6400 の の の の OO OO の 5 QQ OO O5:04 
4408 の の の の OO の 2 QQ 05 QQ @5:0С 
6410 05 ро QQ QQ 05 05 QQ O0:0F 
6418 00 05 OO の の 05 の の QQ 00: 0A 
6420 00 02? ро の の QS ор O5 во: ос 
6428 05 OO QQ O5 QQ QQ 05 QQ: QF 
44350 OO! A0 OO 05 QQ 05 по по: па 
6438 00 00 00 05 05 05 05 05:19 
6440 の の の の 05 QQ 05 ро OO 00: ПА 
6448 の の の の QQ QQ OO の 4 05 00:05 
6450 00 04 @% ро QQ O5 OO 00: 0Е 
6458 A0 00 O05 04 QQ OO 05 00: 0Е 
6460 QQ Q5 O0 04 OO QQ 05 00: DE 
6468 QQ 05 ро QQ の の OO の の 00: 05 
6470 DØ QQ 05 02 05 05 QQ 00:11 
6478 05 00 05 05 00 の の OO の の : の F 


SUM OF 15 19 20 23 22 1E QF: CF 


6680 05 05 QQ の の 05 05 00 
6488 00 05 QQ の の QQ 05 05 00:05 
6670 05 05 00 00 00 O1 OO の の : の BE 
6698 00 の の の の QQ QQ QQ の の 05: 05 
ら 66 の 05 05 の の QQ 05 00 QQ @5:12 
66QB の の の の 00 A5 05 QQ QQ 00:05 
бово QQ QQ QQ Q5 05 05 QQ の の : の F 
ó6B8 の の の の 05 05 QQ O5 00 D0: 0F 
ら 66C の 05 05 05 05 05 05 05 00:2: 
66C8 05 05 の の 05 QQ QQ の の 05:12 
орд 05 ро 05 の の の の の 5 QQ 00: OF 
66D8 05 00 05 05 05 QQ 00 00:14 
ら 66E の 05 ро の の O5 QQ の の OO の 1: の E 
66EB の の の の QQ OO O5 の の O5 00:04 
66F の QQ 05 05 05 QQ 05 QQ 00:14 
ら 66F8B 00 00 05 05 05 の の 05 05:19 


28 1F 1E 2D 28 24 14 15:07 


6480 QQ 05 QQ 05 05 QQ QQ 00: OF 
e4ga の 9 05 05 00 05 O5 OO 00:14 
6490 QQ QQ QQ QQ の の 05 QQ 00:05 
6498 の の の の 05 の の の の の 2 の の 05: 0С 
6460 QQ 05 05 05 QQ 00 05 05:19 
| 64A8 05 01 の の OO QQ QQ 05 05:10 
ó4BO0 QQ QQ QQ 05 QQ 05 QQ 00: ПА 
64EB の の 05 00 05 QQ 05 QQ QQ: 0F 
eaco の の Q2 ро 05 の 5 оо OO 00: 0C 
4408 ao QQ の の 05 ØF OO QQ Q2: 0C 
ら 64D の の ро во の の 05 05 の の 00:04 
64DB Qo oO OO 05 の の QQ 05 00:06 
64EM の の の の QQ 05 の の QQ O5 O5:0F 
64EB 00 QQ QQ QQ QQ OO の の QQ: QQ 
64F 05 05 の の QQ QQ の 5 OO 00: OF 
64FB QQ 05 QQ Q5 の の по の の 05: AD 


ター 


6700 QQ ро QQ の 5 O5 05 05 
6708 の の ор O5 の の の の の 2 の の 00: 07 
6710 05 QQ の の QQ 05 05 QQ 05:14 
6718 の の 05 00 00 05 05 の 5 02:16 
6720 の の の の 05 05 QQ QQ QQ 00: па 
6728 05 の の QQ QQ OO 05 QQ 00: Па 
6730 QQ 05 по оо QQ 055 QQ 
6738 の の QQ 00 の 5 の の O5 20 


が と ん どん 出 て き て る も ん ね . VIC-1001: きみ た ち ,、 そ ん な こと な いよ こっ ち 


6740 00 04 00 05 05 OZ 05 00:18 
6748 QQ 05 の の O1 OO QQ QQ 00: 02 
6750 の の の の QQ QQ QQ 05 O5 05: OF 
6758 の の の の QQ 05 の の QQ QQ 05:904 
6760 QQ QQ の の QQ O5 QQ OO 00:05 
6768 の の 05 の の の 5 O0 00 Q5 05:14 
6770 ро QQ QQ QQ の 5 05 O5 05:14 
6778 05 05 00 05 の の QQ QQ の igF 


SUM ØF 1D ØA 24 1E 2F 1E 1E: ЕЗ 


6780 の の QQ QQ OO O5 O5 05 05:14 
6788 QQ ро оо の の 05 05 QQ 05: OF 
6790 QQ 05 QQ 05 の の 05 05 03:17 
4798 QQ の の оо の 3 OO 05 05 00:00 
ら 67 の QQ 05 の の の の OO QQ OO 01:06 
67a8 05 の の 05 00 00 の 5 00 04:15. 
ら 67E の の の QQ 05 по の の 05 05 00: 0Е 
ら 67EB QQ QQ QQ OS QQ 05 00 の 5: の F 
4700 の の 05 05 00 05 O5 05 OS:1E 
67C8 A0 の の の の OO の の QQ QQ 00: の の 
67D0 の の QQ の 5 05 05 05 05 00:15 
ら 67DB の の 05 оо の の QQ QQ の の の の : の 5 
67E0 の の 04 の の QQ QQ QQ QQ の の : の 4 
67EB の の の の の の 05 QQ 00 05 QQ:QA 
ら 6/F の の の の の QQ OO OO 05 05 04:0E 
ら 67FB 05 の の の 5 05 の の の の QQ の の : の F 


ーー 


SUM ØA 18 19 1C 


4800 QQ の の OO OO の 5 05 05 O0: OF 
4308 05 の の の の 05 QQ OO QQ 00: ПА 
6810 の の OO の の 05 の の O5 の 5 の の : の F 
6818 05 00 05 05 00 05 05 05:1Е 
6820 の の の の の 5 の の 05 の の OO 00: 0А 
6828 の の 05 の の 00 の 5 の 5 QQ 05:14 
взр Q5 05 00 00 05 05 O5 00:19 
6858 の の の の 05 05 05 の の 05 00:14 
6840 の の OO QQ OO 05 05 QQ 00: 0А 
6848 の の の 5 の 5 の の の の QQ 05 の の : の F 
4850 の の の の の の OO OO OO 05 04:09 
6858 の の 02 の の OO の 5 QQ QQ 00:07 
Зоб の の の の の の QQ OO OO QQ 02:02 
6868 の の 05 の の の の の 5 05 の の の の : の D 
4870 05 の の QQ の の の の OO 05 00: 0А 
6878 00 05 00 の 5 05 01 00 05:15 


Soses seems seese mman soem sees sees ........ moos سک‎ Фин soono seame می‎ soane coeno чен ممه بم‎ stens soome سی‎ sotos sosse س‎ өрөө» өрөө sotos өзөн 


6880 ор の の の 5 Q> 05 05 QQ 00:12 
4288 の 5 の の の の QQ OO QQ QQ の の : の 5 
6870 00 05 05 QQ O5 の の O5 00:14 
. 6898 05 ро の の QQ 05 05 の の 03:12 
&ЗА@ の の の 5 の の の の の の QQ の の OZ5:04 
оваа ооп の の の の 05 QQ 05 QQ 00: ПА 
S8BQ 05 по 05 の 5 oO OO の 5 @4:18 
68EB 05 の の QQ 05 の の QQ 05 D0: OF 
OBCO eo o5 の の の の 05 05 の の 00:0F 
68CG の の OO の の QQ 05 OO 05 05: 0Е 
озго の の QQ の の QQ OO OO の の 05:05 
вре の 05 の の QQ QQ OO OO 05: ПА 
SHEN の の 05 05 00 05 QQ QQ の の : の F 
o8E8 05 04 の 5 の の の の QQ QQ 05:1: 
58Е@ QQ の の OO 05 05 QQ の の OZ:0F 
SB8F8 ро по QQ OZ の の QQ の の 00: 05 


7 


4 ニコ ザー ミサ に この さい すす "1.4 2m DB 


6700 の の QQ QQ の 5 Q5 05 ро O00:0F 
6708 の の の の QQ OO の 5 QQ QQ 00:05 
4910 QQ QQ поа QQ QQ QQ QQ 01:01 
6918 の の QQ の の QQ QQ 05 ро 00:05 
6920 00 QQ の の 05 QQ QQ QQ 00: 25 
6928 00 Q5 の の の の の の 05 00 00: 0А 
4930 QQ 05 00 01 OO Q3 QQ OZ5:0C 
6958 05 02 の 5 05 00 の の 05 05:16 
6940 05 00 05 05 05 05 QQ 05:1Е 
6948 O0 04 の の 05 QQ の の 05 00: DE 
6950 の の QQ 05 QQ の 5 QQ OO 05: OF 
6758 の の の の 05 05 の の QQ OO 00: 0А 
6960 05 の の の の 05 QQ QQ 05 の の : の F 
6968 05 の の の の の の QQ の の OO 00: 05 
6970 00 の の 05 QQ QQ QE QQ 01:05 
6978 の の 05 の 5 05 QQ の の QQ AA: ØF 


ーー م‎  . ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ーー ossos ーー ممت سمب میت مامت‎ sonce seces بے سوم مجم‎ ososi .... 


14 13 1E 29 14 1А QF 16:С1 


ある 日 の 会 話 . PC-8001: 最近 どん どん 値段 が ド が っ て き て る ね . MZ-80K : Z b ゃ 中 市 し か な いん だ も ん .。 仕 が な いる. それ に 新しい の 


だ っ て PiO に 1 一 2 本 較 る か 載ら な いか だ よ 。 РЕТ: 私 な ん 


か ゴミ よし て 出さ れ た ん だ も ん (これ 本 当 の 語り だいたい 遇 本 に PET を 知っ て いる 人 何人 いま すか ね ー ? APPLE: な ん の 話 で す ? . РС: 


— 8001: あす арната “ы AO s nn, 


E “ そこ E í "S СЫГА 
AS P TA "n T e 
' 2 vg ? \ 
мг Y 


D ^ 3 A v 

} ý 1 MN SL は T s 

(m OFT "x e det КИР k a E PTP Ky V ね yy Vds dol 
" Ur ef 1 м2 D f UA iP DE PE а АХ 0 Л 24 


TOE : um ys , ' z 
k Он M je wes cu Ss E z i か Š T WE 2 е, 
| リスト 2 APPARD マシ ン 語 デー タ ・ リ スト 
6ED oo Q5 оп QQ OO の 1 QQ 00:06 の の の の の の OO 00:05 
врв QQ QQ O5 05 の の QQ OO 00:06 6E1 の の の 05 OO QQ OO OO 05 00: 0А | 
GEED の の Q5 QQ 05 O5 QQ OO 05:14 || 5Е18 の の の の の 5 04 05 QQ QQ 00: DE 
6EEB @= os па 04 QQ QQ QQ 00: 0Е ЕТО の の 05 の の 05 O5 O5 QQ 00:14 
6BF 05 O00 O5 QQ O5 OO QQ O0:0F eE28 Q5 QQ QQ QQ 05 QQ 00 00: 0А 
6BF ро QQ O5 05 00 05 の 5 05:19 6E ミ の の の 00 QQ QQ 05 QQ QQ 05: 0А 
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ЖЛ は 。、: ま ずり リス トト . 1 を 大 力 し て モー プ 
し ます 7 の も ECU N まあ E Dor W^. Е 
聞い て くる の で , 入 力 す る な ら [IW, ダ ンプ ・ 
リス ト を 取る な ら |p| を 入力 し て くだ さい. 


次 に スタ ー ト ・ ア ドレ ス を 聞い て くる の で 


16 進 数 で 入力 し て くだ る さい . 

マシ ン 語 の 入力 は , 0 一 9 と AーF の 16 進 
数 を 使い , 何 も し な いで 次 の 番地 へ 進む と 
š は | SPACE | キー を 使っ て A Adr A A E, 
と き 上 記 以 外 の キー を 使う と , 正常 に は 動 
か な い の で 注意 し て くだ る きい. 

き て ダン プ '・ リ スト の 方 は , 8 x 8 DEK 
横 チ ェ ッ ク ・ サ ム を 表示 し , [Ж] аис 
続け て 表示 し , |X| キ ー を 押す と “Dor W” 
の 状態 に 戻り ます . 

メイ ン ・ ブ ログ ラム の 入力 後 ,。 チェ ッ ク ・ 
サム で 間違い が な いか どう か 確か め て か ' ら 
必ず BSAVE "CAS : MOUSE" , &HEO8O, 
&HEACO と し て セー ブ し て お いて くだ きる 


(эл Кл. бә る の アロ ダグ жи дүз 


т УЕ Л Ca U S Tu U, KERE 
し く て も 一 度 実 行 す る と 停止 び で き な い か ら 
な の で すし 

を し て , セー ブ し だ たら ダイ レク ト ・ モ ー 
F CDEFUSR = & HEO8O : A = USR(O) C 
実行 開始 で す . RIL l ore 5, KII 
か ' ら は BLOAD "CAS: MOUSE”, R て 実行 


初期 化 ル ー チ ン 
| [sroP | キー 入力 
| 時 間 か せき ぎ 

背景 スク ロー ル 


得点 処理 & 表示 

ジョ イス ティ ッ ク 入 力 

トリ ガー 入力 

難易 度 

キャ ラク タ ・ ス クロ ー ル 

音 出 し サブ 

や られ た と き の 音 楽 

残 数 表示 _ 

パワ ー エ サ 管 理 

衝突 処理 

キー 入力 サブ プ 

第 一 初期 画面 

モン スタ ー 消 去 
БЕВА | バ パワー エサ 発生 
 E9D9 メイ ン 


а ра әс Ба 
どの 2 本 の プロ グラ ム を ロー ド し て 入力 ミ 
ん か グン ーー ツウ グ も で しく だ И a 


この ゲー ム は 。 迷路 の 中 を 上 か ら 降 り て 
くる モン スタ ー を よ け な が ら 。 どれ だ け 上 
に 進め る か と いう も の で す . 人 の 移動 は | 和 a 
墜 キー で 左右 に , |SPACE キ 一 で 上 に 上 が 
り ま す ( 下 へ は 降り られ ませ ん ). 

ょ ころ で , モン シスター の 他 に パパ ワー エサ 
が 上 か らら 降り て きま す が 。 これ を 食べ る と 
ワー アッ プ し て 迷路 を 突き 破る こと が で 
x kapu UL. ざさ ORE S С У. знч 
に 捕まっ て は いけ ませ ん . 


パワ ー ア ッ プ し て 早く 登っ て し まい た い / 


STOP | キー で 時 停止 で きま す . 


- モ ンス ター の 方 向 

バイ UAE 

階数 

出現 時 間 待 ち カ ウン タ 初 期 値 
トリ ガ ・ ス イッ チ ( 連 続 押し 防止 ) 
パワ ー エ サ の タイ マー 
出現 時 間 待 ち カ ウン タ 
表示 する カ べ の 種類 

得点 

加算 点 

自分 の 数 


自分 の 形 (表示 用 ) 
フラ ッ グ 

Be 

( ずれ た 人 壁 


まこ と ご ころ み ど ご の に プク Л p RV E n 
す が 。 これ を 取る と ボー ナス 点 が も ら え ま 
+. それ に くず れ た 壁 も あり , これ は 安全 
ジー ン に な っ て いま す (位置 に よっ て は 家 | 
メ な あと も あび まず すう). 

さて, 迷路 は 50 階 ご と に 色 が 変わ り 。 200. 
陵 で 1 サイ タル に な っ で て で いま ほす 、 X, 


な に し ろ 初 め て 作っ た マシ ン 語 プロ グラ 
Aoc, ご ちゃ ご ちゃ に な っ て いま すず . 
そのため, ディ イス アセ ン ブ ル は や めか た 方 が 
оа ВИ р Е У ео И г ц, ое AS 
い ル ー チ ン や , 無 意 味 な と ころ が ある か も 
Liv A), それ で b ENS INR BONS 
WE アド レス ズー・ マ ッ ジ , ワー クー y S. 
他 を 表 1 —4 に 示し ます . 

is, キャ ラク タ が ダサ イヒ と 思う 人 は E0 
C2H か ら 上 自分 の 正面 , 右向き 。 左向き , Æ 
ジス ター の 正面 。 右向き , 左向き , パパ ワー 
エサ の 順に デー タ が 入っ て いる の で , 各自 


Pio 


BLUCLSU. 


CLEAR 100,&HDFFF:DIM R(16,8) : SCREENQ 
INPUT "D or W ";А% 

INPUT "SADRS "; ВФ 

BzVAL ("&H"*B$) 

IF A$-"D" OR A$-"d" THEN 260 
PRINT HEX$(E)*" "j ; 

PRINT RIGHT$("Q"*HEX$ (PEEK (В) ) ,2) ; 
PRINT. "-"; 

=1 : GOSUB 210:8-2: GOSUB 210 

POKE B,VAL("&H'"*K$(1)*K$(2)) 
PRINT" ":BzB*1:BEEP:GOTO 150 
PRINT CHR$ (255) *CHR$ (29); 
K$(S)2INKEY$:IF КФ (5) ="" THEN 220 


I i Я 


ЖЛ, T ET CN 


AER OB Et 


MSX は 使い や すい パソ コン だ / BIOS. 
BASIC ワ ー ク ・ エ リア も 公開 きれ て いる 
し …。 MSX ユ ー ザ ー, も っ と 頑張 ろう + / 


!)АК1 MSX 用 マシ ン 語 モニ >. 


IF K$(S)=" " THEN RETURN 2 の の 

IF K$(S)="X" THEN PRINT:RETURN 110 

PRINT КФ (5) ; :RETURN 

РОК 1=1 ТО 16 

PRINT НЕХФ (В) +" "; :5=0 

FOR L=1 TO 8 

PRINT " "+КІСНТФ ("Q"*HEX$ (PEEK (B) ) ,2 
) 3 : =S+PEEK(B) 35RCI,L) =PEEK (B)  B-B*1 
500 NEXT 
310 PRINT ":"«*RIGHT$("Q"*HEX$ (8) 。2) 
320 NEXT 
330 PRINT STRING$(32,"-") 
540 FOR L=1 TO BiS(L) = の 


5 EN p e^. X LA => si 
E. n А> 
bach d AN ГЕ Жу габ "лз? 


FOR I=1 TO 16 

S(L)=S(L)+R(I,L) 

NEXT I,L:S(9)=0 

FOR I=1 TO 8:5 (9) =5 (9) +5 (1) : МЕХТ 
PRINT" sum ";: РОК I-1 TO 9 

PRINT " "«RIGHT$("Q"*HEX$ (8(122,2)j 
NEXT: PRINT 

A$-INKEY$:1IF A$-"" THEN 420 

IF A$-"X" THEN 110 

CLS:GOTO 260 


—— — — — — — — — — — — —À — — — — — — — — — — — — — — — — — — — 
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 VESERENATOR P.140 


4A: DD . 


筆者 名 の 山本 幸雄 きん は 山本 幸 尾 さん の 間違い で し だ た. 謗 ん で お わび 申し 上 ば げ ます. 


Ы 3 


1 = ++ bes "i 


к 


t 
FAA, 


CA 
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Vx 
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pio 


SPACE MOUSE マシ ン 語 リス ト 


フリ ー ト ー ク 第 回 め の 登場 者 
は , 和 売 月 号 で お 約束 し た あの 懐か 
し の 人 “ば っ くま ん ” さん で す . 


数 年 前 に !/O 誌 か ら 消 え , マイ コン か ら 
足 を 洗っ た と か , 死ん だ と か 言わ れ た “ば 
2K A” です. PIO に は 最近 本 名 で イラ 
スト が 載っ て いる ん で す が へ ヘタ か 方 で , そ 
れ く らい の こと で この コー ナー の 記念 すべ 
き 第 2 回 に 登場 で きる と は , た い へ ん 光栄 
UT. 

さて , 僕 で す が 最 近 は TAF の 原稿 書き 
か ら 某 マン ガ 同 人 誌 や 某 ゲ ー ム 同人 誌 の 原稿 


書き e. た い へ ん 忙し い の で す . TAF УА, Є 
は 僕 の せい で 4 月 が と び , 5 月 と 6 月 が < く 


っ つい た も の が 9 月 に 出 た と いう 恐ろし さ . 


結局 7 ~9 月 は と ば し , 企画 も 新た め 10 月 
か ら 再 スタ ー ト する と いう は め に な り ま し 
た . これ に ぶれ て みた い 方 は , 終わ り の 住 
所 まで お 便り くだ さい … と , 前 書き は これ 
ぐら い に し て お きま し ょ う 


不滅 で ある ' 


"AM MZ 80B ARJUN я, ВАЅІС 


マシ ジ シン 語 or マ シン 語 の ダグ ロ グラ ム を 制作 
し て いま す . 結局 。 MZ-80B は MZ-2000 へ 


改悪 る きれ, 症状 は MZ-2200 へ と 進み まし た . 


る ら に すっ か り 忘 れ ら れ ,。 今 は MZ-1500 な る 
も の が 出 て ます が 誰 も 見 て いま せん . 

今 僕 は , MSX と PC-8801mkII を 使っ て 
いま す が 。 いろ いろ や っ て みて MZ-80B/ 
2000 の 偉大 き を 改め て 知り まし た ( よ 一 する 
に 速 さ で す が ). 

まだ た だ た, 今 現在 コン ピュ ー タ で 何 を や っ て 
EAM SO bs PC で は 軽い ソフ ト 作 り , 
ゲー ム ,。 ディ スク の 解析 な ど を 行なっ て い 
ます . そし て MSX で は 3 重 和 音 を 楽し ん だ 
re カー トリ ッ ジ で 生ん た いま 
noue en). を それから 肝心 の MZ 
で す が 。 ご これ は アセ ンプ ラ 。 S34 X4,W 
ICS な ど を 使っ て いろ いろ や っ て いま す . 
ゲー ム も 作っ て ます が , 今 サ ブ グルー チン を 


кт クマ スタ 々 ター レー ベル 
2」 な る も の か ら 触 り 始 め , マ イコ ン 歴 は 今 
7 年 に な り ま す . BASIC は 簡単 な ブロ グラ 


T S ご 


_ ム を 改善 し た りす る こと か ら 始 め , 自分 で 
小さ な も の が 作れ る まで 1 年 か か っ て いな 
いと 思い ます . そし て , 当時 アー バン 電子 
と いう マイ コン ショ ッ グ の 出し て いた 会 誌 
「POPCOM」 ( ポ プ コ ユ コム で は な い . ポッ 
デコ ム と 読む ) (c, MZ-80K/C で プロ グラ 
ム を 作っ て は 載せ て いま し た . 
MZ-80B を 購入 し た の が 中 二 の 夏 で , Z 
どき に は BASIC. は ほぼ ば で きだ し 。 マシ 
ン 語 も 簡単 な サブ プル ー チ ン (ムダ 付き ) は 


組め る よう に な っ て お り , 
マジ シン 語 の プロ グラ ム も で き 
TAN LS 


後 は な ん と な く 
る よう に な っ つ 


マシ ン 語 は BASIC を 少し し や っ だ 人 間 な 
> や り だ い の と 難し い の が くっ つつ いて を 
こら じゅ うに 飛び 回 っ て いる と 思い ます が , 
ある 日 禄 て 起き だ ら 身 に 付い て いる も の で 
は な い の で 困る ん で す . £i. マシ ン 語 の 
本 を 読破 し だ から と いっ て , す で マ シン 語 
で ブロ グラ ムカ 作れ る か と い ダ と そう で は 
OE TS 4; НА 

す で 使 いだい の が 人 情 で す が , やはり 「 こ 
うす れ ば こう な る の で は ?」 と 試行 錯誤 の 
2X, だ ん だ ん 理解 で きる も の で は な いで 
じじ よう ウ カ "まあ と に が て て 。 いい 天 の デ ゲラ ム 
を 解析 し た り , 簡単 な サブルーチン を 作る 
な どす れ ば 力 が 付く で し ょ う . ちな み に 僕 
が 参考 に し た 本 は , 「I/ 〇 別冊 マシ ン 語 徹底 
研究 (工学 社 )」 や 「Z80 マ イコ ンプ ログ ラ 


ら 


ミン グ テ fers dal ا‎ een es E Е 


Му дарувати UT 


Д Ф АЕ АДО ゲーム を ОЧЕ 
っ て も , か な り 0 無理 が あり ます . ゲー ム セ 
ンタ ー の ゲー ム は 専用 の ハー ド が 使っ て あ 
О С А РА А Ч です 。 rot m 
は マイ コン らし い ゲ ー ム を や る の が 一 番 で 
ERD MSX な が ど 面 旧い ぃ ゲー バ が だ た くき ん 
У, | 


また だ た, 家庭 用 の テレ ビ ・ ゲ ー ム と し て は 


も ガ の SG1000 や 任天堂 の ファ ミリ ー コ ン 
ビ ピュー タ を お 勧め し ます . 両者 と も ビデ オォ 
TS クト の tige 


аем EA >” 
н АА УУ О S ЭУЕЛП 
っ だ も の が 増え て きま し た . 僕 な ん ぞ も う 
ほとん ど 中 毒 で , 1 週間 ゲー ム を し な いと 
+R X Tš 14. 腕前 は けし て よい と は 
いえ ませ ん が, ドル デー が ガ の 塔 を 100 円 で 
60 面 クリ ア す る くら い の こ と は や っ て の け 
BT. 

と ころ で , 最近 の ゲー ムセン ター の も う 
РИЙ а oN о T n 
よう な 気 が し ます . 菩 は 不良 が 暗い 所 に バ 
torte т АЕРЫ 
ム を し て いる 感じ な ん で す が , 最近 は や け 
CNET XT ЕСТЕУ ЭЧОД У? 


行っ だ こと の な い 人 は 一 度 の ぞい て みて < 
だ る い 。 


KN DIM BL (仮名 ) EP ZY 
塔 を メイ ン と し た 同人 誌 を 出し ます . 興味 
е Мо аре М ооа 
関す る こと も お 願い する 
99730 広島 市 南 区 Ene 5 シャ ン ボ ー ル 

広 交 コン イル 内 
ば っ くま ん 宛 


LD HL DgesH 
LD DS peetu 
LD Gc @tbcH 
LD (qÓ, ep 
LD IR 


PC-1251/55 


ВАЅІС + 7758 


I 2 の ° ©) 
| T3 f s LX | 


PC-1251/55 用 の オー ル ・ マ シン 語 の ゲー 
ム で す . 長い で すけ ど (2448 バ イト ) 頑 張っ 
て 入力 し て くだ さい . 


£4, リス ト 1 の 簡易 マシ ン 語 モニ タ を 
入力 し て , 一 応 テ ー プ に セー ブ し て お きま 
す . この モニ タ の 実行 は 。 メモ リ へ の 書き 


込み が |[pEF|[S| で . メモ リ ・ ダ ンプ が [DE 
FDT}. な お , メモ リ へ の 書き 込み の 際 
に は アデ アド レス が 出 な い の で 充分 注意 し て く 
だ きい 。 ЁЛ, 入力 は 一 度 に 16 文 字 (8214 

ト 分 ) まで 受け 付け ます . その 他 詳 し いこ 
と は 図 1 を 見 て くだ さい . 

次 に 入力 し た モニ タ を 使っ て リス ト 2 の 
マシ ン 語 ( 科 を BC40 一 CC5AE ま で ) を 入力 し , 
充分 チェ ッ ク を 行なっ て くだ さい . 間違い 
が な いよ うな ら ば 。 次 に ダイ レク ト で 


CLEAR [ENTER] 


POKE &C5BO, &67, &78, &38, &4 

4, &4E, &45, &38, &30 [ENTER | 
POKE &C5B8, &68, &7E, &7A, &3 

O, &38, &45, &47, &45 [ENTER] 
POKE &C5CO, &38, &10, &28, &5 


` 3, &2A, &12, &58, &24 | ENTER | 


POKE &C5C8, &32, &24, &58, &6 
O, &70, &7A, &3B, &1 A [ENTER | 

と 入力 し て くだ きる い (DIM 宣言 を し て いる 
だ め ). そし て 最後 に 

CSAVEM &BC4O, &C5CF | ENTER | 
LUC, テー フ " に マシ ン 語 部 を モー ブ し て 
(MS v, 


図 1 モニ タ 使 用 例 


oz o タッ 


ИШТЕЕР 1 
АТТАСА . 


まず , CLOADM [ENTER | で マシ ン 語 を ロ 
ー ド し ます . そし て ,。 HI-SCORE を クリ ア し 
だ た いと き は CALL &BFOO ENTER |, その 他 
の と き は CALL &COOO [ENTER] | と し て くだ 
St. 


この ゲー ム は , 一 時 期 は や っ た ゲー ム 電 


卓 の イン ベー ダー と 同じ も の で , デモ 中 に 
を 押す と ゲー ム が スタ ー ト し ます . 
する と 右 か ら 数 字 や ボー ナス ・ キ ャ ラク タ 
が 攻め て きま すか ら , |Q| で 照準 を 合わ せ 
Ера. а ЗЗР е ТЕКИ SLT O^ 
の 所 まで 数 字 や ボー ナス ・ キ ャ ラク タ が く < 
る と SHIP が 1 機 減 り , 全部 な く な る と ゲー 
ム ・ オ ー バ ー で す .。 43$, ゲー ム 開 始 時 の 
SHIP 数 は 3 機 で す . 

この よう に し て 30 個 の 数 字 や ボー ナス ・ 
キャ ラク タ を 撃ち 落と す と 1 面 ク リア と な 
0, 4 面 ク リア する ご と - BONUS ATTA 
CK が あり ます . これ は チャ レン ジン グ ・ ス 
а ее е 
ラク タ ば か り が 40 個 攻め て きま すか ら , 同 
じ よ うに 有 照準 を 合わ せ て 撃ち 落と し て 〈 く だ 
Qv. だ た だし, こち ら の 弾 の 数 は 40 発 し か 
あり ませ ん (普通 の 面 は 弾 数 に 制限 が な い ). 
そして, “> ” の 所 まで 攻め られ る か 。 弾 が 
すべ で て な く な る か , す で て 撃ち 落と す と 終 
わり で ボー ナス 点 が 加算 きれ ます . ボー ナ 
ス 点 は 撃ち 落と し た 数 X1000 点 で 。 すべ て 
撃ち 落と す と ボー ナス 点 50,000 点 加算 の う ぇ , 
SHIP が 1 機 増 えま す . 

まだ た だ 弾 数 が な く な っ て も 変わ り ま せん が , 
“> "の 所 まで 攻め られ る と も ちろ ん SHI 
P は 1 機 減り ます . 

lis, ゲー ム ・ オ ー バ ー 後 HI-SCORE を 
出す と 名 前 を 9 文字 登録 で きま す . |Qll・| 
で 合わ せ て | 土 | で 書い て くだ さい . 


図 2 画面 表示 例 


Los 


230 42 3» 


SCORE SHIPO% 照準 数 字 軍 団 


チャ レン ジン グ ・ ス テー ジ 


で 


アド レス ・ マ ッ プ 


HI-SCORE ク リア 
メイ ン ・ ル ー チ ン 
文字 列 デ ー 

バタ ー ン 表示 
左 ス クロ ー ル (① 

キー 入力 

SCORE 表 示 

ボー ナス ・ キ ャ ラク タ 表 示 
SCORE 計 算 
左 ス クロ ー ル (② 
面 ク リア チェ ッ ク 
メイ ン ・ ル ー プ 

キー 入力 (BONUS ATTACK) 
左 ス クロ ー ル (③ 

メイ ン ・ ル ー プ (BONUS ATTACK) 
HIT 数 計算 

弾 数 表示 

画面 クリ ア 

WAIT 

文字 列表 示 

16 進 一 10 進 

INPUT NAME 
メイ ン ・ ル ー チ ン 

キャ ラク タ ・ デ ー タ 


使用 し て いる ROM 内 ルー チン は 名 11E0O 
と &1F44 だ け で す . 改 11EO は お な じみ の 画 
面 表示 で , &1Е4415 U 7 v Z 4 2. 1 X > 
ー 入 力 で す . R。2 に キー 内 容 (PiO'84 年 6 月 号 
p.1677$— 27218, [ЅНІЕТ | iX &09, | DEF] は 
&0A で す ) が 入り ます . 

な お , この ゲー ム は 全 バ パー ジョ ン で 動く 
と 思い ます が 。 念 の だ め 

10 POKE &B800, &FF, &44, &10, 
&B8, &07, &52, &37 
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pio 


20 CALL &B800 : PAUSE PEEK & 
B807 : GOTO 20 
と 入力 し , RUN し て キー 内 容 が 入る か どう 
か 確か め て くだ さき さい (これ で ラ 芋 走 する よう 
な が ら こ の ゲー ム は で きま せん た ん) また 、 サマ 
ク ・ エ リア は 変数 エリ ア の 一 部 (&C66E 一 
&C69F) を 使っ て いま す . 

bt, 一 部 公表 きれ て いな い マ シン 語 を 使 
っ て いま す (&4E, &5F, &6B, &08). &6B, &0 


8 は |BRK| 入 力 で 押さ れ て いな いと ZZ フラ グ 


1:"S" CLEAR : DIM Y$(0 THEN 2 
)*16: INPUT "SET TOP 
ADDRESS "iZ 
2:INPUT Y$(B»:xz0 
3:Y= ASC MID$ (Y$(CBDO X 
+1,1): W= ASC MID$ (Y 
$(B)|sX+2 +Í 1): IF Uzü 


3 


BC49 : 78 C3 80 11 : 
BC44 : óF 57 67 Йй : 
BC48 : 38 BB 11 70 

BC4C : 57 67 00 28 : 
ВС5Й : 04 02 01 52 : 
BL54 : 37 10 BC 6B : 


tJ 
C 
со 
C 
сз 
— 
єз 
ко 
сз 
һә 
ュー 
c 
Lr] = .. 


4:РОКЕ Z:16*(Y-48- T*CY 
7=65) )+0-48-7ж(0)»=65 
):2=2+1,х=Х+2: 


9:"D' CLEAR : DIM Ү$(0 
3x24: INPUT "DUMP TO 


が 立ち ます . まだ , 名 11E0 で 画面 表示 し な 
が ら マ シン 表 で ルー プ を 作っ た りす る と 。, 

極端 に 画面 が 薄く な る と き が あり ます . を 
の よう な と き は , その ルー ジ の 要 所 要 所 に 
&4E, 5F を 入れ る と そう いう こと が な く な 
o X. 


P ADDRESS "iZ 

6:Y$(0)" "y= INT (2/2 
56): GOSUR 9:Y$(0)=Y 
$C) «T$ lizZ-256N: 
G0SUB 9:Y$(0)=Y$(0)+ 
ICA 

7:Ү=0: FOR Х=й TO 3:M= 


сото 


BE38 : 80 
BESC : 
BE4B8 : 
BE44 : 
BE48 : 
BE4C : 
BESA : 
ВЕ54 : 
BESS : 
BESC : 
BEG : 
BE64 : 
BE68 : 
ВЕБС : 
BETH : 
BE74 : 
BET: 
BETC 3 
ВЕЗӢ : 
BE34 : 
BE88 : 
BESC : 
BE99 : 
BE94 : 
BE98 

BE9C 

BEAR 

BEñ4 : 
EEAS : 
BEAC : 
BEBO : 


BEB4 : 
BEB8 


)y=Y$(B)+T$+" ",Z=2+1 
'Ү=Ү+И: 


AND 255: 
8:Y$(B)=Y$(D)+"; 
PRINT Ү$(й›: 
9:0= INT (W^/165sVzMW-16 


| リリ スト の NUMBER ATTACK マシ ン 語 リリ スト Sm 


オォ ー ル ・ マ シン 語 の ゲー ム は どう で し た か 
この ゲー ム は 普通 の ゲー ム 電 卓 な ら 終わ ら 
な いと いう 入 に 。 特に や っ て ほし いと 昌 い 
i+. また, この ゲー ム の ユ コツ は BONUS 
ATTACK の キャ ラク タ の 順番 を 覚え て , 2$% 
ー フ ェクト を 得る こと で す . ちな み に 私 の 
HI-SCORE は 1.079,.660 点 で す . 

最後 に PC-1251。 CE-125 を ずっ と 貸し て 
くれ だ 山田 君 に 感謝 し ます . 


EI ト 4 マシ ン 語 簡易 モ 5 BASIC リ ス ト ИИ 
PEEK 2: 


5DSUB 9:Ү$‹0ӣ UsT$= CHR$ (U*4B*T*( 
U»952)* CHR$ (V*4B*T* 
NEXT Xt:WzY (95955: RETURN 
G0SUB 9 

"+$: 


GOTO 6 


BD18 : 93 92 50 78 : 
BD1C : C35 61 87 02 3 
BD28 : Lé DB 86 82 : 
BD24 : 88 DB 85 82 : 
BD28 : BF DB 84 682 : 
BD2C : 35 DB 83 80 : 
BD38 : 96 4E SF 24: 
BD34 : й6 55 С? 28 : 
BD38 : 87 41 29 ЙА : 
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ei 


C12C 


150 : 


: 84 


C134 : 
C138 : 
C136 4 
C148 : 
C144 : 
C148 : 
C14C : 
C158 : 
C154 : 
C158 : 
CISC 4 
C168 : 
C164 : 
C188 : 
L16L : 
C178 : 
C174 : 
C178 : 
CITES 
L184 : 
C184 : 
C188 : 
C18C : 
C198 : 
C194 : 
C198 : 
C19C : 
СіАӢ : 
(144: 
С1А8 : 
CIAC : 
LIBA : 
C1B4 : 
C1B8 : 
じ 1BC : 
LILA : 
C1C4 : 
C1C8 : 
CICC <š 
C1D8 : 
C1D4 : 
LIDS 4 


C1DC : 
СІЕЙ : 


| リ スト 2 NUMBER ATTACK マシン 語 リ スト 
C3E4 : 38 12 34 78 : : 
CSES8 : Сӣ 64 5B 18 : $ 
CSEL f: 66.9E 32-11: 
C3F0 : 96 57 67 00 : 
C3F4 1.39 42 37 85 : 
CSF8 : 82 C6 DB 84 : 
CSFC : 82 9E DB 4E : 
C400 : 5F 25 04 52 : 
C404 : A5 63 96 29 : 
C408 : 09 2D 58 67 : 
C48C : 4А 29 5C 10 : 
C418 : C6 94 57 43 : 
C414 : 67 Bñ 28 83 : 
C418 : 82 2B 52 2D : 
C41C : 6H 84 DB 85 : 
C420 : 02 BF DB 78 : 
C424 : C3 58 79 C3 : 
C428 : 6E F1 EB 85 : 
C420 : 02 BF DB 84 : 
C430 : 82 82 DB 78 : 
C434 : C3 58 78 C3 : 
C438 : 6E 85 59 8B : 
C43C : DB 84 59 8C : 
C440 : DB 78 CB Bš : 
C444 : 82 40 78 C3 : 
C448 : 61 FF 44 67 : 
C44C : ЙТ 28 02 37 : 
C450 : 67 88 38 BF : 
C454 : 8B 59 85 DB : 
C458 : 8C 59 84 DB : 
C45C : 63 5C 39 34 : 
C460 : 2D 2E 10 C6 : 
C464 : TA 82 #0 88 : 
C468 : 97 IF 02 802 : 
C46C : 52 11 84 82 : 
C478 : 2C 52 11 6E : 
C474 : 82 01 52 34 : 
C478 š 78 BC 48 11: 
С47С : БЕ 32 00 82 
C430 : 18 18 BF 64 
C484 : 82 BÖ 802 19 
C488 : 82 SC 78 C4 
C48C : 1D 79 BC 88 
C498 : #0 йй йй в : 
C494 : йй TF 41 41 : 
C498 : 79 ТЕ йй 88 : 
C49C š 78 ТЕ 80 79 : 
じ 4H9 : 79 49 49 ДЕ : 
C484 : : 
C488 : TF ØF 98 88 : 
С4АС : : 
С4Вӣ : : 
C4B4 : 79 49 49 T9 : 
C4B8 : Bl 81 81 79 : 
C4BC : ТЕ 78 TF 49 : 
C4ld : 49 ТЕ BF 89 : 
С4С4 : B9 79 ТЕ 78 : 
C4C8 : : 


C ERD tw 


D e XE САЛТ, 
Š tet | 
E > р id |! ү 


41.54 


n an жуз. Xil6 e 


t 
べし キャ ー bio 


9H to Ce 5597 
広島 県 ホワ イト ラム 


OG MIKAKO 


今回 の 曲 は や や 重々 し い 感 じ [が し ます . や は り い つも と 
同じ 「 ゲ ー ム の オー プ ニ ン グ 」 に 向い て いる よう な 気 が し 
фр; 


1 READ At, ES, CE 
2 РАТ А5, В, СФ 

а DaàTa"TiaansvielapG2bp406DG.Cie03g88.0 
に 16DE РЕ #1&664.„ る ロロ SE FHI 


ай DATA"TIOQRUZVi1RABZ04DAFHAGACHACACB., 01 
6EZD4CADZBZ2. 
зй DOTA"TIORDAVIORALBGFSEDCOSBADACDOZBOAA 


(リス ト は PC-6601 よ り ) 


1SS 


PC-1245 


BASIC 十 (マシ ン 語 ) 


PC-1245 に モグ ラ タ タ キ が な ぜ な い の ? 表 1 行 番号 マッ プ 図 1 キャ ラク タ 
d, 友人 の MOP が グラ フィ ッ ク の サン プル 
プロ グラ ム と し て ffF つ た が , Y CNLTU | 変数 クリ ア 
Sof, キー 入 カ ルー チン POKE 


配列 宣言 (V-RAM) 


キャ ラク タ 定 義 
デモ , 初期 設定 
4 | メイ ン ・ ル ー チ ン 


入力 は CALL 女 の ア ドレ ス と , 5 行 の マ 
シン 語 を POKE 文 で モッ ト し て いる 部 分 に 
注意 すれ ば 大 夫 夫 で し ょ う . 


PC-1245 は ステ ッ プ 数 が 少な く 画 面 が 小 
SAUD; PC-1250;,:51; 65 に 貸す が ない よう 
図 2 V-RAM の 割り 当て 


だ だ の モグ ラ タ タ キ な の で 特に 説明 し ま 
せん . キー は 左 の モグ ラ か ら 順 に [SHIFT | 
[*|#|[4|[P] し な っ て いま す . 

な お , 最初 は RUN か |[pEF|[S| C, 2 回 目 
か ら は [pEF|[AI で プロ グラ ム を 走ら せ て < く 
пе U si 


JAISLANHA 


表 3 V-RAM ア ドレ ス 


表 1 に 行 番号 マッ プ ', 表 2 に 変数 表 を 載 汎用 。 ス ピー ド 変 数 
せ て お きま す . 表 を みれ ば だ いた だ た い の こ と | キー, ハン マー の 位置 
は わか る と 思い ます . 本 
な お , 上 部 の キー(|sHIFT|[ ょ [TP) 名 前 
を 判断 する た め に マシ ン 語 を 使い まし た . | ip pip saca M 
これ は , 1F44H を コー ル す る こと に は より | モグ ラ の 位置 
A (アデ アキュムレータ) に 押 き れ て いる キー スコ ア 
の 内 部 ユー ド が セ モット され ます . また , 5 | | Vb A imc Mrd '84 年 2 月 号 
回 使用 し た 配列 に よる 画面 表示 の V- RAM 2) “マシン 語 エ ディ タダ “"。 THE BASIC. 
割り 当て は 図 2 の よう に 2 種類 あり ます . ツチ か 才 も まま しょう . 84 年 5 月 号 
と いう の は ,V-RAM が 16 種 の アド レス ( 表 参考 文献 3) “PC-1251/55 純 正 ニ モニ ッ ク ", РіО, 
3) を 持っ て いる か ら で す . 1) “私 の 考え ん む た ニ モニ ッ ク '、THE BASIC, 84 年 9 H > 


モク ラク タク + キ BASIC!) R ЬО И 


1:"S* CLEAR FF&FF&FF5 ЗЕ, &44, 24 NEXT ñ: FOR =136 TO Z$(T,'ñ)=X$: NEXT А: 
5:POKE &С5ЙЙ,&78,&1Р,& || 20:РОКЕ &Е805› &80› &40, & 48:FOR A223 TO 26:R$(HR) 133 STEP -1:2$(7:00- NEXT B 
44,10,64, &FF* $525 & 40: &40: $80» &FEs &ЕВ› & z2$(7539*400: NEXT ñ W$: NEXT А || 7?8:POKE &F8149&3F&49 
37 ЕТ, ЕВ; &РЕз 4» &5Е› &5Е 58:"ñ" CALL &11E8: FOR 69iFOUR =61 TO 72:Z$(75 )&49&294535&415&21 
18:POKE &C6FCs&C9»&C5: :&4454 B=1 TO 2: FOR ñ=61 A)=x$: NEXT ñ: FOR ñ y&1F)252599 


POKE &С5С9, 234, &ҒЕ,& || 39:PUKE &Р814, &24, &5Е, & ТО 72:2$(7,А) =$: 


=136 TO 133 STEP -1: 80: РОКЕ &Е823,5,5›&45› & 
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9i0 


モグ ラ タ タ キ BASIC リ スト 
"SCURE="#S 


253 &1D:0505050505857 =39 S=9 =x$ )=Z$sS=S+1,ñ=B: CALL 


+&45,3&25,&1Р,8,7,&45 ||185:2$(75622-4$» 2$67 $66) :CALL &C599:C= PEEK & &6F40 188:IF S>H LET H=S: 

:&255 £1F =WM$,Z$(7,69)=WH$,Z$(7 C4FF:C=<(C=9y+(C=1Zy* ||158: IF C29 AND C<>0 LET PAUSE "HI-SCORL !!”: 
90:POKE &F837:10:1805&3F :12274$$2$C751234274$ 2+(C=12)*3+(C=15)*4+ Z$(T,D)=H$ INPUT "NAMEs":I$ 

&4H 19 118:FOR M-8 TO 99:0= RND ( じ =14)*55 =69+3C+(E> | |160: NEXT 4:2$%(7, М) =и$: 190: РАЏЅЕ "HI-SCORE=";H: 


199:FUR ñ=0 TO 25: NEXT 
ñ: WAIT 0: PRINT "°"; 
ВЕЕР 3: CALL &11E0:B 


9sN260*30* (0245 ж59,В 4)*59 
=B- 5, B=B*(B>g) 149:IF С>0 LET Z$(7,D)=Y 
128:FOR ñ=0 TO BiZ$( 了 5N) $= IF С=0 LET Z$<Ts+D 


CALL &11E8: NEXT M PAUSE "NAME ";I$ 
170: ВЕЕР 3: PAUSE "** Gñ | | 2008:END 
ME OVER жж”: PAUSE 


CRAZY UFO p.89 
Бов, リス ト 1 (マシ ン 語 
スト ) に まっ た だ く 関 係 の な い リ スト を 載せ 
まい まし だ 探 て で 衝 ね びす る と と もち に 。 
正しい リス ト を 載せ て お きま す . 


リリ スト 1 CRAZY UFO マシ ン 語 リス ト 


ADD +0 +1 +2 +3 +4 +5 +6 +7 +6 +9 +A +B +С +D +E +F SUM | | ADD +0 +1 +2 +3 +4 +5 +6 +7 +8 
1800 71 EE OC 42 99 C7 GE 1D 04 11 04 44 25 C4 ŞE 6F : 1800 RR RO 90 C9 19 FO 06 C9 1A 
1810 26 EF 01 20 58 E4 FD 26 DF 40 2A 80 45 89 FF : 1810 C9 20 DO 05 R9 01 18 90 1A : 
C4 99 1B29 69 QR 85 FB 90 ӨВ C9 26 FO 
29 
28 


° 
S 
D 
9 


1830 40 9D 
1840 08 ED 
1850 
1860 
1870 
1880 
1890 
18R0 


8 1830 FB R9 02 C9 00 FQ OE C9 01 
29 Š 1840 02 8R 18 91 01 R9 20 RO 1? 
3 : 1850 90 F3 AS 02 C9 1E DQ 


ma 


05 : 1860 01 95 EE 02 18 90 90 AS 
DO 1870 FQ R9 FO 8D OD 90 60 R6 
8D : 1B89 B8 85 FF BD C2 1D 85 FR 

BD R2 1D 90 CO 02 ES : 1890 FE 00 85 F9 R2 00 

8D 0B 90 R2 00 BC E8 : C9 20 DO F1 R9 

F2 96 RO 00 20 2E 1R : BO 02 ЕВ E4 FR 

E4 R9 28 8D D4 1F : 15 03 58 60 ?6 

60 AS FC C9 FF DQ : 60 R9 00 R2 00 

А5 CS C9 20 DO 1E R9 FF 8D OC 90 E6 FC R2 00 8D OE 90 60 00 20 

80 1D R8 BD 96 1D 99 99 1F ЕВ Е? OC DO F1 Еб : CC 8B CD ЕЗ ӨС 61 


4E CR 95 22 ñC CF DF BE CB 30 02 : 2E 49 9B 90 83 97 


C © xO cA OY CR @ C) CO NS 
G) XD t3 C Nn 
€) ^4 @ P) — C) D 


©) һу 3 — о m с) о о о 


€) > @ ©) O © © OO @ 


O Û o mM の 
TI m e 
ч O m 


+4 45 46 +? +8 +9 +ñ +B +C +D +E +1 +2 +3 +4 +5 +6 
R2 00 BD CO 02 CS CS FO 1A E8 EQ : 64 7A R6 D2 ES 91 
90 FO 03 CE OD 90 RD OC 90 FO е5 :93. 29 14 15 00 10 CC 
18 90 1F BC 80 1D B9 00 1F DD 96 : 94 C6 04 BF 04 CF 
1930 FQ EO 1D 99 00 1F R9 EO 8D OC 90 А5 FC : 94 DF 94 E3 02 E6 
1940 03 85 90 C? AS FC R2 00 29 F8 FO 06 E8 04 ЕЗ 04 DF 04 ЕЗ 
1950 E9 08 AO 99 SA 29 10 FO 02 RO 02 BA 29 04 DS 04 DS 94 DS 
1960 FQ 01 R9 00 EO 99F9 07 CR 4A : 96 ЕЗ 02 DF OE 99 
1970 80 90 | 38 1D E8 EO 06 10 F8 R2 18 7Е R$ BD ЗС Sh 
1980 98 1E ЕВ 88 EO 04 DO F2 4C : E? FF 
1990 ER EQ Q4 FQ ЕЗ R9 20 18 90 R$ BD 
1980 R2 2С 1E C9 25 FO 1F E6 FD BD BD 
1980 2E B9 1E C9 20 
19C0 AQ 9D BO 02 E8 E4 FR DO : 
1900 D1 R9 00 85 FE Аг 00 20 : 
19EQ 2E 1D 9D BO 02 BC RO 02 : 
19FQ R9 ES FO OF R2 09 BC RO : 


8B CF 3B 41 : E? 09 03 : 


49 48:48:46 4D +E: +F +D +E +F SUM 
DO F3 R2 00 ED RO 02 : 50 8D 7B : 
20 FO 03 BC RO 02 98 : FF FF FF : 
48 8R : 
20 EB 1R 20 : 
20 Re : 
R9 ЕЗ: 
25 AQ : 
R9 FO : 
20 AQ : 
C9 FF : 


eR 2C BS SB 87 : 9B 3B 45 GF B? 70 
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PC-1401 


BASIC+ 7 > 58 


マシ ジン 語 の カカ を 借り る こと に よっ て , P 
C-1401 で も 画面 いつ ぱい に グラ フィ ッ ク 
を 高速 で 表示 する こと が で きま し た . 今回 
は スキ ー ゲ ー ム と 専用 マシ ン 語 モニ タ を 発 
表 さ せ て いた だ きま す . 


リス ト 1 を 打ち 込み RUN す る と , しばら 
くし て BEEP 音 が 鳴っ て 止ま る の で CSAVE 
M "MONITOR" ; &45D8, &463E (7 
ァイル 名 は 何で も よい ) で マシ ン 語 を モー 
z IE. 

Кі, NEW せ ず に リス ト 2 を 入力 し て 先 
ほど モー ジジ し だ た マジ シン 誠 の 後に セー し て 
くだ さき さい. 次 回 か ら は CLOADM | ENTER | C 
LOAD RUN で マシ ン 語 モ 
ニタ が 使え ます . 


まず 最初 に 必ず RUN し て くだ さき さい. 本 モ 
ニー タダ で は 次 の 3 つの コマ ンド が あり ま 二 。 


MEMORY WRITE 
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X! アド レス ・ マ ッ プ (マシ ン 語 モニ タ ) 


画面 に 表示 され た 文字 列 の 左 か ら 
2 文字 め の 所 か ら 4 文字 読み 込み 
Z も に 代入 . 

45EF と 同様 . Z$ に 2 文字 代入 . 


C$ の 内 容 を 30 行 の INPUT 文 の “ 
" 間 に 書き 込む . 

Z$ に 代入 され た 2 文字 の 16 進 数 を 
上 位 ・ 下 位 そ れ ぞ れ 数 値 変換 . 45 
D1, 45D2 に 入る . 


最初 と 和 谷 コマ ンド の 終了 後 は 必ず この モ 
ー ド に な り ま す 。 スタ ー ト ・ ア ギド レン と ス を 聞 
いて くる の で , 名 を 付け て 入力 し | ENTER | 
を 押す と 
2500: 00 —— 
l 番地 Lt 内 容 
Баъ алела РУ x 
J の 内 容 を 変更 し な いと き は [ENTER| キー 
Р, 25 сБ Рза РУС 
16 進 数 を 入力 し て |ENTER| キー を 押し て < 
だ さい 。 な お 。 0F な ど 頭 に 0 が 付く 場合 に 
は 頭 の 0 は 省略 で きま す . 

まだ, [DEF|[SPACE| で アド レス が 1 つ 戻 
0, |pEF||S| で 再び スタ ー ト ・ ア ドレ ス の 


水力 待ち も に な ちり ます | 


CHECK SUM 
[DEF|[C| で この モー ド に な り ま す . そ し て 


PRINT OUT す る か どう か 聞い て くる の で , 
|Y| か [IN| で 容 を て くだ さい . その 後 ス ター ト 


表 2 アド レス ・ マ ッ プ (メイ ン ) 


画面 切り 換え & 音 出し 

4 0 0 3 の 内 容 ( 値 は 16 進 ) が 

0 1…G-RAM ON 

2 1…G-RAM ON 二 低 音 

…G 十 RAM ONT E 

画面 転送 

仮想 G-RAM の 内 容 を G-RAM に 転送 
デー タ 交 換 

パタ ー ン 番号 を 読み 込み 仮想 G- 
RAM に パタ ー ン 番号 に 対す る 図 
形 デ ー タ を 作成 . 

4 0 9 8 か ら パ ター ン 番 号 順 に 
それ に 対す る 図形 デー タ が 格納 
され て いる . 


ETOP DIRE ре RL Kuas AT 
て 大 罰する と 。 16 バ イト ご と に CEECK S 


UM が 出 ま す . こ の CHECK SUM は 16 バ イト 
の 和 の 下位 2 バイ ト を 表示 し ます . 


MEMORY DUMP 


PEF [DI で この モー ド に な り ま す . 入力 
は CHECK SUM の と き と 同 様 で 。 4 バイ ト 
ずつ 表示 きれ ま す . 


9i0 


本 モニ タダ を 使う 上 で 注意 する こと は 。 CL 
記 AR を し な いこ と (固定 変数 エリ アデ に マシ 
ン 語 を 格納 し て いる だ た め ) L, リス ト 2 の 
10 行 以前 に 行 を 追加 し な いこ と で す (30 行 
OINPUTO "" の 間 を マシ ン 語 で 書き 換 
RODA 7 ЮНЕ, еш иени И NE 
つい て は 表 1 を 参照 し て くだ さい . 


スキ ー ゲ ー ム の 作成 


初め て や る と き や , HI-SCORE, NAME 
を クリ ア し た いと き は IpEF|IC| で , その 他 
は [DEF||S| で ゲー ム が 始ま り ま す . | 

ゲー ム が スタ ー ト する と , まず 現在 地 が 
表示 きれ , 次 に 1 歩 先 が 表示 きれ ます . 操 
作 キ ー は |[4| で 左 , |「e| で 右 に 移動 し て それ 
以外 は 直進 し ます (キー 入力 は 1 歩 先 が 表示 
きれ て いる 間 押 し て くだ さい ). 

2 LT, mm v jb 2 E1075, T7 20755, 
旗 に ぶつ か る と ー30 点 で , Ж, ж. 境界 線 


に ぶつ か る と ゲー ム ・ オ ーー バー に な り ま す . 


また , アイ スバ パー ン に 入っ て いる と き は 移 
動 で きま せん . 


ipie; キキ ギク a o IONE や 
Вл РОУ ОО ЗЕ, メモ ザマ マッ ジ 


は 図 2 を 参照 し て くだ さき さい. 


マシ ン 語 モニ タ の 作成 に いて, PC-14 
01 の 関数 機能 の 1 つ で ある HEX を 有効 に 使 
っ だ の で , わずか な が ら で す が PC-1401 の 
特色 を 出せ た と いう 感じ が し まず 。 これ か 
65, BASIC キ マシン 語 で PC-12 系 に 負け 
な いよ う 頑 張り だ た いと 思い ます . 


u SS な お 。 500 点 ご と に スピ ー ド が 上 が り ま I 
まず , マシ と シン 語 モ ニタ で リス ト 3 の マシ す が 。 2。000 点 を 越す た と スピー ド は 一 定 に 「 ポ ポケ コン *・ マ シン 語 入 門 。 の 本 を 買い 


ораны RIST PIAA <= еу лед 
は 層 4000 で す ). そ し て 入力 が 終わ っ た ら チ 
ェ ッ クサ ム を 見 て , 間違い が な いよ うだ なら 
ば SAVEM “SKI” ; &4000, & 4ODD L L 
Xue RT. 

次 に 。 リ スト 4 の BASIC 部 を 入力 し て 
先 の マシ ン 語 部 の 後に モー ブ し ます . 次 回 
か ら は CLOADAM| ENTER |CLOAD| ENTER | 
[pEFIIC| で ゲー ム が スタ ー ト し ます . 


Г, ВЕ: e ЕЕ 


まし ょ う . PC-1401 は 対応 機種 に は な っ て 
いま せん が マシン 語 は PC-42 系 と 個 だ で 
x id 
避 参 考 文献 
tm 1) "PC-1250/1251 2 > #8 1), 27, 
仮想 G-RAM に デ POPCOM, "84 年 7。 8 月 号 
ー タ を 作成 し て か ら G-RAM に 転送 する と 2) “PC-1401 内 部 解析 ”" , The BASIC, 
いう クタ 無駄 な こも 才 し て いま す が 。 X9» 84 年 7 月 号 
な スピ ビード が 得 ら れ て いる の で その まま に 
LCE 
まだ , 本 ゲー ム の 難易 を 変更 する に は リ 
スト 4 の V の 値 を 変え る か , 290 行 か ら の 
AAR у= Ж ерл ӘС лге, 


D+PEEK (ñ+C):NEXT C: 

WAIT B:PRINT ””$HEX 

(A*JO:CALL K:ññ$=2$+ 

118:PRINT ""SHEX (CR+J+15 
)!CALL KiIRR あ =HR$+ ご ま + 
"-»":PRINT ""SHEX (D 
+J CALL K:ññ$=ññ$i+ 
MID$ (2$:33:2)5 

1280: IF б=1 PRINT = 
LPRINT 

130: WAIT :PRINT ññ$: 
PRINT = PRINT :H=R+1 
6: IF &-1»2B THEM *S" 

1480:60T0 100 

158:"8" INPUT "S.ADDRESS 


マシ ン 語 ルー チン は 、 
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4040-404Ғ- >30 
4050-409Ғ- >1Е 
4060-406Ғ- >90 
407й-40ТЕ- >50 
4088-488F-5C5 
4820-4809F-5RD 


JAM マシ ン 語 モニ タデ ー タ ・ リ スト 


1B:POKE &4508,&1Й,&45,%& 
DB 2 | SFIS 652 884:2% 
BB:&DB: S35 2 247) &DB 
1&98532 

20:POKE &45ES8:&DO:&DBs& 
81:23 845 SDB 657,678 
545,408», %24 26 | &24 
1&265&245 $26 

38:PDKE &45Е8,&24,®&26,2 
:8:$265 $273 5718 | &455& 
D3:8245$&2563&24:$26:2 
|. B 825 

4B:POKE š4683 537 Á 88452 
1588: DB: 895 2 &465& 


4024:34 24 
4028:43 67 
402C:08 84 
4030:DB 85 
4034:DB 36 
4038:DB 87 
403C:DB 02 
4040:24 27 
4044:67 00 
4048:37 84 
404C:DB 85 
4050:DB 86 
4854: DB 

4058: DB 

4050: 34 

4060: 69 


149:IF T$="4" LET X-X-1 

150:IF Т$=°6° LET X=X+1 

169:U=ACX〉:IF U=5 LET Q= 
&21:0=9:P=8:S=S+10: 
GOTO 49 

179:IF U=6 LET 0=&31:0=1 
9:P=8:S=S+29:GOTO 40 

180:IF U-3 LET Е1=1:60Т0 
49 

199:IF U=4 LET 0=11:Р=8: 
S=S-30:GOTO 40 

リス ト 4 スキ ー ゲ ー ム BASIC リ スト | 288:IF U<>9 LET F1=2 

210:G0T0 49 

229:POKE &4151*X»12:CALL 
R4049 CALL &4999: 
CALL &4012:FOR R=1 


99H9-49RF->E8 
40B0-40BF->AD 
40C0-48CF->F4: 
48D8-48DF-594 


18:"C" CLEAR :POKE &45D 
B: FIs SFE: SFE: SFE: 0 
24:"3" FOR К=&4153 TO & 


DBs S86 2, %$6ñ | GDB: &87 


)2,&38 ed 4064125 415Е:РОКЕ Р»: МЕХТ R TO 40: МЕХТ RiPRINT ° 
50:РОКЕ $4618:&DB»3:75& || ,-9:»;» INPUT *E.ADDRESS 4969:61 :POKE &4152,7:РОКЕ & ":BEEP 3 

83582458265 C3: &633 0 =p i 406C: DB 415Е,Т:ВЕЕР 1:МАІТ 1 || 239:MAIT 159:PRINT 2$5 °6 

(829565637: 6105 8455& || Loo: RETURN 4070:38 50:РВІМТ Z$i” SKI GR AME OVER*:2$ 


4074:05 
4473:14 
407C: BE 
4080: 26 
4084: 26 
4088:41 
408С:19 
4090: 55 
4094: 00 
4093:00 
409C: BB 
480800: ЙЕ 
480804:7C 
4088:44 
42A: 88 
40B0: BE 
40B4:48 


D1:&57 

60:POKE &46238, 78, &46› & 
35,452,51й›&45,&]2›& 
57,573,546› #35, &52›,& 
STs 26T: $40: 3A 

TA:POKE #46338 (4 (875 | 837 
5&Z273&793&30:5 23T: 
BEEP 1 


ME ek 
30:ñ=7?:N=ñ:0=B:P=BDB:D=1: 
S=B:V=35:X=8:F1=B:; 

PRINI "e RR 
.Co--IMAITOGIPRINT. ^7 
40:ІҒ S>599 LET v=30 
50:ІҒ S>1999 LET V-225 
68:IF 5>1500 LET V-20 
T9iIF S>2000 LET V-15 
80: РОКЕ &4003:Q0:POKE &4 

150,0, Р: РОКЕ &4151+% 

*12:ERLL &4049: CALL 

64000: СА &4012 
99iFUR R=1 TO ViNEXT R: 

PRINT "":IF F1=2 

THEN 228 

100: 0=0:Р=0: 0=1: ВЕЅТЈВЕ 


249: IF 5<НІ PRINT "SC="; 
STR$ SiPRINT "HI.SC= 
"3S5TR$ HI:PRINT "HI. 
NAME: "SNN$:GOTO 260 

258: HI=S:PRINT " HI-SCOR 
E !!*:PRINT °SC="; 
STR$ S:INPUT "YOUR N 
RME(MRXT) ” s NN$ 

260:WAIT O:PRINT “REPLAY 

(Y^N»2?":CALL &1421: 
PRINT "":T$=INKEY$ : 
IF T$z"Y" THEN "S" 
27T0:IF T$z"N" END 

-280:G0T0 260 

2980: DATÀ 4:555545051 

308: DATA 4:6:6s4:3051 

318: RTH 1,Й,4,5,5,4 


190:*2* IMPUT "РКТ ҮМ?" 
SF$:G-B:IF F$="Y° 
LET 5=1 

200: RETURN 

218:"D" GÜSUB '2":650SUB 
"g':60SUB "1" 

220:WAIT B:PRINT ""SHEX 
(А+ ЈУ: САЦ K AA$=Z$+ 
":":FÜR C=9 TO 3:D- 
PEEK +С: WAIT 8: 
PRINT “SHEX С&100+р 
JiEHLL &45FE 

250: АА$=АА$+2$+° ":NEXT 
CiIF 621 PRINT = 
LPRINT 

249iMHIT :PRINT ññ$: 


リス ト 2 マシ ン 語 モニ タ BASIC リ スト 

18: "5 J=65536(kK=&45EF: 
püsUB "à" 

2Ø: WAIT Ø: PRINT ""SHER 
CH+TJT)ILHLL K:C$-2$: 
PRINT "НЕХ (3100+ 
PEEK А: САСЫ &45FE:C 


eg ER р a Коке pes 280*(RND 17)ж10: ЕАР || 220: DATà. 15854565654 
INPUT ・ Жл L sar s со BsCsDsEsFsG:RESTORE || 350: DATA 45555545052 


280*CRND 17) ж10: READ 
HsIsJsKsL 5M 

1190:РОКЕ &48083:Q:POKE &4 ` 
1590 P ñ Вз Co Di E F s. 
GsHs Is Js Ks Ls MS N: CALL 
&4949:CRLL 24000: 
CALL &4812 

128:FOR R=1 TO V:T$- 
INKEY$ :NEXT R:PRINT 


| 340: DATA. 45656545032 
350: DATA 2,Й,4,5,5›,4 
368: DATA 23054565654 
370: DATÀ 4555355450553 
| 388: DATA 45656545053 
390: DATA’ 330545 55554 
480: DATA 330:4565:654 
418: DATA 0s1:250» 3,8 
.428: DATà. 95359525159 
430: DATA 05150505158 
440: АТА 929595259 
450: DATA 939』95359 


+4404: 00 

44C3: 98 

40СС:74 

4010: 14 

4004:70 

4008:70 

48DC:14 

スキ ー ゲ ー ム マシ ン 語 部 の チェ ッ ク サム 値 
4BB98-4BBF- >49 ; 
4ġ01ġ-401F->03 


$ 

40:IF 2$-"" THEN TB 

50:IF LEN 2$=1 LET 2$='" 
8"+2$ 

BB CALL &4624:POKE A, 
PEEK &45D1*16+PEEK & 
4502 

TB:8=ñ+1:5DTD 20 

88:" "А=А-1: 6070 28 

98:"C" GÜSUB "2":60SUB 
7°: 0050В "1" 

1B8:D=B:FOR じ =9 TD 15:D- 


リス ト 3 スキ ー ゲ ー ム マシ ン 語 リス ト 
4000:12 ! 

4444: DE 

4888:43 БТ 

488C:84 

4818:DF 


4814:FF 
4013:40 
401C:FF 
4020: SF 


138: IF F1=1 LET F1=9: 


4929-492F->C5 GOTO 169 


4838-483F-56B 
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РС-1261 


BASIC 


ポケ ッ ト ・ メ イズ «» 


opa M 


ТУДУУ 


ZIT 27225») 


三次 元 迷 路 と いう の は や っ た こ と の ある 
人 も いる と 思い ます が が , " 愉 も 自分 が 本 当 に 
迷路 の 中 に いる よう な 臨場 感 が あり 大 変 楽 
し め る も の で す . で も , 持ち 運び の で き な 
\ よ うな 大 き な 機 種 で し か 遊べ な い の は い 
ま ー つ 残念 で す . しかし, も う 安 心 . さ あ , 
あな た も 一 つ 電 車 の 内 で で も 迷路 を 探索 し 
て みて は いか が で すか ? 


アル ゴリ ズム は ,「 こ れ 以 上 道 を 延び せな 
いと 判断 する まで て 道 を 延ばす 方 法 」 を 使っ 
て いま す . も っ と も ブログ ラム を 簡略 化 で 
きる と ころ が 長所 で す が , 迷路 が 単純 に な 
り が ち で ある (いわ ゆる 「 右 手 」 の 手法 で 


簡単 に 解け る 場合 が 多い ) と いう の が 最大 
の 欠点 で す . まだ, 迷路 の デー タ は 直接 的 
に 配列 に 格納 する と 極度 に メモ リ 効 率 が 悪 
ORD, 配列 2$ を 定義 し て それ に 割り 当 
て られ た 番地 に 直接 POKE 文 で 書き 込ん で 
いま す . この だ め , 迷路 の 作成 に は か な り 
の 時 間 が 必要 で す が を そこ は ポケ ュ コン, 5 分 


くら いあ な だ の 胸 ポ ケッ ト に 入れ て 許し て 
や っ て く 《 く ださい. 迷路 が Nd ЫЕ НАРДЫ Р, 
いく て ピッ と あな た に 嘆い て 教え て くれ 
る の で すか ら …・. 


E "m Ел OV ; иги 
k 5, кА аа ILLE ` wu 9: "e 
ааа の ú Ww wow m жишш 
に yx wv > 8 ч B m BS か ш, y. 


EDET EE 
が 作成 で きま す . まず , [DEF|IM| と する と こ 
の n の 値 を 聞い て くる の で , 適 当 な 大 きき を 
入力 し て くだ きい (PC-1261 で は 最大 値 81 


ДНИНИ POCKET MAZE BASIC U 5 FÍ 
FOR F=9@ TO 


19i "MV CLEAR : CLS : Е:б=Т+2: 
RANDOM : WAIT B: 
INPUT "5T 947° 2? "iN 
12:IF N<2 GOTO 18 
15:Js INT (2.7*N/3) 
18:PRINT "P9 "Ji "MINUT 
ES ?wrT259* t4." 
19:E225788-48*N:X-2 INT 
(て (25855-E)/16)+1 
28:DIM ZENS T$ (0k24: M 
=11:5=M+M:T=N+N 
25:FOR I=E TO &64FF: 
POKE 1,35: МЕХТ I 
38:H232:6-20: FÜR F=9 Т0 
5+2: GOSUB 388: NEXT 


F 


NEXT I 
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POCKET MAZE 


5+2: G0SUB 3080: 


32:F=B: FÜR G=0 TO T+2: 
G0SUB 388: NEXT hiF= 
5+2: FÜR G=B TO T+2: 
G0SUB 300: 

40:x22:Y22:022: R20 

SB:FDR I=! TO 4:А<1)=1: 


NEXT G 


59iK= RND 4:L- RND 4 
T8: ZzRCKO:ACIOZACLO:RCL 


>+: 


まで 指定 で きま す が , 最初 は 3 二 5 く らい に 
し て お くく で き で し ょ 2 う . 3D 表 示 る れる と 小 
る な 迷路 で も 結構 大 変 な の で すか ら ). 

迷路 が 完成 する と , 前 述 し た よう に BEE 
P が 開 こ えて 一 旦 コ ユマ ンド 待ち に 戻る の で 
だ た め ら わ ず [pEFI[S| と し て くだ さい . あな 
だ の 視界 が 表示 る れ て 入力 待ち 状態 と な り 
ます ( 図 参照 この 状態 で , [8] か [F] を 押す 
と 前 進 , [4] ^L] C 7c, [6] か [R] で 右 , [2] か 
[Bl で 後 を 向き ます . ここ で 注意 が 必要 な の 
は , 前 進 以 外 は あな だ た は 動か な いと いう こ 
ETT: 

を し て めで だ く で く ゴー ル に だ た どり 着く 〈 と , 
合計 何 回 動い た か が 表示 され て 終了 で す . 
まだ ,。 急 な 用 が で きだ た だら 入力 待ち の と き に 
スイ ッ チ を 切っ て お け ば [pEF |[HI で 再開 で 
きま す . も ちろ ん [|pEFI[S| で 初め か ら や り 
EES 0 Бене A D 


s14, 160 
1B8:F=x:G=Y-2: GOSUE 422 
: IF H=32 GOTO 200 
118:FzXx:62Y-2:H232: 
50SUB 388:62Y-1 
GO0SUB 388:YzY-2 
GOTO 68 
120:Fzx*42:6-2Y: DOSUB 488 
: IF H=32 GOTO 288 
138: FzX*1:62Y:Hz232: 
USUB 388:FzXx*42: 
G0SUB 388:XzX*2: 
GOTO 68 
148:Fz2X:6z2Y42: G0SUB 400 
: IF H232 GOTO 200 


NEXT 


1958:FzX:62Y*2:H232: 
G0SUB 3880:6zY*1: 
bUSUB 388:YzY*2: 


IF RIT LET Rz 


な お , ZVLAO55XIZ[DEF]|L]:-T 
る と 迷路 の 地図 が プリ ント アウ ト き れ ま す 
UN ӨМ ЫТЫ O > 度 ゴ ー ル を 制覇 し て か ら 
А RE 


この プロ グラ ム は 5000 行 以降 を 削除 すれ 
ば PC-1260 で も 走り ます . た だ し , n=2 し 
か 作成 で きま せん . メッ セー ジ を 削る ,CH 
AIN 廊 を 使用 し て 迷路 作成 と , 実行 の 2 本 


の プロ グラ ム に 分 ける な どす れ ば 。 n=10 
くら いま で は 可能 で は な いか と 思い ます . 
挑戦 し て みて くだ さい . 


: IF 8585 GOTO 


GOSUE 488: 
LET XzQ:YzR: 


240:60T0 228 
250:Р=22:6=Т+1:Н=32: 
0508 300 


260:РОВ GzT*2 TO Т+4: 
РОВ Fz28 TO 23: 
00508 388: NEXT F: 
NEXT 5iP=T+1 

270: ВЕЕР 1: END 

500: РОКЕ Е+Е+6ж24,н: 
RETURN 


4B0:H= PEEK (E+F+D*24)* 
RETURN 


=1:7=0: CLS : 
SSPNINT T 
503: じ = け 
987:"H" WAIT 8: CLS 3 
PRINT ES 
10:00508 1000 


1500 
514:G0SUB 1700 


5,127 


‚Б 
53B:Z$= INKEY$ : 
* GOTO 530 
54B:IF Z$-z"B" OR Z$z"2" 


IF 2$-" 


--T: GOTO 580 
998:IF 2$-2"R" OR 2$=°6” 


968:IF Z$z"L" OR Z2$z"4" 


Ү:Х=А:Ү=В: GOTO 580 
9ST0:UzU*X: VzVeY:FzU:GzV: 
00508 488: IF H=35 

GOTO 600 
iCLS : PRINTS” "з: 


500: "S"Uz2: Vz2:Xz0: Y=1:5S 
WAIT Ө 


5 
912:IF U=22 AND V=P GOTO 


515:РОКЕ 10240» 127, 127,2 
8.127,127,127, 127,99 
127:127,127,63, 28,6 


520:РОКЕ 10260,6, 7,335, 15 


LET Х=-Х:Ү=-Ү:5=-5:Т 


LET А=5:В=Т:5=-х:Т=- 


1: 


_ 
13 


POKE 183845127:12 
995 1275127512 了 5 127 


'28,554+99,4,14,95,14 
'4 

998:50T0 5iñ 

SBB:POKE 10504, 127 (31562 


4 


і 


24,127 (1275127599, 


127,127,4,14,95,14,4 
685:UzU-X: VzV-Y 
518:60T0 534 


1888: 


1010: 


FzU*S:GzV4T: GÜSUB 
400: IF H-32 GOTO 
1828 

POKE 825651275127: 
63 63 31531: PHKE 
8192 1275 1275126551 
2631243124 

GOTO 1838 

POKE 8256580531531: 
31,31,31: POKE 819 
2.й,124,124, 124,12 
4,124 

F=U+XiD=V+Yi GOSUB 
400: IF H=35 GOTO 
20880 
FzU*X*S:6zV-4Y4T: 
0050В 4880: IF H=32 
GOTO 1858 

PHKE 8262:15*15:7: 
75353: POKE 819851 
20512051125112:96» 
96 

GOTO 1868 


ФКЕІ SATO 


1850:POKE 82625 5353535 
$43: POKE 8198959 
5 96, 96,96, 96 
1969:F= リ +X+XID=V+Y+T: 
GÜSUB 4880: IF H=35 
UTU 28028 
1865:F2U*X*X45:6zV4Y4 Y 
T: GUSUB 4808: IF H 
=32 GOTO 1888 
1870:POKE 8268,1: POKE 
8204,64: GOTO 1898 
1989:PUKE 3253,4: PUKE 
8204,0 
1990: Е=0+Х+Х+Х: б=у+ү+ү+ 
Y: GO0SUB 400: IF H 
=32 СОТО 1118 
1100: РОКЕ 8269531515151: 
POKE 8205, 64,64,64 
64: СОТО 1120 
1110: РОКЕ 3269,0:й,й,0: 
РОКЕ 3205,0, й,0,0 
1128:F=U+x+x-S:G=V+Y+Y- 
T: 5USUB 488: IF H 
=32 GOTO 1148 
1130: POKE 8273,1: POKE 
8289.64: GOTO 1150 


:1148:POKE 827358: POKE 


3209,0 
1159:F=U+X-Si ロ =V+YーT: 
USUB 400: IF H=32 

GOTO 1170 
1168:POÜKE 8274 3635675675 

15:15: POKE 8210,9 


Де, 


РОСКЕТ MAZE BASIC リ スト 
6,96»,112,112,120,1 


1200 


:POKE 8288531531563 


›653,12751275 POKE 
8216. 124 1245 12651 


245.122.157 
2651275121 


:G0TO0 1218 
:РОКЕ 8280531521531 


31,31,0: POKE 821 
6s5124512451245124, 
12450 


: RETURN 
‘CLS : ВЕЕР 3: 


PRINT "CONGRATURAT 
IONS !!"i 


:CURSOR 24: PRINT " 


YOUR MOTION : "5: 
USING “ШИН: 
WAIT : PRINT C: 


: END 
:IF Y=-1 POKE 10354 


*127531s62124,127 
: RETURN 


:IF Y=1 POKE 18354; 


3851115 了 3 123558: 
RETURN 


17280: IF X=-1 POKE 18354 
s127 63 5285635127: 
RETURN 

1730:IF X=1 POKE 18354; 
127127 1875187599 
: RETURN 

17480: STOP 

20880:POKE 8262531531531 
:51551531531531531 
:51531531531531531 
31,31,51 

2005:РОКЕ 819851245124; 
124,124, 124, 124,12 
4,124,124 

2007: РОКЕ &299F 124, 124 
124,124, 124,124, 1 
24,124, 124 

2018:60T0 1188 

2020:POKE 8263:3 3 3535 
3,3: POKE 3204,96, 
96, 96, 96, 96,96 

2830:D0TO 1150 

988B:"L" FOR І=Е TO E+P 
*24 STEP 24 

5010:7$%(00)=°°: FOR J=0 
ТО 23:T$(0)5=T$(D)+ 
CHR$ PEEK 1+7): 
NEXT J 

5Ø2Ø:LPRINT TECH}: NEXT 
I: END 


わけ の わか ら な い の が 2 つ あ り ま す が , 何 な り と 使っ て くだ さき るい. 


ETER EN 
Fill l Lil | 
Е INS синаи 
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PC-1500/1501 


BASIC+ TY ZE 


ある 日 , ふと 目 を 覚 し た お れ は 巨大 な 迷 


富 の 中 に いた 。、 し か し , も うこ ん な こと に 
は 慣れ の ここ だ っ た 。 コン シン ピュ ー タ を いじ っ 
て いれ ば , も っ と 不 含 理 な こと に いく ら で 
も 出合 う も の だ . 

お れ は 少し も 慌て ず , 右手 を 壁 に 当て た 
まま 歩き 出し た . こう すれ ば, 時 間 は か か 
る が 必ず 出 ら れる は ず だ . Jm, ADE 
う . よく 見 る と 上 の 方 に 道 が 続い て いる で 
は な いか …。 ЖАС, お れ が いる の は 上 トト 


に も 広がる 三次 元 迷 宮 だ っ た の だ . 


РЮА BASIC +920 Е 
す が 。 BASIC 部 は デモ と 初期 設定 を し て 
Кайл LAT. Müreoi md 
て ます か ら 骨 分 の 好き な よう に 変 と て も カ ) ま 
"ЖАҒА. 

な お , 入力 は 次 の 手順 に 従っ て 行なっ て 
EI EL 
O NEW & 46B5 [ENTER | L + 2. 

@9 リ スト 1 の マシ ン 語 部 (&40C5—&46B4) 
ШЕСТО ТУВА Оо ЦЕ 
モニタ で 入力 する 。. 

リス ト 2 の BASIC 部 を 入力 する . 
@CSAVEM "3D-MAZE" ; &40C5, STA 

TUS 2—1, &4693|ENTER| と し て , В 

Деб А ЫЗ УЕН E uu NE 

セー ジジ: ずる 

また , ロー ド 方 法 は 単に CLOADMIENTER| 
CX 0, &4693 50? беге MV — 7» 
vl LANDO-WLLUt-ZUIBASIC 
250 よう に し て て く 衝 ます .。 E OC 
き に ブリ ンタ が 初期 化 き 衝 ま す が 。 IEC 
まあ ひま せん . 


スタ ー ト は RUN|ENTER です. また , BE 
EP の ON/OFF が 有効 で す . 


ゲー ム が 始ま る と ,。 まず 迷宮 番号 を 聞い 
те « Бай 0—65535 € ТОЕ РАЈ 
て くだ さい . 2 進 4 バ イト 半 の 乱数 の SEED 
と な り ig 4 (残り 02 バ イト 半 は 90 行 の DAT 
А). な お この と き 。 有 前 だ や つる だ も の 


3D-MAZE 


仮想 画面 を V-RAM へ 転送 

(仮想 画面 は &7650~&76EB) 

表示 反転 

乱数 発生 (2 進 4 バイ ト 半 ) 

アド レス 計算 (Acc の 値 に 従い X 

レジ 増減) 

境界 面 処理 ( 6 ANDA) 

迷路 表示 

(以下 表示 と は 仮想 画面 へ の 書き 

込み を 言う ) 

RIGHT] 方 位 を Acc に 入れ て コー 

LEFT ¢ ル す る と , その 方 向 か ら 

BACK | みて 右左 後に あたる 方 位 
を Acc に いれ て 戻る 

矢印 表示 (Acc の 値 に 従い 矢印 表示 ) 

数 値 表 示 

(10 進 1 バイ ト の デー タ を 2 桁 の 

数 と し て 表示 ) 

XY 座標 表示 

ステ ッ プ , ZRF 

レベ ル 適 判断 (L, L’, 

憶 も 同時 に 行なう ) 

メイ ン ・ ル ー チ ン 

処理 

処理 

処理 

処理 

処理 

処理 

ゴー ル ・ イ ン 処 理 

BASIC テ キス ト の イニ シャ ライ ズ 


L ` の 記 


と 同じ 迷宮 を 楽し み だ い と き は , 同じ 番号 
を 入力 し て くだ る ぃ | 

次 に "LEVEL 5 と 表示 る れる の で , 
[4] と [6] キー で レベ ル ( 以 下 L と 略す ) £ 
СУ Теса сло Тас 
小さ く な り ま す が 4 以下 に は な り ま せん . 
きら に , STATUS2 か ら 後 の メモ リ が L + 
1 未満 に も な り ま せん . 

そし て , 好み の レベ ル に な っ だ ら 
キー を 押し EE. on 開 BTT. 


кта. 


"sx. 

X YES [SPACE] X- — £ lll L Z > > 
グ 表 示 に 変わ り , も う 一 上 度 押 す と 元 に 戻り 
iT. DGILGULT けけ の 場所 居り 。 

(L, L, EJ. КТС ETE k= 
式 で , 始め は ж. ШТ етш {бк to 自分 の いる 
ブロ ッ ク (右端 ) を 含め Аар. ロッ グ 


図 1 表示 


LEVEL 05 |e AA = 010101 


че 迷路 を 上 か ら xy 座標 


見 た と ころ | 
自分 が 向い て いる 方 向 自分 の いる 階 
を 示す (ZR) 


2 上下 の 道 に つい て 
E 

EL E] 
E. 


上 に 道 あ り 下 に 道 あ り 上 下 に 道 あ り 


43 ビッ ト フ フォー マット 


Tl Ee 


аза woe у A Р 


ビッ ト 6… 袋 小路 フラ グ 
ビッ ト 7 … 道 つき フラ グ 


ñ 正負 正負 正 


6 方 向 ( 道 = 1 ) 


EN RR ES 上下 の 道 に つぶ な て は 
図 2 を 見 て くだ る さい. 

さき て 操作 は , [4| で 前 進 , |1| で 真 上 , 
で 真下 に 移動 し ,1 回 移動 する ご と に ステ ッ 
> ONE GON Е か уе 45005647 
ッ プ 数 が 増え て も ゲー ム ・ オ ー バ ー に な る 
こと は あり ませ ん 。 さら に , BICA, [2] 
で 左 。 1@| で うし みろ を 向き ます が この と き 
に は ステ ッ プ 数 は 増え を ませ ん . その 代わ b 
いずれ も その 方 向 に 壁 が ある と , 動作 は 和 無 
視 き れ ま す . 

また だ, [OFF| で 電源 が 切れ て |ON| TH 
活 し ます が ,。 ゲー ム を 続け る 場合 に は 何 か キ 
ー を 押す 必要 が あり ます (た だ し , [G] キ 
ーー は ギ デ ・ デ テッ プ で す )、 

な お , CE-155 や 159,161 を 持っ て いる 人 
は リロ ケー ト に 挑戦 し て みて くだ さい .: PC 
1501 - CE-161€C, 層 00C5 番 地 か ら に 移動 が 


成功 すれ ば レベ ル 27 ま で 楽し め る 計算 で す . 


ZOPA TAD RAA TR, Ает! 
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9i0 


LoPLtXt E op ады реа на г as 
わな か っ た だ の で す が 。 レベ ルル だ と 1 辺 L の 
立方 体 迷宮 と な る 訳 で す . 

迷宮 を 作成 する に は , ビッ ト 0 か ら 5 ま で 
を 6 方 向 に 割り 当て , 道 を 出せ る 方 向 を 1 と 
Li DECOR ENTISDUOEWwBFTOL 
し , 量 後に 全 ビ ッ ト を 反転 し て 境界 を AND 
処理 すれ ば 道 が 1 で 如 が 0 と な る の で す . 

境界 が AND 処 理 で あり , イ ミー ディ エー 
ト 値 スト ア で な いも う 一 つの 理由 は , 辺 = 面 
«йі, 頂点 三面 & 面 移 面 で も ある だ め に 6 面 に つ 
いて AND 処 理 す れ ば , 辺 や 頂点 を 特別 に 処理 
に が で の も の さも て の まだ 、 Б, эы. 
も を いう の ば は 00 は が 凌 了 コー トド と もじ て る お 
めで す . 

迷宮 作成 アル ゴリ ズム は , 道 を 延び せ る 購 
は 延ばし , つま る と 根本 か ら 他 の 方 向 に 延 


ADDR *0 *1 42 を ざ 944 8 キム *7 48 9*9 tA 
. 40C2 QQ OO OO QQ 00 БА 45 CS ЗС 24 3C 
4000 2E 2A 2А ЗЕ ØE 08 ЗЕ 2E 2A ЗА ЗЕ 
4 の E の SE 2А SE 2E 2А SE 08 14 22 77 14 
4ØFØ 77 22 14 08 08 OC 7А 41 7A ØC 08 
4100 18 08 ЗЕ 20 20 QQ SE 2А 2А 00 1E 
4110 2А 00 ЗЕ 20 20 68 76 6 9D 58 76 


4160 46 D7 4A 05 50 07 FB 57 05 43 57 


42C0 54 4D 10 BE QA S6 SB Q8 54 SB 14 
4200 20 BB 02 SB 08 56 56 56 А4 ØF 89 
42E の SE 77 81 06 А4 BE 41 7C 9E 55 FD 


4580 48 78 4A C2 45 B7 の 5 83 02 FB 5А 
4390 2А 28 14 FD ра 88 04 14 41 94 41 
435a0 04 12 1^ 84 92 18 81 01 9 88 ØC 


3D-「1RZE Z ask 


gi" 


for PC-1591 


by IDK 10: РАЦЅЕ " 


0 U A WN 


1984.4. 29. 


京都 市 Mirror Knight 


8:"--&49C5-&46B4 


k 3D-MAZE ЖЖЖЖ 
X*":WAIT 10 


ば せな いか 調べ で ます 。 そし て , 根元 か ら 
どこ に も 延 ば げ せ な く な る と 次 の 地点 を 調べ 
+ bo DEC RD E 9.0015; 6 
の 方 向 に 延ばし て も 他 の 道 に つなが っ て し 
ボサ こも を > 24. 

単に これ だ け で す が , 普通 の 迷路 と 違っ 
て 枝分かれ が 少く 。 し か も 枝分かれ が スタ 
ー ト 付近 に 集中 し ます . この だ た だめ, スタ ー 
ト か ら や る と 難し い の で す . ゴー ル か ら 逆 
СОЖ УС Л, cnits2vAO. 
一 本 道 を きん ざん 引き 回 され だ あげ く 〈《 袋 小 
路 と な り ま す が 。 決し て 乱数 サブ ルー チン 
と アル ゴリ ズム を 考え た だ 作者 を 恨 ま な いで 
erreto; 

RS E E し て アド レス ・ マ ッ プ ( 表 ) 
や 直せ て なき ます 、 


リス ト 1 3D・MAZE マシ ン 語 リス ト 


+B +C +D +E +F SUM 
00 00 ЗЕ А 2A :58 
2A 5А 06 02 SE FF 
14 1C 1C 14 14 :02 
06 18 2F-41 2F.:9C 
10 1E 00 ZE 2А :58 
5А EB 48 77 4A :58 
R? ØF OB 43 4E :70 
4D FD 60 25 BD :25 
FD 98 48 7B 4A :44 
D7 46 D7 46 D7 : 3B 
05-45 57 05 45 :5С 
9б B7. 08 83 12 :7C 
9A a5 78 C2 FD :04 
00 の 8 9^ B7 20 :20 
Q8 SA 04 Ai 78 :DE 
C2 15 DF 28 2A 195 
50 52 A4 2А 49 :15 
C4 47 18 47 1А 3559 
A4 2А FD АВ A4 :62 
82 08 FD 2A 88 :27 
DF 18 28:20 52 :6D 
88 ØE FD ØA 94 skE6 
DD 49 FE FD СА :BD 
88 F? 14 02 ØA :BE 
A4 20 49 FB 44 :ØE 
88 14 48 78 4A :DZ 
15 45.90 18 FD :F7 
52 A4 2А 49 EF :BA 
60 48 58 76 БА :2D 
FA OF 89 OA BS :58 
45 08 OF óA 04 :10 
Q5 B5 41 51 54 :85 
54 SB 08 56 4D :05 
04 SB SE 8E ØA :ES 
ØA 5A BC SB 41 :CC 
Q4 89 02 DS 9A :65B 
22 D? 9А 83 02 :52 
BD Q3 ЗА 58 76 :n8 
の 2 B5 FB B3 Q3 :8E 
88 05 5А 48 40 :52 
CB FD Са Ер CA :BB 
SA 01 68 78 6^ :E6 
76 5А 01 68 78 :4р 
ES 66 ВА 43 SE :D9 
іа 58 の 9 DF DF :DD 
A4 2A FD 18 F9 :B4 
48 78 4A C5 14 :6Е 


= リス ト 2 3D-MAZE BASIC リ スト 
29:FOR I-1TO 8: 


58: IF H<80R M»655 


私 は いく つか の 迷路 ゲー ム を や り ま し だ た だ 
ヵ 寺 表示 の 人 穂 き に 本 ライ ラ し だ の て この ヲリ 
HZ SD は マシ ン 語 化 だ まし た で "0020 
x20 を 12 一 13 秒 で 処理 する 高速 作成 と いい , 
キー を 押し た 瞬間 に 画面 が 切り 換わる 表示 
補語 の スス は 
Es o 

PC-1500 の ユー ザー 同志 , 
語 の ゲー ム を 作ろ う . 
参考 文献 

“ポケ コン 活用 術 ", 工学 社 


B Ouew wo 


WAIT :PRINT 


CALL &4138: 35THEN 48 END 
PRINT :NEXT I 69:C=INT (M7256): || 90: DATA &88, &88, & 
38: ЕАР А, В, E 0=М-256ж%С 80 
ネネ ネネ ネ ||40: INPUT "MAZE NU || 28; POKE &2B99, А,В 
MBER ";M$:M- › С, Dy: E 


rallel 1/0 
Interface 
Centreller 


T ASAF Ал 

て も ホッ 70 ゲ ラム な ん て 

“An を ん 7 し ょ こつ ろう 

Citron 
Сун, гу 


89: CALL &40С5: 
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Q 


PB-100+0R-1/PB-300 


ゴー ルド ・ マ イン 


BASIC 


GOLD 


田島 本 好 基 


今 は 廃寺 と な っ て いる ん X 人 金山 . そこ に 金 
塊 が 隠さ れ て いる と 知っ た あな た は , 早速 
潜り 込ん だ . 無論 , 金塊 を いた だ く た め だ . 
し か し , 運 悪 く ガ ー ド マン に 見 つか っ て し 
EX. 


МОРЕ |1 CLEAR A [EXE|DEFM O [E ` 
XE| と し て か ら , 間違い の な いよ うに リス 
トド を 入力 で くだ きい 。、 42, АЛЛА 
ペー ス を 詰め て 打ち 込ま な いと 入り きら な 
ぃ 行 も ある の で 注意 し て くだ る さい. 


| MODE |O| SHIFTIO で スタ ー ト し ます . 
あな た (Ф) iX, 2 人 の ガー ド マ ン (Ф) 
に 捕まら な いよ うに うま く 逃 げ な が ら , 4 
HB (Г) を す で て 取っ て 最上 階 に 脱出 し て 


CASS u まな た 各階 に は バジ シゴ (で: や ・) 
が あり , それ ぞ れ 上 下 に 移動 する こと が で 
«ЖЗ. 

そし て , あな だ の 唯一 の 武器 は 床 に 究 を 
あけ る こと が で きる レー ザー 銃 で す . ガー 
Fay U; e ЭЁ э を る と S ti c4 
を 使っ て 床 に 究 を あけ て 下 の 階 に 落と し ま 
に よう で 、 ま だ ん 月 が で) 本 あ を も る を も TG o 
QC асос CRE S Cs CARIUS 
Pro: b qr G tuti k Чоло な お , あい た 
穴 は 誰か が 落ち る と 自動 的 に ふる さがり, JC 
どおり の 床 に な り ま す . 

キー 操作 は [gl[2]|4|[e| で それ ぞ れ 上 下 
左右 に 移動 し , |Zl[X| で 左右 の 床 に 穴 を あ 
け ま す .。 また 得点 は , 金塊 を 1 個 取 る ご と 
に 10 点 ,。 が ガー ド マ ツ を 1 ДАЖЕ РУ СЕ 
に 5 点 加算 きれ ます . 


プロ グラ ム の 説明 


省 メ モリ 化 に 努め だ の で 。 か な り 見 に < く 


いも の に な っ て し まい まし た . 解析 は か な 
り 大 変 な こと と 思い ます が 。 変数 表 (R1) 
を 載せ て お きま す の で , 暇 の ある 人 は どう 
<š 


ュ ン スト フク ショ ン の 
使い 方 


IOM EZ UTETES ST IOT ON 
コン スト ラク ショ ン の プロ グラ ム を 用 意 し 
まし だ な お >。 この デ ロ グ ラム を 使用 する 
に は カセ ッ ト ・ イ インター フェイス (FA-3) が 
必要 で す . 

š+, PB と FA-3 と テー フ "・ レ ュー ダ を 
セッ ウッ トル し ます 、 テー プ ・ シ ュー ダ は リモ ー 
ト 端 子 の 付い て いる も の が いい で し ょ う . 

次 に コン スト ラク ショ ン の プロ グラ ム ( り 
XR2) を 入力 も て 起動 じ ま す , する と メ 
ニュ ー を 表示 し て 入力 待ち に な る の で , Ц 
下 の 仕事 を 選択 し て くだ きい . 

L (Load) 

カモ ッ ト ・ テ ー グ か ら 1 面 分 の パタ ー ン 
を ロー ド も し ます .- テ ー プ ・ レ ュー ダ を 理 生 
に モッ ト じ て , 何 か キー を 押し て で 7 だ きい 、 
S (Save) 

カセ ッ ト ・ テ ー ジ へ 1 面 分 の 2 パパ ター ン を 
セー ププ し ます 。 テー プ ・ レ ュー ダ ' を 録音 に 
セツ PEC 1 何 か キ ー を 押し て くだ る さい 。 
E (Edit) 

Ў = е を エエ ディッド も ます . 
ここ で は 次 の 12 個 の コマ ンド を 使い ます . 


8 … カ ー ン ソル (A 上 移動 

2… カ ー ソ ルト 移動 

4… カ ー ン ソル メル 左 移動 

6 … カ ー ン ソル みん 右 移 動 

9… カ ー ン ソル の 位置 に ハシ ゴ を セッ ト 

3 … カ ー ン ソン ル の 位置 に 下り の ハシ ゴ を セ モッ 
ト 

7 … カ ー ン ソン ル の 位置 に 金塊 セッ ト 

1 … カ ー ン ソル の 位置 に 落と し 究 を モッ ト 

5 … カ ー ン ソル の 位置 に 床 を モッ ト 

C… パ ター ン の 初期 化 

S… バ パタ ダー ン の セ モ セージ 

E… 終 了 


表 1 変数 表 


残り の 人 金塊 の 数 

ガー ド マ ン の 切替 え 
ガー ド マ ン 1 ХЕ 
ガー ド マ ン 2 XX 座標 
ガー ド マ ン 1 Y 座 標 
ガー ド マ ン 2 VEE 
ガー ド マ ン 1 移動 方 向 
ガー ド マ ン 2 移動 方 向 
ガー ド マ ン 1 金塊 所 持 フ ラグ 
ガー ド マ ン 2 人 金塊 所 持 フ ラグ 
キー 入力 用 

(REA) 

残り の 人 数 
床 の キ ャ ラク タ 
金塊 の キャ ラク タ 

プロ グラ ム 中 の 飛び 先 
プロ グラ ム 中 の 飛び 先 
面 数 

Жел ш a 

タイ マー 用 ルー プ の ダミ ー 
汎用 

画面 読み 込み 用 
画面 入れ 換え キャ ラク タ 
プレ イヤ ーX 座 標 
プレ イヤ ーY 座 標 

汎用 


#2 プロ グラ ム の 変更 点 


Р] 
5 J=0:J=0: GOTO 10* R 


I=0:J=0: GET $, A: RETURN 


な お , 各階 に は 必ず 上 り の ハシ ゴゴ を 設置 
し て で て だ さい 。 エディット が 終わ っ だ な ら . 
必ず S コ マン ド で カセ モ セット ・ テ ー ブ " に モー 
е OYLEPS 

し か し 。 カモ セット に 記録 きれ だ マタ ー ン 
を 使う に は , プロ グラ ム に 若干 の 変更 が 必 
RTI. 表 2 に 示す よう に リス ト 1 を 修正 
RC で だ がき し た に л с жс р ар? УУЧ», 
ご と に 次 の 面 の パタ ー ン を テー プ か ら 読 み 
A р RD ます と 


スピ ー ド が 遅い と 感じ る 人 も いる で し ょ 
2X 意外 と 難し く 作 者 の 私 で きえ ぇ 10 面 ク 
生ま まじ て を ルカ いら つ 
か り 書き 忘れ た の で す が , 金塊 は ガー ド マ で マ 
ン が 持っ て いる こと も ある の で , その と き 
に は ガー ド マ ン を 容 に 落と す と 金塊 が 出 て 
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8535. 


EAE 


198 

18 ЧАС :M=3:R=1 
2521 n А : 
8:ü-168 

28 $-"G0LD MINE `: 
PRINT FOR T-8 
10 4 

38 PRINT CSR Teor 
IDCT46; 123C5R 5 
-iHBIDOS- Ti it 
NEXT T:GÜSUB #2 

55 50508 #1 

48 PRINT :PRINT "R 
ound”: R5 : GÜSUB 
#2: PRINT :PRINT 

офу“ 3: 6050 

B #2 


45 A= Y= b=1i =L 
:0=10:E=2:F=2:5. 


=1:H=-1:PRINT 
38 IF 7-3 THEN 500 
39 PRINT CSR AID 
(1881, LODS CER 
xe 


58 FÜR 2-8 TO i: IF 


ECOZTSPRINT C 
SR CO "v IF 
CC2)7 THEN 18 
8 
18 NEXT Z 
88 B-i-B:Z-ECBO*1U 
+‹В):#%=М10(2› 
i> U=56N (K-COB 


PA 
id VRC PRINT "CON 
STRUCTION": : 60S 
UB #5 
28 PRINT :PRINT "< 
| })0а@*;:6050В # 


3 
38 PRINT :PRINT *‹ 
5)ave*::G0SUB € 


J 
48 PRINT :PRINT "í 
E)dit";:605UB š 


6B PRINT :PRINT “5 
eiect Li E"! 

88 K$-KEY:IF Ks-'" 
THEN 38 

98 IF K$-*L*: 50508 
i 


188 IF K$="S";60SUB 
#2 


白川 智之 : “HOPPER”, РіО, 


}) 

95 IF Y$=" "s80T0 
508 
IF Y$-0$: IF. iB 
)=0; H$=N$: GOSUB 
318: 1(B)=1 
IF V$z*:*siF EK 
8)KY:ECB)=E(B)+ 


i gigu 6070 Q 
129 IF V$z*, IF EK 


BDIBE(GOZECD- 
ia(B)=UiBUTD 9 


138 IF EC) ET CCDO- 


s B)+U:60TO @ 


148 COB)=C(B)+5(B): 


IF C(B)=18;6(B) 
=-} 

IF С0В)=138(В)= 
1 


à 2-Y*1BexiVE-MID 
(A iF 7$=D$; 
5=5+10:=й-1: $ 
=N$:50SUB 518 


170 IF V$z" "300 


308 

188 K$=KEY IF K$="4 
TREATSRN А-1) 
inUTU P 


198 IF K$-'6":X-A45 


d (18-3): 6070 


288 Я с. 


+600 


138 6070 28 


Рі 


18 PRINT :PRINT "D 
ATA LORD'::60SU 
B $5 

28 50508 #4 

38 GET $,R:RETURN 


P2 


18 PRINT :PRINT 'D 
ATA SAYE": : 05U 
8 #5 

20 aüSUB #4 

38 PUT $, А: RETURN 


Р; 


18 PRINT :PRINT "D 
ATA EDIT": : G0SU 


84 年 8 H = | 
ШШШ |) ZF GOLD MINE BASIC! Z p ИИ 


P 


218 IF ki-'2:if Y$ 


=*,*ү=ү-1160Т0 
Р 


8 IF K$z'X' IP a£ 
ura edF MIDC 
SL HU 


80506 518: 6070 
р 


ТЕКЕ" ЛЕР Xx 
23Zz22-1: IF. MID 
2,1)=М $=" "3 
50506 319 

248 BUT P 

i88 u$-N$CICBDO ICD 
j=: BÜSUB 218 

TI 5:845:ECE2 -E CB) 
-1:IF EKBK 遇 EK 
3)=2 

328 BHTU Ü 

SBB 7-Y-1:)$-84: 505 
UB 519iIF FB T 
HEN i88 

205 5070 P 

sid IF Zz1:$-W$4HID 
(23: RETURN 
IF Z=30;$=MID(C1 
, 29 4$: RETURN 
ў=М10(1,2-12+0$ 
+HIDEZ+1): RETUR 
N 

GAA IF ñ=B;R=R+1:FB= 
A+: PRINT :PRIN 


コン スト ラク ショ ン BASIC! Z F8 


І ТЕ. Г 


В $5 

28 Х=1:1=0:1Р d^" 
:G05UB 368 

39 Z-Y*18*3:PRINT 
CSR 0: МІ0(Тж16+ 
Lig CSR Х-1:" 
IR 10;7+1; 

48 K$-KEY: IF K$-"" 
THEN 48 


45 IF K$="4"iK=K-s 


oN 44-1) 


58 IF K$z"5':x-RUS 


aN (18-4) 


58 IF K$="8"iY=Y+5 


oN (2-7) 


79 IF (212^ 1123-8 


oN T 
38 IF K$z'9':H-": 


":60SUB 280: 2=¢ 
+10:1Е 2200: %= 


". "1.60506 280 


T "Nicei*: Ta T 
B $2:5010 32 
510 9-0: GÜTO 59 
TAB PRINT CSR д: ‘ж 
::BüSUB #2: =М- 
i iF МИ THEN 4 
8 
18 PRINT :PRINT *5 
zore^:5: : GÜSUB 
$2:PRINT :PRINT 
"REPlay 
K$-KEY:IF K$="" 
THEM 728 
Й.ТЕ K$z*"" THEN 
i8 


J 120: =й: 5010 iB 


E に 5: RETURN 


28 $z"n0...: d ui 


Hi__ ロ 。_HD 


2: ПЕЕ RETURN 


*:6050В 298 


i88 IF K$-'5':H$-".— 


':80SUB 208 
118 IF K$z"T'rls-*n 
"HH=HH1IB0SUB 2 
99 
120 IF Ksz*1* rise" 
':805UB 288 


N 
IF K4z* C": 50506 
388 


158 IF K$-"5' : 60508 


#2 

160 BUTU 38 

290 IF MID(2,1;= n" 
j =H-1 


218 IF Z=i;$=W$+MID 


(2): RETURN 
228 IF 2-34: $-MIDCI 


IF K$z' E": RETUR 


D. C IBSBERETURN 


38 $-'0.; --JH- 
JT LE: ü, 
по: * t R10: RETUR 
N 
t00 $=*0:0:__:0:0:. 
абу, 2 n 8150 
„0, ^: RE LES RETUR 


N 
118 Rzi:80T0 10 


2^2 


8 FOR T=9 TO 308: 
NEXT T: RETURN 


; 29) i$: RETURN 
238 $-MIDCI Z7 12$ 
HIDCZe1 2: RETUR 


___':8=й: RETURN 


` i8 PRINT :PRINT °P 


ush any кеу“: 
28 K$=KEY:IF K$="" 
THEN 28 
38 RETURN 


PS 


18 FOR T=B Т0 i58: 
NEXT Т: КЕТЦЕН 
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PB-100--OR-1/300 


メイ ズ ・ ワ ー ル ド 


BASIC 


7 И 


本 プロ グラ ム は , 3 次 元 表 示 の 迷路 ゲー 
ム で ある . 番 人 に 捕まら な いよ うに し て , 
迷路 の 中 に ある ダイ ア を 捨 い 集め よう . 


=} | 


t 


[=l] 5166 

特に 注意 する 点 は あり ませ ん . リス ト を 
INC, 剛直 いい の な いよ う 避 次 力も で 
E КЛ 


bti HE F4 ke > 1 4 i H rt 
で | | : yl 1 ibeeee 1 Faz: : 


Е 


まず pEFM3 を 実行 し , 次 に [opEllollSs 
HIFTIIO| と する と ゲー ム が スタ ー ト し ます . 


あな だ た は, 12X 8 の 大 きき の 迷路 ( 図 ) の 
qe, ダイ ア を 求め て 進ん で くだ さい . W 


作 キ ー は |8| で 前 進 , [4| で 左 を 向く , [6] で 
右 を 向く , |2| で 後ろ を 向く と な っ て いま す . 
向く 方 向 は 相対 的 な も の で , 現在 位置 の 座 
標 と 向い て いる 方 向 (絶対 的 な 方 向 ) は 画 
面 の 右側 に 表示 され ます . 

QC, ダイア を 見 つけ だ ら を の 方 向 へ 進 
ん で くだ さい. その 後 “GET” と 表示 され 
だ ら ダ イア を 手 に 入れ だ こと に な り ま すか 
6, [EXE] キー を 押し て ゲー ム を 続け て くだ 
きい . そし て ダイ ア を 持っ た 状態 で 右上 の 
出口 に 到達 する と , EXIT” と 表示 きれ て 1 
面 ク リア デア となり, IEXE| キ ー を 押す と 次 の 
面 が 始ま り ま す . 

な お , 迷路 の 途中 で 番 人 (Ф) が 目 の 前 


に 現われ な だ た だら, [|『| キ ー を 押し て ディ メン シ 


AC 
PRINT "MRZE-HOR 
L*:80T0 #2 
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2 2 WY жш Y 
МАГЕ ШО 


2 $=М10(1,8-10+° 
"AMIDCORT 12-9) i 708 
: R$ CSO-MIDCI 0 > ドー 人 NI RANERI Ø+ 
: 865) 2HID CÓ 6? 


2(1)=201)+1:;601T Yi ます =H(Y)+ 1 ます (Y 
Ü #4 ү 


р 
М 


+ م‎ 
RM 
ARLEN 


> 


ョ ン ・ ビ ー ム を 撃っ て くだ きい . 番 人 を や 
うし た あこ お あき ます し かしゃ 本 の の が 
遅い と その 場 で ゲー ム ・ オ ーー と な る の 
で 注 天上 し で くだ さい, 


bE, 得点 は 番 人 が 1 点 で ダイ ア が 5ч 
CT. それ か ら , 表 1 に 表示 画面 の 見 方 を 
Се dor m 


迷路 に つい て 


シン ボル | 意味 表示 例 
前 進 可能 
前 進 不 可 
左折 不可 
右折 不可 
左折 可能 
右折 可能 


MAZE WORLD BASIC リ スト 
GÜSUB #Т:РОЁ R= 


1Hi (RANEY 


-— に Fs 


IF MIDCK, рае" 
THEN 2 


:: 


$+=Н1041›а-1)+°% 
"+МІ0СА+1, 12-3) 
B$COEMIDCL 82 
IFC rb) 
NEST R 

SZINT СЕНН#ЖЬ+ 
):7=1НТ RNN 株 4 


t231$8-8$ C HEC 


1 

二 の に ジン ログ ダラ ババ 5 マッ クジ то ДЗ. 

詳 も た いこ と は 各自 で 解析 し て て だ る さい 。 
X2 < プロ グラ ム > 


メモ リ ・ ク リア , タイ トル 表示 
番 人 消去 

初期 設定 

迷路 表示 

キー 入力 

前 進 処理 

座標 , 方 向 の 表示 

迷路 定義 

番 人 遭遇 処理 

パタ ー シ ン ・ ク リア , KQ Wi 


P7 の A$ーP$ ま で を 変え る こと に より , 

迷路 を 変え る こと が で きま す . 図 を 見 て 変 
更 じ て で て ください. 3, BEx[.]C, 何 も な 
いと ころ は |SPACEI で す . ФФ ЛП 
Калу айк I e Lr 


d š 


4 > 


L: 


た だ の 3 次 元 迷 路 を メモ 


OR-1 を 買っ て, 
の まま か て の ん な が が ーー ム に じじ て も まい えま 


OE E Dlg e A NES E AL だ も て 5 
ー ム だ と 思い - 3 we 


n 
IF МОХ 128 
THEN 7 

$-MIDCL ++ 


*+1008+1› 12-4) 
(ED 8) 
i=: 


piQ 


| $8R$(S)+16(S3:1 
F MID(Q Ds". 
THEN 8 

「 PRINT "°00 


[E $= "PRIM 
"x": rGOTO 21 


19 IF U$="+";PRINT 


e^ tt Rz3:80TO 
2 
PRINT "4": :8=2 
П-И: Sc Yt ТЕ 
lilF 012 THE 
N 23 


2 6010 27 


238:IF 527 T 
ud 29 
5070 27 


| $=8$(5)+1+65):1 


F MIDCOS 28^," 
THEN 28 

PRINT "i*::B0TU 
#4 

PRINT "E": GOTO 
tį 


IF $572"; Y-- V: 


EE 


IF Tsara"; 24:4 
=i: =-Z:BÛTÛ 8 
IF T$="6"i2=V:V 
=-4:4=2:6070 8 


$=М10(1,8-12+° 
"+М108+1, 12-8) 
: BSCSOMIDCI 6) 


3 güTO #5 


$=" 125450 FABL 
"PRINT "<" MID 
СА 125 * "S MIDATY 


*1219 3S 


2 PRINT ЫЕ 


=B THEN 5 


3 IF V=-1PRINT ' 


€^ RETURN 
PRINT ">"; :KETU 
RN 


| IF Wz-cLPPRINT ' 


" 5 RETURN 
PRINT "0"; БЕТШ 
EN 


MAZE WORLD BASIC リ スト 


x 
NH 
"SsCORE=" +261) 


Т #8 


: ISC5)2MIDCT 62 
а 15 | 3 PRINT | SR 4: "Е 
d$z*, "t 0 PRINT *:"::80SU 
$-R$(50 41465 B $6:IF R-2 THE 
$- Dpto N 48 
| 2 T$-KEY: IF T$="$ 
"HOTO #5 


0005000600660 0000000000000000 Y 》 «4 900 JOA A YY YY YY YY YYYYYYYYYYYYYYYYYS 


100000000007 @ | VY W = Ru 000000000000000000000000000 


DOOOOOOOOOOOOOOOO Te K Р?! 
a > AAC I> EE 9 


AE Y Y TY NS Y ТАА аа AA aa AVV هاه‎ A اهاهاه‎ AVV ھاھاھاھ‎ 


PiO 新 刊 案内 
LOGO ジ ャ ー ナ ル ;」 


日 本 で 初め て パソ コン 用 LOGO を 紹介 L, 
講演 会 や 各種 実験 な ど を 行なっ て きだ た LOGO 
ЧЫГ ТО —^ BYNAS (143 2)^ 
海外 の LOGO 専 門 誌 と 提携 し て , HFI Qd 
Огде = TD OBIE TE ЫЛЕ; 


LOGO ジ ャ ー ナ ル Ж íT 月 1 回 。 毎月 1 日 発行 

世界 の LOGO 情 報 +) 日 (fu FU 1 号 》 昭和 59 年 3 月 1 日 

PERN Ma 2k 《 問 い 合 わせ 先 》: l—-—c4TAÁS6xB8D 
グル ゲー ジョ ン 醒 報 LOGO ジ ャ ー ナ ル 幼 集 部 

LOGO ユ ー ザ ー の 情報 交換 &»450 名 古屋 市 中 村 区 名 駅 31 日 28-12 

A4 判 , SH ~16FH, 1 色刷 5 ft (052) 581-7655 


『 八 ソコン 
キャ ラク タ 集 」 


А C A d.a e k ш 
ー タ 付き の パソ コン 用 キャ ラク タ 1000 種 類 
Lb. 各種 パソ コン で の キャ ラク グ クタ 作成 方 法 
や , 実際 の 表示 , 動か し 方 な ど を 説明 し た 
も の で す . 

あな だ も, この 本 を 見 て オリ ジ ナ ル な キ 
ャ ラグ タタ を 作っ て みて は いか が で すか / 

《 価 格 》 — Y1,500 

《 問 い 合わ せ 先 》 廣済堂 出版 
&»105 東京 都 港 区 芝 2 J H23-13 
f? (03) 453-1201 
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HR-S7 は ヘッ ド ホ ン と ラジ オ を 合体 きせ 
だ ステ レオ ラジ オペ ヘッ ド ホ ン , HR-S5 は 
ヘッ ド ホ ン 型 FM 専用 ラジ オォ です. 

《 価 格 》 
HR-S7 310,500 
HR-S5 £18,900 


ヘッ ド ホ ンス テレ オ 'HS-H フ , 


HS-R7 は , FM/AM2 バ ンド ラジ オォ を 内 
成 し た 再生 専用 オー トリ バー ス 式 の 小型 ・ 
軽量 ヘッ ド ホ ンス テレ オ で す . 

(FFE) 
«з= F (一 往復 , エン ドレ ス , マニ ュ 

7м) 式 オ ー ト リバ ー ス 機構 . 

@] 曲 ミュ ー ジ ッ ク セ モン サー 機構 . 


@ ド ルビ ーNR(B タ イブ ) , ア ンチ ロー リン 
Z, スタ ル 対 応 . 
(m) \33.800 
(問い合わせ 先 》 アイ ワ ( 株 ) 広報 課 
9110 東京 都 台 東 区 上 野 1- 11- 9 
2 (03) 835-1201 (代表 ) 


キン グ コ ンク 第 弾 「CF- ら フ 00」 


CF-2700 は キン グ コ ング ・ シ リー ズ の 実 
MRAZ MSX AIST. 
(FE) 
@ メ イン RAM32K 実 装 . 
@RE コ ン バ ー タ . プ ブリ ンタ イン ター フェ イ 
Z PUR. 
人 @ 高 級 タ イプ 標準 キー ボー ド 採 用 . 


(m) \59,.800 

《 問 い 合わ せ 先 》 松下 電器 産業 (株 ) 
広報 本 部 東京 広報 1・2 部 

B105 東京 都 港 区 芝 公 園 1-1-2 

ナシ ョ ナル ビル ん 本館 

2 (03) 437-1121 (大 代表 ) 


バー コー ドリ ー ダ ー『C.B.H-01., 


C. B. R-01 は MSX 対 応 の バー ュー ドリ ー 
ダー で す . また バー コー ドリ ー ダ ー 用 の ソ 
フト 専門 書 も 同時 発売 され ます . 

(m)  ¥ 29,800 


《 問 い 合わ せ 先 》: セ ンチ ュ リ ー プ ラン ニン グ 


(株 ) 電子 事業 部 
#%]01 東京 都 千代 田 区 神田 神保 町 1-57-1 
花 月 館 ビ ル 4F 
® (03) 293-5227 


PEACE-AVR は , Hi-Fi VTR, ビデ オ 
ディ スク な どの オー ディ オ / ビ ジュ アル の 各 
種 ソ フト に 対応 し て , 簡易 操作 で 集中 リモ 
ー ト コン トロ ー ル 可能 な AV トー タル リモ ュ 
ン 搭 載 の クロ ス メ ヌメ ディア コン ポー ネン ト で 
j. 

《 シ ステ ム 合 計 価 格 》 304,000 
《 問 い 合わ せ 先 》〉 日 本 ビク ター (Ж) 

広報 室 
$103 東京 都 中 央 区 日 本 橋本 町 4-1 
2 (03) 241-7811 (大 代表 ) 
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РС-6001 +PC-6022 


BASIC 十 (マシ ン 語 ) 


オー ル ・ キ ャ ラク タ 印 字 ブ ログ ラム 


_LPRINT.LLIST で すべ て の キャ ラク タ 還 学 が 可能 


сео ч 
ШШШ 

#607 n Z 7 Z. (+¿PC-6001 (= PS JE 
され て いる キャ ラク タ の すべ て を 愛 機 PC- 
6022 で 出力 し よう と いう 試み な の で す . fr 
者 が PC-6022 を 入手 し た と き , 平仮名 , K 
仮名 の 同時 印字 が で き な い の と グラ フィ ッ 
ク ・ キ ャ ラク タ が 内 蔵 さ れ て いな い の に は 
泣き まし た . それ 以来 と いう も の , í OTR 
り を 今回 の プロ グラ ム 開 発 の 原動力 と し て 
きた わけ で あり ます . 


ペー ジ 数 は 一 応 1 です. 一 応 と いう の は 
後 で 説明 し ます が , この ブログ ラム は ペー 
ジ 数 が 2 や 3 に も 対応 び で きる よう に な っ て 
いま す . | 


mne. X PJ. + > e. r: 
後 走ら せま す . し ば らく する と OK が 表示 
$^, この 時 点 で 既に プロ グラ ム は 消え , 
オォ オー ル ・ キ ャ ラク タタ 出力 が 使え ます. そし 
て プロ ッ タ ・ プ リン タタ の スイ ッ チ を ON, < 
し て カナ ひら スイ ッ チ は ひら が な の 方 に し 
id. これ で 準備 OK で す . 

あと は LPRINT だ ろう が LLIST だ ろう が , 
ちゃ ん と ひら が が な 。 カ タダ カナ , グラ フイ ィ イッ 


る の 


270 «A 
Е 


ワー ク ・ エ リア の 中 に は フッ ク 番 地 と い 
う も の が あり ます . こ れ は ROM 内 の ブロ グ 
ラム 制御 が と きど き 飛 ん で くる 場所 で , Ў 
段 は ここ に は C9H (リタ ー ン 命令 ) が 格納 
され て いて 何 も せ ず に ROM 内 の プロ グラ ム 
へ 戻り ます . そこ で , この 番地 に C3H ( ジ 
ャ ンプ 命令 ) を 入れ , 飛び 先 を ユー ザー が 
作っ た プロ グラ ム に 指定 し て や れ ば , ROM 
BASIC 起 動 中 に 面白 じい こと が で きる と いう 
わけ で す . 

まず カナ ひら 同時 出力 で す が , これ は カ 
タカ ナ の ASCII コ ユー ド が 出力 され る と , Ж 
プロ グラ ム の 制御 に より , か な 文字 グル ー 
ブ 変 換 を 行ない ます . 

次 に グラ フィ ッ ク 文 字 で す が , 当然 の こ 
と な が ら 自 分 で デー タ を 作成 し な けれ ば な 
り ま せん で し た だ た. デー タ の 格納 形式 は , # 
コマ ンド の デー タ 形 式 の ASCII ユ ー ド で 格 
納 さ れ て お り , キャ ラク タ の 区 切り に は 45 
H が 入っ て いま す . ちな み に デ ー タ の 作成 に 
は 自作 の エディ タ を 使っ て 楽に 済み まし た . 


田 Mr. こ と 鳥越 章夫 十 宮沢 栄 志 
ƏIIIIIIIIIIƏIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÓX 


て は な いで 
フィ ッ ク ・ キ ャ ラク タ 出 力 中 に | STOP | > 
ー を 押す こと で す . グラ フィ ッ ク ・ キ ャ ラ 
クタ 出力 中 は プロ ッ タ は グラ フィ ッ ク ・ モ 
ー ド に 入っ て お おり, その 時 点 で [STOP | x 
ー を 押す と 後 の 動作 が 保障 きれ ませ ん . 

それから フッ ク 番 地 に も 注意 を 払っ て く < 
だ る きい (FFCFH, +1, +2 番 地 ). 


この ウロ ゲラ ム は りり ロケ ー タ ブル に で 
き て いま す . そこ で 転送 時 の 変更 箇所 を 示 
に ます : 

まず 10 行 の CLEAR 文 , 20 行 の FOR 文 の 
fii, 80 行 と 90 行 の フッ ク 番 地 の 書 き 込 み は , 
プロ グラ ム ・ ト ッ プ アド レス 二 400H の アド 
レス を 下位 , 上 位 の 順に , 80017 2 DATA X 
の 5 バイ ト 目 と 6 バイ ト 目 に ブロ グラ ム ・ 
トッ ププ" アドレス, 8101799, 10 バ イト 目 に 
プロ グラ ム ・ ト ッ プ アド レス 十 9AH, と も 
に 下位 上 位 の 順に 変更 し て くだ さい . 

3 参考 文献 

若松 合志 樹 : “2Z80 機 械 語 入門 ", RAM, 

81 年 12 一 "82 年 11 月 = 


ク 文 字 が 出力 され ます . 特に В” р р” 
な ん か の デザ イン は 私 の 最高 傑作 で す . 


ИШ!)/АК1 オー ル ・ キ ャ ラク タ 印 字 プ ログ ラム BASIC! А F uuu 


;34, 33, 31, 31,31 
150 DRTR32, 36,31, 38,31, 33 33, 35, 36, 35, 35 
ぅ 39, 35, 33, 55, 33 
160 DRTR33, 45,33,33, 4 4 , 38, 38, 31, 31, 32, 32 
;,34,34,35,35, 36 
170 DRTR36, 55, 33, 33 33 45, 33, 32, 44, 37, 38 
, 31, 31, 32, 33,33 
180 DATA34, 35, 35, 36, 37, 55 34, 33, 33, 45, 33 
‚32,44,37,38,31 
199 DaTR31 , 32, 33, 33, 34, 35, 35, 36, 37, 55, 38 
, 44, 32,32, 55, 37 
200 DRTR3 フ 2, 44, 34 , 34 , 55, 36, 34, 33, 33, 45, 44 
ぅ 32 31 , 31, 31, 33 
210 DRTR33, 33 35, 35 32,37, 3 フ , 31, 31, 31, 31 
1393543, 33, 39, 35 
220 DRTR35, 35, 35, 35,55,33, 45, 44, 32, 32, 31 
, 31, 31, 31, 55, 36 
230 DATA37, 44, 34, 55, 33, 33, 44, 32, 36, 55, 37 


10 CLEAR 50, &HEFFF 
20 FOR 1I=&HF999 TO &HF4RR 

30 READ ñ$ 

40 POKE I»UALC"&H"+A$) 

59 NEXT 

60 K=&HFFCF 

20 POKE K,&HC3 

80 POKE K-*1,0 

99 POKE K+2,&HF4 

95 POKE &HFFFF;0 

100 NEU ` 

110 DRTR33, 44, 33, 31 , 31 , 36, 38, 31, 31, 32, 322 
‚ 34,34, 35,35, 36 

120 DATA38, 35,35,33, 55,33, 33, 45, 33, 33, 44 
38, 38,31,31, 1 

130 DATA32, 34, 32, 34, 35 35, 35, 36, 36, 55, 33 
, 33, 33,45, 33, 44 | | 
140 DRTR33, 31 , 31 , 31 , 38, 37, 35, 35, 35, 33, 32 
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;44, 35, 35, 34, 34 
240 DRTRSS, 33, 45, 33, 4 4 , 33, 31, 31, 31, 36, 36 
ぅ つ 〇 ぅ 31, 31, 31,44 

290 DRTR33, 33, 35, 31 , 31 , 31, 55, 34 , 34, 44, 36 
; 36, 34, 34,55, 33 

260 DATA45, 44,31, 32,31, 32, 31, 37, 327, 33, 33 
;31,; 35, 33, 33, 37 

270 DATA37, 35, 35,35, 35, 35, 31, 31, 31, 31, 34 
; 35, 34, 35, 55, 33 

280 DATA45, 44,33,33,31,; 31, 31, 327, 327, 55, 35 
, 44, 34,55, 33, 33 

290 DATA44, 32,55,31,44, 37, 37, 31, 37, 55,37 
‚ 44, 32, 32; 34,34 

300 DAT8355,32,44,32,35,35,35, 35, 33, 33, 55 
;33,45,31,44,33 

310 DRTR33, 31 , 31 , 31 , 32, 33, 31 , 31, 35, 35, 33 
ぅ 32, 35 35, 35, 33 

320 DRTR33, 55, 34, 45, 44, 33, 33, 33, 33,31,31 
‚ 31,37,32,327, 37 

330 DATA35, 35, 35,31,31,31,31,31,31,33,33 
33, 33,35:35,35 

340 DRTR35, 35, 35,55,33, 45,33,33, 44,31,31 
ぅ 32,32, 33,31,35 

350 DRTR33, 31 , 31 , 3 フ , 55, 37,44, 32,31,35, 33 
;33,37,35,33,32 

360 DRTR3S, 35, 33, 33, 55, 34, 35, 45, 44 , 31,31 
315; 31,315, 31, 33 

370 DRTR33, 35, 35, 35, 37, 372, 55, 32, 31, 32,44 
; 33, 33, 35, 35, 35 

380 DRTR32, 37, 33, 33, 35, 35, 35, 37, 33, 55, 33 
;45, 31 , 55 44, 31 

390 DRTR31 , 31 , 31 , 33, 35, 35, 37, 33, 35, 35, 37 
:33, 31 , 33, 55, 35 

400 DRTR44,34, 31 , 31 , 31 , 327, 37, 31, 33, 31, 37 
; 33,31, 35, 33, 37 

410 DRTR3S, 33, 33, 37, 35, 33, 55 35, 35, 34, 45 
, 44, 32, 31 , 31, 37 

420 DRTRS5, 31,44,32, 32, 34, 34, 55, 37, 37, 36 
,و‎ 44, 33, 33, 35, 35 | 

430 DRTR3S, 37, 33, 55, 33, 33, 45, 33, 44, 31, 31 
s 36, 32, 31 , 37, 33 

440 DRTR31 , 31 , 36, 32 , 32 , 36, 35, 35, 33, 37, 35 
; 34, 55, 35, 44, 32 

450 DATA32, 31,55,36, 44 , 31 , 31 , 36, 32, 31, 31 
ぅ 39, 34,55, 34, 35 

460 DRTR3S 35, 45, 44 31 , 31 , 31 , 31, 33, 33, 33 
;334395, 39,35, 39 

470 DRTR32, 327, 37, 37,55, 32, 33, 33, 32, 44, 37 
ぅ づ ノ 。 327,32, 31, 31 

480 DRTR32 , 33 32,37, 37,37, 33, 33, 33, 33, 55 
> 34 , 35, 35, 35, 35 

490 DRTR35, 45, 31 , 31 。 31 , 44, 33, 33, 31, 31, 37 
"33, 33, 32;36,37 

500 DRTR35, 35,33,33, 37,32,35, 35, 35, 55, 33 
ぅ 33, 33,45, 31,44 

510 DRTR32 , 32 , 31 , 31 , 31 , 3 フ , 3 フ 33, 33, 33, 33 
dés 37339,3255 33 

520 DRTR33, 35 35, 36, 36, 55, 33, 33, 33, 45, 31 
,44,32,31,31,31 

530 DRTR32, 33, 33, 33 33, 32 35, 35, 35, 35, 33 
| 55, 34,45, 31, 31 

540 DRTR31 , 44, 33,33,31,31, 31, 35, 35, 35, 33 
I 55,35, 35, 34 


| リスト 1 オー ル ・ キ ャ ラク タ 印 字 プ ログ ラム BASIC リ スト 
990 DRTR45, 33, 33, 44 , 31 , 31 , 31 , 3 フ , 3 フ 。 33 , 33 
;33, 33,55, 34, 35 
968 ратазѕ, 45,33,33, 4 4 , 31 , 31 。 31 。 37,37, 33 
すす 9 
520 DRTR34 , 34; 34 , 35,35,35, 45,33,33, 44 1 
> 31 。 31 , 31 , 31 。 31 
980 DRTR35, 35 35, 33 33,55,34, 35, 35,45, 33 
»33,44,31,31,31 
590 БАТАЗ?, 32, 33,33,31, 31, 31 , 35, 35, 35, 33 
;33,55,34,35,35 
600 DATOS; 33,33, 44 。 31 。 31 , 31, 31, 31, 31, 55 
و‎ 34, 34, 34 , 35 35 
610 DRTR35, 45, 31 , 31 , 31 。 44 , 33, 33, 33, 33, 55 
34, 35 35,45, 33 
620 DRTR33, 44 , 31 , 31 。 31 , 33 33, 55,34, 35, 35 
,45,31,31,31,44 
630 DRTR33, 33, 35, 35, 35, 55, 33, 33, 33, 45, 31 
2252341151332, 34 
640 DATA44, 35, 35,35, 33,33,55, 34, 35, 35,45 
;,31,31,31,44,33 
650 DRTR33, 31 , 31 , 31 , 5S5, 34 , 34, 34, 35, 35, 35 
,45,31,44,32,32 ! 
660 раАтаз2, 32,55,32, 37,32,32, 44,34, 34,34 
‚ 34,55,34, 45,44 
670 DRTR32 , 32,31,31, 37,32,33, 33, 31, 31, 35 
;35, 33, 33,372,372 
680 DRTR35, 35,34,34, 55,33, 45,33,33, 44,31 
; 31, 37,37,31,31 
690 DRTR33, 33, 33, 33, 35, 35, 3 フ , 3 フ , 31, 31, 31 
,و‎ 31, 55, 34 , 34 , 34 
290 DRTR35, 35, 35, 45, 33 44, 33, 31 , 31 , 31, 31 
;31,31,55,36, 35 
210 DRTR44, 35, 36, 55 33, 32 , 32 , 44,35,34, 55 
| 34, 35,45, 4F , 20 
229 DRTR209, 20, 20, 20, 20, 20, 20, 20,20, 20,20 
, 20, 20, 20, 20, 20 
230 DRTR33, 20, 43, 4F , 4C, 4F, 52, 20,43, 4C, 4F 
,41,44,20,42,4F 
240 DRTRS4, 4F, 20, 29 4С, 49,53,54, 20, 20, 52 
| 55, 4E, 20, 20, 20 
250 DATAFS, ЗА, S8, FA‘, ЕЕ, 01, 20, 1A, ЗА, FF, FF 
;B7,20,4C,F1,FE 
260 DRTR14, 28, 1 1 , FE , 89, D8 , FE, 86,38, 38 FE 
| R6, D8, FE , DE, 38 
220 DATAQB, C9,F 1 , C9 3E , 91 , 32, FF , FF , E6, O0 
Í| C9, F5, 3E , 1B, CD 
280 DRTR1C。, 1а, ЗЕ, 29, CD, 1C, 1А, ЗЕ, 32 , CD 1C 
ぅ 1 ロ RF 1 CD, 1C, 1А 
290 DRTRS3E , 1B, Ср, 1C, 186, 3E , 29, CD, 1C, 15, 3bE 
31, CD, 1C, 15, EB 
800 DATAQQ, C9, C5, 91 , 99,F9, D6, 80, 18, 12, 3b 
, 00, 32, FF,FF,F1 
810 DATOFE,31,D8,FE, 50,D0,C5,01, 90, FO, D6 
;31,; D5,16,00, BA 
820 DRTR28, OC, SF , 93, Ва, D6 , 45, 29, FA, 03, 14 
ぅ > ノ B, 18,F1 , 3E, 1 3 
830 DRTRCD, 1C, 1A, 3E , 23, CD 1 C 1A, 00, CD, 1C 
;105,03,00,FE,45 
840 РАТА20,Р27, ЗЕ, Вр, Ср, 1С, 153 3bE, 11, CD, 1C 
; 15, ЗЕ, 20, CD; 1C 
850 DATAIA; ЗЕ, O8, CD; 1C, 16, E6, 00, D1, C1, C9 


ШЕ ЈАК2 サン プル ・ プ ログ ラム maaa END F P| шш 


FOR 1=1 TO 255 

IF 1>=32 THEN 40 

LPRINT CHR$C&H142); Su 
LPRINT CHR$(1); 


NEXT 


NEXT 
END 


RXXA$1BtÀi595T27U-H FF| го H XXd 9" H$ X%& U ()X+, 

./0123456789: ; <= >?@RBCDEFGHIJKLHNOPQRSTU 
UKY EI Sb CS гонг ук бор tu D 
22OOPOO88&& い うえ 8 る Pb よっ 一 あ めい うえ お かさ くけ こ さ し す せ \ 。「」、・ ラ 
ァ イ ウ エ オ ォ オヤ ャ ュ ヨッ ー ア イ ウ エ オ カキ フク タコ サ シス セ ソ タチ ヂ ウ ツテ トナ ニ ヌ ネ ノ ハハ ヒ フ へ ホホ 
マミ る メモ ヤ ユ ヨゴ ラ リル レロ ワッ * * 玉 ち っ て と な に め 1 の は ひ ふ へ て は まみ む めも や やめよ 
ら り る 所 ろ わし * ° 


171 


Pf PIO nA — a ii 


PiO な ゲー ム と どら は ? 


そし て 。 どう すれ ば PiO0 な ゲー ム が 作れ る か を , “PiO な ゲー ム “ 


を 代表 する 作品 の 作者 6 人 が 書い た エッ セイ か ら 説 


“PiO な ゲー ム " と いう あま り 深 い 意味 の な い キ ャ ッ チ フレ ー ズ 
を , 編集 部 で 気に入っ た ゲー ム に , 割 と 気まま に 付け て きま し た . 
し か し , この “PiO な ゲー ム " を 付け た ゲー ム に つい て は 最小 限 , 
完成 度 が 高く 独自 性 が ある と いう こと が 言え ます . まあ , 編集 部 
と し て は , これ が お 勧め ゲー ム で あり , こん な ゲー ム を どん どん 


作っ て も らい た いと いう わけ で す . 


I/O の 別冊 か ら 始 まっ て 今月 号 に 至る まで , “PiO な ゲー ム ” と 
付い た ゲー ム は 表 の よう に 全部 で 48 本 . この 中 で , 今 一 か な ? と 


ぼく は , 簡単 な ゲロ グラ ム な ら 作 っ た だ たこ 
と が ある と いう 人 を 対象 に 。 キャ ラク タ の 
動か し 方 に つい て 自分 な り に 考え ぇ えた 方 法 を 
解説 し よう と 思い ます . マシ ン 語 は 知っ て 
いて も どう 組ん だ ら よ いか わか ら な いと い 
う 人 に は 少し 難 か し 過ぎ る か も し れ ま せん . 
読者 の 皆さん の 大 部 分 は , だ たぶん "Jm 
PN" な る な の を 使っ て で > キテ ラク の 
動く 方 向 を 指定 し て , キャ ラク タ を 動か し 
て いる と 思い ます . この 方 法 は , dem 
SS ANE L CANE AE スペ ー ス +27 
オト も の に な る と どう も ゲー ム が パソ. コン 
身 ぐ な っ て , 味気 な いも の に な っ て し まい 
27. 


・ 方 向 フ ラグ 方 式 か ら ベ クト ル 演 算 方 式 へ 

どう も 大 げき に な っ て し まい まし た が 
早い 話 。 な め ら か な 動き を 出す に は どう す 
よい が か と ば う こと で ま 。 

マイ コン ・ ゲ ー ム の 動き は , 一 般 の ゲー 
ム 専 用 機 に 比べ る と 非常 に 雑 で す . な ぜ か 
と いう と, 方 向 転 換 す る と き の 動 き が ぎ こ 
ちな る すぎ る の で す . 方 向 フ ラグ 方 式 で は 
微妙 な 動き は 表現 で きま せん (それ こそ , 
動い て いる か 動い て いな いか の 世界 で すか 
ら ). し か し , ベ クト ル 演 算 方 式 を 使う L, 
この 問題 は 一 挙 に 解決 し ます . 

ベク トル 演算 方 式 と えい う の は 読ん で 字 の 
如く , キャ ラク タ の 動き を 双方 向 の 速 さ と 
Y 方 向 の 速 さ に 分 け て 処理 する 方 法 の こと 
で す . この 方 法 を 使う と 動き の バリ エー シ 
ョ ン は 無限 に 広がり ます . 

それ で は ベク トル 演算 方 式 の 応用 例 を 紹 
介し だ いと 思い ます が 。 その 前 に 表 1 を 見 
て 理解 し て お いて くだ る さい . 

表 1 


X…X 座 標 Y…Y 座 標 


XV…X 方 向 速 度 YV…Y 方 向 速度 


YVDATA… Y 方 向 速度 デー タ 


例 1 放 物 運 動 


思っ た の も ある し , 


この 他 に これ も 付け て あげ れ ば よかっ た と い 
う も の も あり ます . そこ が “気まま に …”" で ある 理由 で す が . 
ST, ここ に その 48 本 の 中 か ら え りす ぐっ た 本 当 に “PiO な ゲ 
=h” 7 本 の 作者 (6 人 ) に 「 ど の よう に し て その ゲー ム を 思い 
つい た か 」,「 ど ん な 工夫 を し た か 」 な ど を 中 心 に 体験 談 的 に 書い 


て も ら っ た エッ セイ が あり ます . “PiO な ゲー ム " を 目指 す 人 も そ 


ӨГ 

放 物 運 動 は も うか な り 使 い 古 さ れ た 手 で 
す が 。 まだ まだ 使え る と 思う の で あえ て 説 
明 し ます . 

も うか な り 前 に な り ま す が , 革 ソ フト ハ 
ウス か ら , ボー ル が 画面 上 を 放 物 運 動 し な 
が ら 弾 ね 回 る と いう ゲー ム が 出 ま し だ . こ 
の ボー ル の 動き は , あら か じ め 運 動 方 程 式 
で 出し た Y 座 標 の デー タ 和 群 を 次 々 と Y に 代 
ko の て 生生 も て い だ を う で まし か 
し , これ で は 決ま っ た 位置 か ら の 放 物 運 動 
し か 表現 で きま せん . そこ で ベク トル 演算 
方 式 を 使い ます . 

と りあ え ぇ え ず 


YVDATA:DB 一 3, — 2, 一 1, 0,1, 2,3 


と し ます (実際 に は も う 少 し 改良 し て 
使い ます が )、 
YVDATA の 内 容 を 次 々 と YV に 代入 し て 
いっ て や る と , 図 1 の よう に と の 高き か ら 
の 放 物 運 動 も 表現 可能 に な り ま す . 


iz, 下 の カ で に ぶつ か る だ びに YVDA 
TA の トッ プ ・ ア ドレ ス を 後ろ に ずら し て 
いく と, 図 2 の よう な 動き が 表現 で きま す 
(も ちろ ん , YVDATA の トッ プ を ずら す の 
に も 限度 が あり ます ). 

こん な 要素 を 加 を る と , ゲー ム が 我 然 面 
ALAH IT. 
図 2 


う で な い 人 も ,。 ぜひ これ を 読ん で ,。 どう すれ ば あん な に 楽し い ゲ 
ー ム を 作れ る の か を そこ か ら 見 い 出 し て くだ さい . 


例 2 渦巻 状 だ 円 軌道 


な に も な ん と か カ か 力学 を 使わ な が く て も ,。 4 
メー ジ だ け で の だ 円 軌道 な ら , ベク トル 演 
算 方 式 で 表現 で きま す . 

図 3 を 見 て くだ さき さい. BA EO, ЕВ 
LLT, 逃げ る ⑳ を 追い か ける に だ 円 軌 
道 を 描か せ て みた だい の だ と いう こと に し ま 
"T 


x3 


それ な ら , BOXV, YV を ⑳ に 向かう 方 
向 に 増減 きせ て いけ ば いい の だ と ピン と き 
だ 人 は , も う ベク トル 演算 方 式 を 使い こ な 
TECCEDI し も か し 。: 半 天 な うに だ 円 ら 
し い 動 き を る させ る だ た だめ に は , アセ ンプ ブリ 言 
語 の AND を 使っ て 速度 の 値 の 細か い 数 字 を 


切り 捨て た り , 切り 捨て る ビッ ト を XV と 


YV で は 変え て みる な どの 工夫 が 必要 で す . 
以上 , キャ ラク タ の 動き に 限定 し て , か * 
け 足 で 説明 し て み ま し た が 。 い か が だ っ だ た だ 
*Àsd A 

難し いこ と は 書い て いな い の で 。 思考 を 
和 柔軟 に すれ ば , “方 向 フ ラグ 方 式 " に 慣れ 親 
し ん だ 人 で も わか っ て も ら え る と 思い ます . 
ぼく の 初め て の 作品 “スー パー ボー イ “ 
で この 方 法 を 使っ た の で す が , 単純 な ゲー 
ム に も か か わら ず , 面白 い 動き を 出す こと 
の も で 生ま だ が こも か も ぶさ ます が あま だ うう あく L 
か し 切っ て いな いと ころ が ある の で , KO 
作品 で は も っ と 王 夫 し よう と 思 上 で ます: 
最後 に ゲー ム 作 り の 極意 を 1 つ . 

あま り ゲ ー ム を うま く な り 過 ぎ な いよ 2 う 
に し まし ょ う . 制 作 段階 の テス ト ・ プ レイ 
C, 人 並み は ずれ た 技 を 使っ て い だ り する 
L, RETO TOONS У АСЛЫ 
し まい ます . 雑 な 説明 で すみ ませ ん . それ 
ti. 


7 月 号 に 発表 し だ た デラ ネッ ト ・ タ イザ ー 
で す が , 思っ て い だ よ り も 好評 で あり PiO 
PiO で も いろ いろ と ほめ て も ら っ て と て も 
感謝 し て いま す . 

この ゲー ム を 作る 以前 は 撃墜 型 は 一 切 作 
プ で いま 本 が かじ に に あく も Pug 
ea を 本 っ て いな か がい プロ グ タタ ム 症 らち ら た の で ぞ ミ 
の タイ ザー が 最初 の 本 格 的 に 作っ た ブログ 
の SEN 

それ か ら 初 期 の 段階 で は 白黒 の ゲー ム で 
あっ だ の が , 中 村 光 一 氏 の カラ ー ル ー チ ン 
を 使う こと で スピ ー ド を 極端 に 落と すこ と 
な く キ ャ ラク タ 個 有 の 色 を 付け る こと が で 
S Zh 6: Ë 

皆さん も PC-8001 で ゲー ム を 作る と き の 
カラ ー 化 は ROM 内 ルー チン を 使わ ず に 中 村 
光一 氏 の ルー チン を 使い まし ょ う . せっ か 
〈 作 っ て くれ だ た の に まだ 使っ て ある プログ 
ラム は 少な いひ の で と て も も っ た いな いと 思 
し すっ 

この ゲー ム を 作る きっ か け は , 撃墜 型 に 
挑戦 し て みた か っ だ た と いう の が 一 つ で , ft 
に は ターム ャ や シン ター に よく あう た スグ 
ー ル ・ ゲ ー ム が PC-8001 で も で き な い も の 
だ ろう か と 思っ た こと や , 一 列 に 敵 機 が 編 
隊 飛 行 し て くる の を バン バン や っ つけ る ゲ 
ー ム が 作っ て みた だ たか っ た と いう こと か ら で 
+. 結局 , "OX 1 種類 で 地形 は 手抜き と い 
う 結果 に な り ま し た だ た が, 独自 の アイ デア も 
付け 加え て か な り , に ぎ や か な ゲー ム に な 
つの を いま ます 、 な うだ っ た で で よう か 。 


3 年 半 前 。 マイ コン の で て の 字 も わか ら な 
い の に IMZ-80K2 を 買い , ゲ ー ム の 他 に 使い 
道 が 見 付か ら な く て , ゲー ム を 楽し ん で い 
る うち に マシ ン 語 が 大 好き に な り ま し た 。 

し か し , 反射 神経 が 鈍い た め , リア クシ 
が < ゲー 必 に は 到 か が な か つい て いけ ませ 
ん で し た だ. それ な ら ,。 鈍い 人 間 で も 楽し め 
る ゲー ム と 思っ て 作っ だ た の が “BALLOON 
WORED' エリ マキ タン で すず 。 

"BALLOON WORLD” は , キー 操作 で 
は 直接 パル ー シ が 上 上 下 で き な い よう に も 。, 
まだ “エリ マキ クン "で は 保護 色 の 名 の 下 
に 画面 に 表わさ な く て , 惹 に よっ て 操作 す 
る よう に し まし た だ. 初め は , 木 に 登る と き 
ГЕ Т ЧУЕ АВ АСУ А 
まり 得点 で きそう に な い の で 立ち 上 が っ だ た 
ETO еее И LR SISO 
を 5B に 変え る と すべ で て 見 えな く な る ). 

アイ デア が 決ま る と 次 は 登場 人 物 選 び で 
す が , MZ-80K/C の 場合 , 幸 か 不幸 か ほ と 
ん ど グ ラフ ィ ッ ク 機 能 が な く て 250 余 の キ 
ャ ラク タ の 組み 合わ せ だ け だ か ら 。 描け る 


それ か らら 反省 点 と し て , チ ャ レン ジン グ * 
エリ ア の 飛行 デー タ を 1 デー タ / 1 バイ ト に 
じ て い だ だ め に ずい 人 導 長 ぐみ あて で て し ま ょ い 
£ した. 飛行 ゲ データ は 2 デー タ / 1 バイ ト の 
形 で 入れ る こと が で きだ た の で す . キー イン 
し て くれ だ 人 ゴメ ン . きら に LD (IX 二 d), 
z を 知ら な か っ だ た の で と て も 無駄 な こと を 
хо е уы; 

これ か ら ゲ ー ム 作り に 挑戦 し て みよ ょ うと 
思う 人 の た だ ため に 多少 の アド バイ ス を し て み 
iv. 中 上 級 者 は 読み と ば し て くだ さい 。 

ます アモ セン プラ で すか が ディ ォ ス ク を 持っ 
て いな く て デン プラ も まだ 特 っ て いな い 
人 に は , ぜひ BASE を 使っ て も らい た いで 
す . 一 番 の 強み は マル チ ・ ス テー トメ ント 
が 本 えた る さと て > ブロ グラ マー に と つや と 
て も あり が た だい 機能 で す . 

を その他 に エディ イッ ト ・ バ ッ フ ァ を 無駄 使 
аге TTE eyes verme 
ラム で きる . それ か ら BASE の 注意 点 は 行 
番号 か ら あ まり スペ ー ス を 開け な いこ と や 
既定 義 マ クロ 命令 (HL = HL + n) = 
シン ・ コ ー ド を ょ よく 見 て 無駄 の な いよ うに 
全う こも を な だ て 2 す 、 

筆者 は BASE を ゲー ム 作 り に 関し て は B 
ASIC コ ユ コンパ イラ 以上 だ と 思っ て いま す 。 

XCUICWAITov—4-viovccT9 こ 
れ は 短い WAIT ルー チン を 作っ て - 各 キャ ラ 
クタ の 出現 し て いな いと き に 時 間 か せ ぎ と 
に その ーー が する よう だ ああ) 

10 進 出力 ルー チン な ど を 作る の が 面倒 な 


も の と 描け な いも の が 自ずと 決ま っ て し ま 
まま 

キャラ テク 交 の 租 み 食わ せ と い うさ と で , 
登場 人 物 が だ どう し て も 大 きく な っ て 画面 が 
狭く な っ て し まい ます . そこ で スク ロー ル 
本 ご と に な りえ し だ ここ サー ギク 2 の ペ 
の 場合 も スク ロー ル し て , 上 下 左右 に 大 活 
躍 き せ た だ た か っ た の で すか が, MZ-80K2 は 画面 
を 大 きく 描き 換え る と どう し て も 画面 が 乱 
れる た だ ため, スク ロー ル き せる の は あき ら め 
て 狭い 画面 で 我慢 し まし た (な に し ろ 絵 の 
面白 さき が 頼り の ゲー ム で すか ら )、 
ИЛИЯ ГУЧА PIXMCCNENK 
の 遊び で 高度 な テク ニッ ク は 何 も な く 〈 く , た 
だ マシ ン 語 の 速 さ と MZ の 大 容量 の フリ ー 
メモ リ の 助け を 借り て 作っ て いま す ( 今 で 
は 他 機 種 で も 珍し く あ り ま せん が ), “ВА 
LLOON WORLD” の 場合 。 初め に 背景 と 
な る 絵 を $7200 か ' ら $9FFF ま で と, その 色 の 
デー タ を $A200 か ' ら $CFFEFE ま で に だ っ ぷり 
と 書き 込ん で いま す . 
実際 に プロ グラ ム を 書く と き は BASE を 


人 は 他人 の 作っ た も の を いた だ く の が いい 
と 思い ます . 誰が 作っ て も ほとん ど 同 ビ で 
す が 一 応 参考 文献 に 書き まし ょ う . 

乱数 は リア ル タ イ ム ・ ゲ ー ム に 不可 欠 と 
いう わけ で は あり ませ ん . な る で く 〈 く 使わ ず 
に ピロ ョ グラ ム し まし も しょ よう 。 DR E 
が ほし い 時 は ちょ っ と し た 関数 を 使い まし 
ょ う . た と えば (MAN の ぇ 座標 十 2 座 標 十 ク 
ロッ ク 値 士 敵 1 の x 十 AND 2m-!1 な ど で す . 

オォ オール マウ シン 請 で 作 ま じょう うそ を лса 
め に BASIC で よく 使う も の を 書く と , CO 
LOR(EA5BH), (EA5AH) : LOCATE(E 
A64H), (EA63H) : PRINT (HL=DATA 
3, END= テ 00, CALL52EDH) な ど で す . 
WIDTH, CONSOLE は タイ ザー の ブロ グ 
ラム を 見 て くだ る い 。 

以上 少し で も 参考 に な れ ば と 思い ます . 

ゲー ム 作 り は キャ ラク タ 作 り が 一 番 楽 
し いで す 。. 今 度 は スー パー アニ メー ショ ン ・ 
ゲー ム や オォ オリジナル ・ ス ポー ツ ・ ゲ ー ム に た 
挑戦 し て みた だい と 思い ます . それ か ら 最 後 
に NONBARLA PANIC EAC 


使い まし だ た だ. ゲーム の 性 質 上 どう し て も 絵 
の デー タ が 多く な り ま す の で 。 メー ス kw 
スト を 短く する た だ ため, "BALLOON WOR 
LD" の と き は デー タ を 書き 込む の に ディ ス 
プレ イ ・ コ ユ コード 表 と ASCII ュ ユー ド 表 を 首 っ 
引き で 見 な が ら 。 ASCII ユ ー ド に 換え て は 
打ち 込み まし た だ . 今 で は アモ ンプ ブル し た 後 。 
デー タ 部 分 も を ディ ス フ " レ イコ ユ コード に 変換 す 
る プロ グラ ム を 入れ て いま す . 

まだ 自前 の ディ スプ ルイ ーー デ ゴー a ps 
ASCII ユー ド 変 換 表 を BASE の 後に 継ぎ 足 


LT, MZ-80K/C の 持つ 全体 の キャ ラク タ 


が ジャ テー ズ EV ЕЕ о ма ЧА о С 
いま す . 入力 も , キー ボー ド か ら 直 接 全 キ 
МЭРУ СВ 5 よう も し で 本 っ JAN 
З? 

今後 は , イン デック ス ・ レ ジス タ の 使い 
方 を も っ と 勉強 し , 補助 レジ スタ も デモ の 
と き 以 外 は 使っ て いま せん の で , も う 少 し 
活用 し て みた だい と 思っ て いま す . 

現在 は , や は り MZ-80K/C の 持つ キャ ラ 
クタ で 描け る 絵 と いう こと で , 有名 な 喜劇 
役者 を ゲー ム に 登場 きせ て みよ うと 思っ て 
саз», あま り マ イ ュ ユン と 向き 合う 時 間 
が あり ませ ん の で , いつ 完成 する か 見 当 が 
付き ませ ん . 


OW ANLI DNI sss 


[Rio 10 月 号 | 


10 月 号 て 発表 し た а Pp 
ワー ルド "の 制作 背景 を 混 じ え な が ら , こ 
れ か ら ゲ ー ム を 作ら れる 方 へ の チョ ッ ト し 
- た アド バイ ス … と 言っ て も 私 も を その よう な 
立場 で は な い の で す が 。 初級 プロ グラ マー 
に と っ て ,。 少し で も 役に立つ の で は と 思う 
БРЕТ 8 ます. 

まず , ゲー ム を 作る に は アイ デア が 必要 
CT. その アイ デア も スト ー リ ー と 技術 の 
2 通り が あり ます (少な く と も 筆者 は そう 
思っ て いる ).、 ス トー リー の 方 は いい と し て 
技術 の アイ デア と は 何 が と いう と , だ と え 
ば “アル フォ ス "” の よう な パレ ッ ト 機 能 を 
有効 に 使う と か , “走れ スカ イラ イン "の あ 
の スピ ビ ピード. あれ は , アル ゴリ ズム の アイ 
デア が な く て は で き な い も の だ と 思い ます . 

* ダ ステ ィ ー ワ ー ル ド ” を 作る きっ か け と 
な っ た だ の は , V-RAM の アド レス が 自由 に 


FX S. CATYRHICT. 
今日 は 。 どう いう 風 に "PANELOT' を 
作っ た だ が か と いう こと と , ぼく の デブ ログ ラム 
の 作り 方 みた いな も の を 書き だ いと 思い ま 
T. 

まず は PANELOT の アイ デア で す が , Ж 
だ ちの 家 で や っ た ゲー ム に ヒン ト を 得 ま し 
だ 。 ほ ら 。 че АЕ ш ЖЫР ЖЕ. ЧЫГУ, = чур ытын 
ネル の 上 を 時 計 が 走っ て く や つ . ああ いう 
風 に 基本 的 な ルー ル し か な く て , 時 間 的 制 
約 の 中 で 状況 が め ま で る し くく 変わ っ て いく 
ょ うな も の を 作り た か っ だ ん で す . いわ ゆめ 
る > パニ ッ ク ・ ゲ ー ム で すね . 


2* ネ ル の 交換 と 回 転 し と いう, いま まで に な 
か っ た 要素 を 加え まし た だ た. こう いう 風 に 書 
く と いか に も 簡単 そう で す が , 実際 は これ 
だ け 考 ん える の に 1 週間 で らい は か か り ま し 
だ 。 結構 大 変 で し た . 

湊 に プロ グラ ミン グ で す が 。 これ は 大 し 
- こ と な か っ だ で すね . あせ ら ず に 割 と い 
いか げん な 気持 ち で 作っ て いま し だ た だから 
Có, キャ ラク タ と ゲー ム の スピ ー ド と ゲ 
ー ム の 最初 の デモ 画面 に は , 多少 気 を 遣い 
まし だ た ね. や は り 。 ゲー ム の 楽し き に は こ 
の 3 つの 要素 に 音楽 し いう も の が , か な り 
影響 し ます か ら ね . 

キャ ラク タ に は PANELOT 専 用 の エディ 
タ を 作っ て 第 や 友達 と 一 緒 に 考え ま gie 
自分 で 何 回 も 作っ て みる と わか る と 思い ま 
ま が か が 。 キャ ラク タダ っ て いう の は 。 だ っ だ 1 
つの 点 の せい で 全然 感じ が 違っ た りす る も 
の な ん ん です. だから 、. だ っ だ 1 人 人 で 作る よ 
05, 2, 3 人 の 違っ た 目 で 見 て 決め た 方 
が いい て しょう 。 


変え られ る こと が わか っ た だ か ら で す . 


を そして, まっ だく 同 じ だ と 芸 が な い の で , 


良い プイ ポア が あっ て ブロ ゲタ ケミ シダ 
し て も , 奥 が 深く て な い ゲ ー ム で は 面 臼 く あ 
り ま せん . 細か いと ころ まで コリ に コッ タ 
も の ほど ブログ ラム に 高級 感 が 出 ま す . Ж 
は 。 ダス ティ ー ワ ー ル ド の 1 つ 前 , PC+P 


CGT "DIGDUG" を 作り 始め まし た だ. T 


れ な ん か は ゲー ム ・ セ ンタ ー に 通い , 画面 
デー タ を 写し 音楽 な ど を テー に 録 り , 一 
音 一 音楽 符 に 直 直し ソック リ に 作り まし た 
(自分 と し て は )、 制 作 期間 約 2 年 (作っ て い 
る 途中 に 著作 権 の 問題 が 大 きく な り ポ ン に 
な っ た ). その 位 コ ッ て いる も の を 作ら な け 
れ ば これ か ら は ダメ だ と 思い ます . 

それ か ら , 一 度 作り 始め た プロ グラ ム は 
最後 まで 作り 上 げ る こと で す . 期間 が 長く 
な っ て くる と , 自 分 で 飽き て くる の で す が , 
それ を 乗り 切れ ば 自信 と 技術 が 付き ます . 


dE の 
まし だ 。 何しろ ぼく は, 作曲 っ て え の が ま 
る で 駄目 な ん で す . 自分 の イメ ー ジ を 音楽 
で 表現 で き な い ん で す . だから, 作曲 に 自 
信 の ある 方 は どん どん PiO に 出し て くだ 
5. で きれ ば 音 譜 付 き で . 思い っ きり , 
使わ せ て も らい ます の で ". 


あ ょ と ぼく が 思う に は 。 ブログ ラミ ング 用 


の メモ 帳 を 用 意 し て お なお く と いい と 思い ます . 


プロ グラ ム を 作っ て いる と ,。 急 に いい こと 
を 思い つい だ り し ませ ん か .。 それ と か , デ 
バッ グ の と き に 他 の バグ が だ くき ん 見 付か 
っ た だ たり と か .。 そう いう と き に メモ 帳 に 忘れ 


な いよ うに 書い て お いた だ り 計 算 に 使っ た なり 
L, 実際 に 使っ て みる と か な り 便 利 だ と 思 
い ぃ ます. 


それ を ず う っ と と っ て お け ば , 同じ ミス 
は 繰り 返 き ない よう に な る し 。 デ バッグ で 
若 し ん で だ た と き の 思 い 出 が よみ が えっ て き 
kk で と いま (まあ 括り も よみ 7 
ぼく の 場合 は ファ イル 1.5 悦 で らい に な っ て 
tb» 読み 返 し だ りす る と 楽し いで 
す . 
そして, ゲー ム は や っ ぱり アイ デア で す 
43. だ ただ ぼけ 一 っ と 暮し て いて は や は о; 
た オジ ガッ 7 は な な いらい を もみ (も あう ちや 
ー に / 友 人 談 )、 テ レビ と か ヵ か 子供 の 遊び と か , 


生活 の 中 に も テイ デア は いっ ぱい あり ます . 


た と えば 。 あ の “お しん” ГЕ A 
た も の に , “な お し ん ゲー ム " と いう の が あり 
ます . な し ん の 前 に ある と びっ きり の ご ち 

う を お むし ん に 取ら れる 前 に “だ いこ ん め 
L" に すり 義 を る も の で 。、 信 な て な たら 
悪口 ボタ ン で ダメ ー ジ を 与 を , お し ん が 栄 
養 失 調 に な る と 1 面 ク リア . 逆境 に 耐え 抜 


も う 一 つ , フロ ー チ ャ ー ト は タッ プリ と 
書く こと で す . 同じ ルー チン を 何 回 も 書き 
直し て いる と , も っ と 簡単 で 良い 方 法 が 見 
付か る も の で す . ダ ステ ィ ー ワ ー ル ド で は , 
ノー ト 10 冊 に な り ま し だ. そし て 発表 の と 
き は , そう いっ だ アル ゴリ ズム も 加え だ ら 
いい と 思い ます . 他 の 人 の 作っ た フロ ー チ 
ャ ー ト を 見 る の は , 楽し いも の で すし 勉強 
に も な り ま す (10 月 号 で は 少な く て ゴメ ン 
TW) 

最後 に , 今 作 っ て いる プロ グラ ム の 紹介 
を し た いと 思い ます . タイ トル は “ROZA 
RIA". ブ ルー サン ダー みた いな へ ヘリ が 主役 
C, アデ ルフ ォ ス タダ イデ の スク ロー ル ゲ ー み ム 
CT. ワン ・ パ ター ン に な ら な い ょ よう, ЙК 
の 動き に 気 を 付け な が ら 作 っ て いま す (88 
を 買っ た ら 一 度 ス クロ ー ル ・ ゲ ー ム を 作り 
た か っ た ん で す )。 だ ぶん , DISK バ バージョ 
PAOD e A 9. 

は っ きり 言っ て , 全然 役に立つ 娘 で は な 
pc そそ すね 一 と どう も スミ マセ ン ./ 

* 出 て きた だ しき に は , ど う を よみ し て 


いて し まう と ゲー ム ・ オ ー バ ー と いう や つ 
29 
bt, EPR “ 沖 く ん ゲー ム ” と 言 


っ て , ビル か ら 飛 び 降 りょう と する 沖 く ん 
の 妨害 を し て , 途中 の “ひか げ る ん の な き 
а” を くら わな いよ うに 1 階 の な し も と 
くん "の と ころ へ 連れ て 行く と いう も の で 


a. 
と な 考え で あみ る た らい くち で も あり る を 
РИА о ха き て で て ss S 2; фы 


っ ちの も の で す 。 プログ ラム は 自分 の 思っ 
た と お ち おり に 作っ て いけ ば いい ん で すか 6. 
そう は 言っ て も な ど と 思っ て る 人 も いる 
で し ょ う . そう いう 人 は 途中 で 飽き ら め て 
aA. どう せみ ん な 初心 者 な ん だ し , 
商売 で や っ て る わけ で も な いで し ょ うか ら 。 
めい っ ぱい 時 間 を か け て 納得 が いく まで 作 
っ て いけ ば いい ん で す . 絶対 に 妥協 は し な 
vt UI Sb. FAIL AT, 
を そこ に 妥協 が 入る と お し まい で すか ら . 5 
せら ず に ゆっ くり や っ て いけ ば , 誰 に で も 
いい も の が で きる は ず で す . みん な で いい 
プロ グラ ム を 送り まし ょ う 。 今 , 工学 社 を 
る あえ を な の は ほぼ 4 を だ たち も が ソ ュ ン ・ ホ ビ ど スネ 

КСЛ ЛӨ Б> с て は ko» 
Et: ШР まだ な 。 

CATY 武 田 で し た . 

P.S.1 現在 , 普通 の アモ ンプ ブラ を 使っ て 
る 人 は , ぜひ 一 度 BASE を 使っ て みて くだ 
さい. 感動 も ん で す . 

P.S.2 東京 電機 大 学 ア ー チ ェ リ ー 部 バン ザ 
—4. 東 足利 数 習 所 バン ザー イ . 志穂 子 ち 
а АА З ИЕ Ч 


実は The Farmer の 原形 と BASIC で 作っ 
て い だ ん で す . し か し BASIC の スピ ー ド の 
遅 さ の た め に キャ ラク タ の 数 や その 動き が 
制限 きれ て し まい , 楽し い ゲ ー ム と は 言い 
難い も の だ っ た だ た の で す .。 

し か し も し この と き 単 に , BASICO? n 
グラ ム を マシ ジン 語 に 直し て スピ ー ド ・ ア ッ 
プ を 図っ た だ け だ っ だ た な ら , 今 の The Far 
mer は 存在 し えな か っ だ と 思う の で す ( ち 
ょ っ と 大 げ る かな?). つ まり ある 1 つの 思 
いつ きか が 1 つの が 一 ム を まっ た く 変 た だ ょ 
BotblerLa 

BASIC で は だ だ フォ ー ク を 投げ つけ て フ 
ルー ツ を 取る と いっ だ いわ ゆる シュ ー テ ィ 
NC VM ычу o ба ECT bt XC 
は フォ ー ク を 投げ ば る の を や め , 地面 に 落ち 
だ フルー ツ を 拾う と いっ た 収穫 的 な ゲー ム 
に 変え だ こと が ゲー ム を まっ た く 暴 質 な , 


そし て 新鮮 な も の に し だ た の で し ょ 
の の ae を 


“死ぬ "と いっ た だ 動き は や 


SEA FIGHTER 
SPY PANIC PC-6000 
PIT IN PC-8000 
と むき ゃ っ と FM-7 


PC-6000 


EGG BOMB FM-7 
マイ ティ バス ター X 1 

さて らい つ G PC-6000 
エイ リア ン ・ プ ラ ネ ッ ト PC-8000 


CRAZY DRIVER PC-6000 
@FML —T+— FM-7 

PiO PiO PC-8000 
THE チ ャ ン バ ラ 


SNAKE & ALIEN PC-6000 


Mr.Y の 冒険 700 MZ-700 
スペ ー ス ・ マ ウス FM-7 


PC-6000 
FM-7/8 


特 Panzerspitze 

(OPERATION D 
COSMIC CRUISERII 
PANELOT 
3D STAR FIGHTER 
SUPER BALL 
スー パー ボー イ 
TACOS 


MZ-80B 
PASOPIA 
PC-6000 
PC-6000 
PC-8000 


バト ルミ ッ シ ョ ン 


今月 号 は 12 月 号 Z 
の 締め くく り と し て , 
か ら 今 月 号 ま で の すべ で て の ゲー ム 
("PiO な ゲー 
人 気 投票 を 行ない た いと 思い ます . 
投票 方 法 

投稿 は パソ ン ュ ン 部 門 ,。 ポケ ュ コン 部 門 の 2 
つ に 分 け て 行ない ます . 葉書 き に は 次 の こ 


2 こ と で 7?84 年 度 


F3 M 


MZ-1200-80K/C 


MZ-1200-80K.C, 700 


м2-2200/2000 


“84 年 度 PiO な ゲー ム ・ 人 気 投票 


a PiO1 号 


"に は 限り ませ ん ) を 対象 に 


š, EG て の De ノレ タダ イム ・ ゲ ー ム に お い 
て あみ だり まえ の ご と くさ る 秩 で いた “3 回 や 
られ る と ゲー ム オ ー バ パー” も や め ま し た . 
太陽 を タイ マー に する こと を 思い つき , Ш 
や 両側 の 木 や 橋 な ど を 付け 加え て より 自然 
に 近づく よう な 雰囲気 作り を し まし た . 2 
し て さる ら に Farmer に ジャ ンプ "を 付け 加え る 
こと に よっ て Earmer の 動き に か な り 変 化 を 
も だ せる こと が で きる よう に な り ま し か た . 
この よう に し て ゲー ム を 作っ て いる 。 う も 
に 次 々 に 浮 ん だ アイ デア を を の 度 ご と に 付 
け 加 えて 出来 た の が この ゲー ム The Farm 
er な の で す . 
トー リー か ら ゲ ー ム が 出来 た の で は な 
6 ゲー ム を 作っ て いる うち に スト ー リ ー 
が 出来 上 っ て いっ だ と 言っ て よい で し ょ 
初め か ら 面 白い ゲー ム を 作ろ うと 意気 込ん 
で みて , 作れ る も の で は な いと 思う の で す . 
ある と き に ふと 浮 ん だ アデ アイデア, それ が ゲ 
ー ム を 面白 くす る 要素 に つなが る の で は な 


"84 年 度 PIO な ゲー ム 一 覧 表 


CRAZY UFO 
MAD BALL 


RUZARU X 


と ころ で どう し て こん な に スピ ー ド が 速 
い の か と 驚か れ た 方 も いる と 思う の で 少し 
だ け 説 明 し まし ょ う . BASIC の ROM 内 ル 
ー チ ン を 使っ た の で は 決し て これ ほど の え ス 
ビ ピード は 得 ら れ ま せん . そこ で まず ゲー ム 
に 必要 な 入出 力 関係 の ゲロ グラ ム を 実行 可 
能 な V-RAM に 送り , それ を 実行 する こと 
に よっ て きる ら に プロ グラ ム を サブ CPU 内 の 
ワー キン グ RAM (& HFF80—) に 転送 し 
ます 。 そし て ゲー ム 最 中 必要 に 応じ て ここ 
を ユー ル し て いる わけ で す 。 こう や れ ば こ 
れ で らい の スピ ー ド が 得 ら れる わけ で す . 
ゲー ム と いう の は むなしい か な 。 いつ か 
は 必ず 飽き られ る も の で す . し か し ょ り 5 長 
く 新鮮 で あり 続け そし て どこ か 芳 わ し い 
香り を 放っ つて いる よう な そん な ゲー ム を 目 


指し て いき だ いと 思い ます . 


作者 名 


千葉 東 の 爆弾 子 象 
工藤 基 


VIC-1001 
JR-100 


MZ-1200-80K/C 


INSECT WARS X 1 


博 田 どん た く 
加藤 工 明 
戦闘 た こ 
竹村 成 市 


ACCESS 


ビル ダ 
STR ミ ュー タン 
高畑 英樹 
丸山 義治 
米山 好人 


TAPPY 


The Farmer 


FIGHTERS 
PLANET TAIZER 


CHEESE WORLD 
BALLOON WORLD 


PC-8800 
PC-8000+PCG 
JR-200 


PC-6000 
PC-6000 
MZ-700 
MSX 


FP-1100 


Flower Garden Man The Gonbe | FM-7 


Sippo 


THEDUSTY WORLD 
TRAFFIC CONTROL 


GENOSS 


Toilet Adventure 
PUSH PULL 
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X1・dB-BASIC 
パソ コン ・ ギ ャ ル の レツ 


BASIC 


“DANOJ 


ッッ ク 


Begin 
The 


一 dB-GALS 


"ジリ ー ズ ④ 


COEN 
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E TOP POINT 8 
B TIME< 418 > 
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な ぜ か ラーメン”? 


まだ 雪 は 降っ て いま せん が , ずい ぶん 風 . 
が 冷た く な っ て きま し た . ラー メン が ひ た 


すら 恋し く な っ て し まう 季節 で すね . 北海 
道 の ラ テー メン は , と に か くく ボリ ュー ム が す 
ご い の で す . 私 た ち が 特 に 気に入っ て いる 
の は 。 バ ター コー ン の た っ ぷり 入っ た みそ 
ラー メン . 65, その お いし いこ と と いっ 
た ら …. 皆さん も 札幌 に 来 た よら , ぜひ 食べ 
て みて くだ きい . 私 た ち 絶 賛 (17) の 超 お 


ゲー ム に 欠か せな いも の と 言え ば , その 
場面 に ビッ タリ と マッ チ し た 音楽 (BGM) 
で すね . どん な に 質 の 良 じ キャ ラク タタ や 
楽し き あ ふれ る ゲー ム で も , 音楽 ひと つ で 
ゲー ム 全 体 の イメ ー ジ っ て 大 きく 変わ る も 
の で す . 

X 1 の 本 体 に は ,. この BGM を 簡単 に 流す 
こと の で きる PSG (ブロ グラ マグ ル ・ サ ツウ 
ンド ・ ジ ェ ネ レー タ ) 機能 が 内 蔵 る され て い 
ます . そこ で 今回 は , 簡単 に 音楽 を 流す こ 
と の で きる 命令 の PLAY 文 に つい て 勉強 し 
ちゃ お う / 

た と えば , まず , 今回 の DAN ウ パズル の 
リス ト (リス ト 3) に ちょ っ と 注目 . この リ 
スト 中 の 行 番号 10100 ~ 10220 まで が BGM 
を 流す 部 分 で す . これ が 楽譜 と 同じ よう な 

図 1 音程 に つい て 


em‏ کے 


CoD Б FPO GBT 


も の だ な ん て , 何だ か 不思議 で すね . けれ 
ども , 楽譜 も プロ グラ ム も ちゃ ん と し た だ ル 
ー ル の 上 に 作ら れ て いま す . まず は , その 
ルー ル を 覚え な く 《 く て は … 

Ф TEMPO で テン ボ ポ 

3 C, BGM を 流す に は PLAY 文 を 使う わ 
け で す が , その 前 に 曲 全 体 の テン ポ を と れ 
くら い に す る か > 決め る 必要 が あり ます . こ 
の テン ポ の 決め 方 し だ いで , 同じ 曲 が ま っ 
た く 違 う 曲 の よう に も な っ て し まう ん で す 
ЖЛ usa ONE ЭДЕ T СР AI 
め る か と いう と ,。 それ は TEMPO 文 で 行 な 
ゅ ます 。 

TEMPO n (30 ミ 7 ミ 7500 ) 

これ で , PLAY 文 に よっ て 演奏 る れる 曲 
の テン ポ が 指定 され ます . ここ で 指定 する 
数 値 の z は , 1 分 間 に 4 分 音 譜 が 何 個 入 る 
ヵ か を 示し て お り , この 数 値 を 変え れ ば 曲 を 
Ku coq, メデ チン ボル 
た り と , 速 さき は 思い の まま と いう わけ で す . 
で も , 先 に も いい まし だ けど TEMPO 30 の 
Hi ze TEMPO 7500 に し て し まう と , 本当に 
まる で 別 の 曲 に な っ て し まう か も ね . 

@ 高 鳴 れ PLAY 文 

曲 全 体 の テン ポ の 指定 方 法 が わか っ て も 
с た と だ で の が うに Me た ЫШ pA Y Se: そい ・ 
て の 説明 で す よ . 

この PLAY 廊 で は 文字 式 の 中 に 音程 。 音 
符 , オク ター プ , 音量 な ど を 記号 や 数 値 で 
指定 する こと に よ ょ よって, 実際 に 流す BGM の 
長き る や 音量 な ど を 決め ます . 

PLAY “音符 を 表わす 文字 配列 " 

ST, 実際 に 文字 式 の 中 で 指定 する 記号 
や 数 値 (音程 や 音 の 長き を 表わす も の ) に 
つい て で す が 。 まず は 音程 か ら … 

音程 は 1 文字 の アル ファ ベッ ト t, +? 
ー 記 号 (オク ター ブ を 変え る 場合 ) で 指定 
し ます (841). 「 ど うし て , FRACS 
いん あん ЕО АБИ, IG 
は 音楽 の 方 の きま りな の で , あし か ら ず . 
そし て 半音 上 が る と き は , 井 と の よう に アデ 


[2 音符 に つい て 


3 
(+) ($) ($) G) (OD 0) (4) (2) (3) (4) 
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ルフ ァ ベ ッ ト の 前 に 井 (シャ ー グ ) を 付け 
iy. ド 壮 三 レ b と いう の は , も ちろ ん 皆 
さん 知っ て ます よね . え ぇ っ? 知ら な い !? を 
うい う 人 は , ビ ピアノ か オル ガン の 鍵盤 を 見 
TALL AA 

次 は 音 の 長き に つい て で す が 。 これ は 4 
分 音符 (J) を 整数 の 5 に 対応 きせ て いま 
4. まだ, 他 の 音符 は 4 分 音符 を 1 と 考え ぇ 
C, その 相対 的 な 値 に し ます ( 図 2). そ し 
C, この 数 値 を 指定 する こと に より 音 の 長 
きる を 決め ます . 

論 より 証拠 . では, 実際 に PLAY 文 の す 
ンプ ルプ ログ ラム を 実行 きせ で て み ま じ し じょう 。 
リス ト 1 を 入力 し た ら RUN る せ て みて 〈《 だ 
Qt. 

носивоста 
で 1 分 間 に 4 分 音符 を 144 個 演奏 する よう 
Т を そして, Ж02017 
は 和書 業 を 最大 。(Y159) に も で, オク ズー 


デ グ を 4 に 設定 し 。 ド レミ フ ア ッ タクシ ま で を 
演奏 し た あと , 1 番 最 後 の ド を 1 オク ター 


プ ゲド げ て 演奏 し てい ます 、 
く 鳴 り ま し だ か ? 


ULT; 


ハジ メ マ シテ クノ ク と いい だ いと ころ で す が , 
某 |!/ 〇 誌 を 抽 文 で 活 し だ たこ と の ある 私 で す . 
皆様 お な じみ の フラ ッッ ピー は, 飼 な お も の 

“АЖ TT. 感謝 感謝 / 認定 証 キ ヤン 
ベ ペー ン の 反応 も 上 々 . お ハガキ 殺到 で , 5 
れ し い 悲鳴 で す (ダレ ガ が 宛名 書き 手 伝 つ て 
2). 遅く な つて も 必ず 送っ て ます か が ら , 
も 少し お マチ フ ダ サイ ネ . 

と だ ちろ で な まだ に キー ウー ド ビ ビ つい て で 
の いろ いろ な お 情 報 が 池 沙 し て お り ま す が , 
デー ビー ソフ ト は ユー ザー の 皆様 を 信じ て 
お あり ます . 頑張 つて くれ だ 人 の だ め に , = 
さや か な お 祝い と 感謝 を こめ て , プレ ゼン 
トレ し て いま す ⑦. だ か ら , 認定 証 の 申し 込 
み は ひ と つ だ け に し て ね . 

フラ ッ ピ ピー ニン アー の: 
Chie ・F 


まだ , 単音 だ け 鳴 らし て いて も つま ら な 
UNITE いう も あい る. で (し ょ よう が 。 -OPLA 
Y 文 で は 和音 の 演奏 も で きち ゃ いま す . [s] 
時 に 3 つの 単音 を 鳴ら す , 3 重 和 音 が 最大 
で す が …. 1 

だ あえ ば あき の サン シン ピ ルン ログ ラ ャ 
(リス ト 1) を 和音 に する に は 。 いっ だ い 
どう する の か 7? 答え は リス ト 2 を 見 て くだ 
eU. 

この プロ グラ ム で は , 行 番号 の 20 行 に あ 
る 廊 字 式 の 中 に : (コロ ン ) が 2 つ 入 っ て 
いま すね . これ が 音 を つなげ る 役目 を し て 
Uo EY. で すか ら , 和音 と いっ て も 難し く 
考え る こと は な い の で す 。 コロ ン を 使っ て 


— sn ru r A... RAA В е Л Т i 


109 TEMPD 144 


単音 を 重ね れ ば いい だ け の こと な ん が だか: G., 


グ 入 と 手 を 上 げた 女 学 生 の キャ ラク タダ を た 
え ぇ え ず 切り 替え て いる と ,。 あたかも 2 ダー ス 
の 女 学 生 が バン ザイ を し て いる か の よう 
に 見 えま す 。 これ は ,。 アニ メ で よく 使わ れ 
る 方 法 で す . まぁ, 「 キ ャ ラク タタ 切り 替え の 
術 」 と で も 呼ん で くだ さい. 

これ は , スピ ー ド の 遅い BASIC な ら で 


RAPIST Сл op tS at EC 
くる さん の キャ ラク タ に 動き を も だ た せる こと 
が で きま す . 私 た ちの dB-BASIC は か な b 
速い けれど, Cb, TEX Cas € と 便利 だ と 
思い ます . 


р у ЖИ ы ы жари S AT НЕҢ 


20 FLAY "VISOAGCDEFGAEC-C" 


EGRE NIE ТД УУ ZIL 2 s 


10 TEMFO 144 


V: ボ リュ ー ム (0 一 15 に て 指定 ) 
O: オ クタ ー プ ( 1 ~ 8 に て 指定 ) 
十 :1 オ クタ ー プ 上 の 音程 に し ます 
ー:1 オ クタ ー プ 下 の 音程 に し ます 


20 FLAY "Vi13O4CDEFGAB*C:V12Q03SEFGAB-CDE:V 


120 32GBB-«*CDEGG" 


СИ. |J I- З DAN バ ズル 基本 プロ グラ ム NN 


10000 ..... ALL FATTERN CLEAR DEMO .... 


10010 CGEN1: COLOR: CLS4: GOSUR 16000: TEMFO 
600: SOUND13,1:FLAY"VISRO" 

10020 FOR ХХ=@ TO 36 STEF 4 

10050 LOCATE XX,2:PRINTJOOS$:LOCATE XX,16 
:FRINT 200% 

10040 NEXT XX 

1@@5@ LOCATE 0,9:PFRINT JOOS:LOCATE 4,9:F 
RINT JOGS$:LOCATE 22,9:PRINT JOO$:LOCATE 
36,9:FPRINT 400% 

1000 CGENO: COLOR 2:LOCATE 8,9:PRINT"«" 
10070 COLORS: LOCATE 9,9:FRINT"3712/1Y ター 
"aU P-2-z7'!  YLUCATE 0,105 PRINT"29* —:7 NF 
“ЫЛ 707. 40mm" 

10080 LOCATE 8,11:FRINT"2" 253? 757579... 
:LOCATE 8,12: PRINT"VL T" Л. 37227532727" -2/ 


243237," 
1@1@@ FL1$-"V16C6—-49-«-C6-49-C6D8D8D7" 
10110 FL2$-"V16C8C8C8-B8449" 

10120 FL2$-"V16—-HA6G9*^A6G9*^56-D8D8D7" 
101320 FL4$-"V16D8DS8DS8ES8C?" 

10140 FPLS5$-"V16D8-G6A6*C8-ES8F9V15RB8V16F9 


10150 PFLAY"OO"-«FL1$-":0S5"-PL1$:WAITA 
10160 PLAY"O06"+PL2$+"šs05"+PL2$:WAIT4 
10170 FLAY"OO6"-«FL3$-":O0S"«-PL3$:WAITA 
10180 FhkAY"O6"*PL4$-":OS"*FL4$:WAITA 
10190 FLAY"O6"-«*FL1$-*":O05"*FL1$:WAITA 
10200 FLAY"O6"*PL2$-":0S"*FL2$:WAITA4 
10210 FLAY"O6"-«FL3$-":O0S"«*FL3$:WAITA 
10220 FLAY"O6"*PLS$-":OS"*PLS$:WAITA 
10230 COLOR 5,,1:LOCATE 8,14:FRINT"HIT 5 
FACE KEY"; s: COLOR 

10240 KK-STRIG(Q):IF ドド = ニー1 THEN RETURN 
10250 БОБОЕВ 11000:WAITA 

10260 GOSUR 12000: ИАІТ4: GOTO10240 

11000 '..... JOGAKUSEI (1) ..... 

11010 DEFCHR$(&HDQ0)-HEXCHR$ ("00000101010 
1010100000000000000000000000000000000" ) 
11020 DEFCHR$(XHD1)-HEXCHR$(("210001C1E37 
73E1COO0COCOO1E2773E1COO0COCOO1E3773E1C") 
11030 DEFCHR$(&HE1)-HEXCHR$("8300FFFFFFE 
BD6CE7C10281183C7EEFE7C1028118383C6CE") 
11040 ПЕРҒСНК®Ф (НРО) =НЕХСНК® С‹"@@@@а@@@@@@8 
QB の の の 22 の の の の の の の の の の 2 の の の の の 2 の の の の の の の の の の の " ) 
11050 ПЕҒСНК®Ф (НЕ 1 ) =HEXCHR ま ("の の の 6BED 
CF87000060S008EDCF870000e0S008EDCF870") 
11060 RETURN 

12000 '..... JOGAKUSEI (2) ..... 

12010 DEFCHR$(U&HDO)-HEXCHR$("20000151211 
9190D6068:000::018180C620683000:018180C") 
12020 DEFCHR$(KHD1)-HEXCHR$ ("00060705010 
の の 2CG6 ロ 6 その 1 の の の の の の の 6 の 6 さ の 1 の の の の の の " ) 
12030 DEFCHR$(&kHE1)-HEXCHR$("8300FFFFFFEB 
ADeéCE7C10281183C6EEFE7C1028118:382C6CE") 


12040 DEFCHR$(&HFQ)-HEXCHR$ ("0000001818 

QzQoQac2ciaoQi8:0z0600C2Ci80018302060") 

12050 DEFCHR*(&HF 1 ) =HEXCHR ま ("6 の COC の OB の の の の 

の 6 の C の COB の の の の の の の の 6 の CC の B の の の の の の の の の " ) 

12060 RETURN 

13000 '..... CHR МАКЕ ..... 

13010 DC$(1)-"hx"*CS$*"iy":DC$(2)5"fv"4C 

S$-"gw":DC$(G)-"^p"4CS8$*"aq":DC$(4)-"br" 

*CS8$4"cs":DC$(S5)-"dt"«CS$*"eu" 

13020 GC$(3)2"n""4CS8$-"OKR":GC$(2)2"11!"4C 

8$-"m2":GC$(1)-"jz"4CS$4"k(" 

13020 JO$=" m" +CS$+" m H" +CS$ +" gH" -CS5$- "lS 
13040 РАФ=" 217" +СНКФ GHIF,&H1D,&H1D,£&H1 

D,&H1D)-*"l t57"«4CHR$ (&H1F,&H1D,&H1D,&H1D, 

&H1D)+" rr3" 

13050 JOO$="3 Ф" +СНКФ (HIF , HID, HID, Ні 

D) +" AO£" +СНКФ CkH1F , $H1D,&H1D,&H1D)-«*" 2@" + 

CHR$ (ЕНІ, SH1D , HID) + "Еф" +CHR$ (HIF , 4H1 

D,&H1D,&HID)*" #"+CS$+" 14" 

13060 RETURN 

14000 '..... GAME OVER 

14010 CGEN1 : COLOR: CLS4: GOSUE 16000: TEMFO 

600: SOUND13,1:FPLAY"VISRO" 

14@2@ LOCATE 11,1:FRINT" E e nk 

-":LOCATE 13,2:PRINT". Сш  . .":LOCATE 
13,3: PRINT". exti 

14030 LOCATE 12,4:PRINT"- _ 

ATE 1 さ 。5sPRINT"_ _ = " 

14040 RESTORE 1l14100:PLAY"V1602C6" 

14050 FOR ZZ-1 TO 43 

14060 READX,Y:LOCATE X,Y:PRINT DC$(1):FL 

AY"V1602C6" 

14070 NEXT ZZ:IF РО>ТР THEN ТР=РО 

14080 CSIZE2:CGENO:COLORÓ6,,1:LOCATE 8,21 
:РКІМТ#О, "НІТ SFACE KEY": COLOR 

14090 KK-STRIG(Q):IF KK--1 THEN 30 ELSE 
14090 

14100 DATA 3,7,3,9,3, 

Яд ТАЛ, ЖКА БИШЕ: 
,11,15 

14110 DATA 15,7,15,9,15,11,15,12,15,15,1 

7,9;,19, 11,21, 12,28,7,2319,25,11,23,15,21 
‚15 : 

14120 DATA 27,7,27,9,27,11,27,13,27,15,2 

9,7,31,7,53,7,35,9,35,11,35,13,35,15,31, 


15,29,15 


= ке KOC 


1 
9 


W. 
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日 に 日 に 寒く な っ て いく 今日 この 頃 , 皆 
さん いか が お 過ごし か な ?2 こち ら , ラジ 
オ PiO の テレ フォ ン ・ リ クエ スト じゃ な く 
T, れっきとした マイ コン 人 生 ・ 相 談 室 . 
タイ トル だ け じ ゃ あ , 何 か 暗 そう だ けど 
実際 , 楽し い 質問 が どん どん 来 て る ん だ . 
さあ , 今月 も 始め て みよ うか . 


真面目 な 質問 の コー ナー 


な か な か いい 質問 で すね . 一 般 に 出回っ 
て いる コン ピュ ー タ (大 型 。 パソ コン も 含 
む ) で は , メス メモリ の 節約 お よび 演算 処理 の 
高速 化 を 図る た め に , 2 進 法 (16 進 法 も 含む 
も ます) 意 純 用 じ て い ます . 

る て 。 ここ で 2 進 法 の 表記 に つい て 説明 
し まし ょ う (10 進 数 と の 区 別 を つけ る だ め , 
2 進数 に は 数 字 の 最後 に "(2)" を 付け ます ). 

まず 2 進数 の 位 取 り は , 整数 の 場合 右 か 
ら 左 へ 行く に 従っ て 1(20)。 2(2 り , 4(22), 
802), … E, 
БРАТОТ). は 邊 と いう さと に な り ま す 
ね . 小数 の 場合 は , 小数 点 の 右 の 数 字 か ら 
右 に 行く に 従っ て 0.5(2-!== 二 ), 0:25)2 2= 
4), 0.125(273=¢4), … と 位 取 りさ る れ て いき 
ます . ですから, 10.101,( 2 ) は 2.625 と いう こ 


2z の 表現 で 桁 を 示し ます . た 


に ほな り ます 

10 進 法 を 2 進数 に 変換 する 方 法 は , 整数 
部 の 場合 は 2 で 割っ た 余り を 小さ い 桁 (2②" の 
位 ) か ら 左 に 並べ で て いけ ば いい の で す が ( こ 
の 方 法 は , た い が い の 読者 の 皆さん は 知っ 
て いる と 思い ます ), 小数 部 の 場合 は まで 割 
っ て (2 を 掛け て ) その 答 の 整数 部 を 小数 
点 右側 の 桁 を 右 へ どん どん 並べ て いき ます . 
残っ た 小数 部 は , きら に まで 割る 作業 を 続 
け て いき , 小数 部 が 完全 に 0.0 に な る まで 繰 
り 返 し ます ( 図 1). 

それ で は 練習 と し て , 次 の 10 進 数 を 2 Ж 
数 に 直し て み ま し ょ う 
①123 ②15.375 (0.28125 
④22.5625 (51.355 (60.2 | 

どす か (0141111011(2), ② は 11 
11.011(2›, ③ は 0.01001( ぅ ), ④ は 10110 1 


001(2», ⑤ は 1.0101101…(。 ぅ ), 実は 割り 切れ 
voc. も 同様 で す . 


滋賀 県 HIRO 
LIAC, 一 般 の パー ソナ ル ・ コ ユ コンピュ 
ー タ (2 進 演算 方 式 を 採用 し て いる も の ) 


` で 演算 を 行なう 場合 , 


入力 され た 10 進数 を 2 進数 に 変換 し , а 
ンピュータ 内 の メモ リ に 記憶 する . 
@ 記 人 憶 さ れ た 2 進数 同士 で 演算 を 行なう . 
その 演算 結果 を 10 進 数 に 直し , 表示 する . 
と いう 順序 で 処理 が な る れ ま す . 
ここ で 問題 し な る の は , の と き , 割り 
切れ な い 2 進 数 し な っ て し まっ か た 場合 で す . 
コン ピュ ー タ の メモ リ に 記憶 で びき る 数 値 
の 桁 に は 限り が ある の で , その 記憶 で きる 
桁 を オー バー し た 場合 , 記憶 すべ き 2 進数 
値 の 小さ い 桁 の 方 か ら 切 9 り 捨て て いき ます . 
これ むれ によって 誤差 が 生じ て し まい ます 。 
そし て 生じ た 誤差 の まま w の 処理 が 行 な 
bn, ゆ の 処理 に 行き 着き ます . この 間 に 
も 計算機 の 性 質 上 , 


1 10 進 小数 を 2 進 小数 に 直す 


0.875(10) を 2 進数 に する に は 
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0.1875(10) を 2 進数 に する に は 


誤差 の 上 に 誤差 を 生じ , 


どん どん 誤差 を 大 きく し て し まい ます ( こ 
れ は あく ま て 計算 機 の 性 質 で あり , バグ で 
は な い . 要する に 演算 スピ ー ド を 上 げ る た 
め に 精度 を 犠牲 に し て いる ). こ の た だ ため, fF 
算 結果 が 真 の 値 と 違っ て くる の で す . 

それ ぞ れ の 処理 の アル ゴリ ズム は 各 マ シ 
ン に よっ て 異な り ま す (計算 結果 が 各 マ シ 


ン 同 士 で 異な っ て いる の は , こう いう 理由 
か б). 
きら に コン ピュ ー タ の 性質 で , 極端 に 桁 


の 違う 数 同士 の 演算 を 行なう と き に も 注意 
し な けれ ば な り ま せん (特に 加減 算 に お い 
QO RELE, 

LET C=A+B 

と いう 命令 が あっ た 場合 , 変数 C に は A 
NEC заснова Ao A> 
B (A? Bš b pag I K š uo Op) の 場合 , 
C に 代入 きれ る 値 が A の 値 ば だ け と いう こと に 
な つて し まう こと も 少な く あ り ま せん CR 
際 に は その ユ コンピュー タ の 有効 桁 数 分 の 概 
数 の 値 に な る ). 

上 記 の よう な 場合 . 計算 する と き は 絶対 
値 の 小さ い 数 か ら 加 減 を 行 が うこ と に よっ 
C, ある 程度 解決 で きま す . 一 部 の パー ソ 
ナル ・ コ ンピュータ で は , 倍 精 度 や 倍 倍 精 
度 を 持っ だ も の も あり ます が , これ を や だ た だ 
ら め っ た だ ら 使 う の も 考え も の で す . と いう 
Dik, 一 般 の BASIC に 塔 載 さ れ て いる 組み 
込み 関数 が 単 精度 の た め (Cy BASIC! F 
-BASIC V4.0 で は 倍 精 度 が 可 ), 単 精度 分 
の 有効 桁 数 まで し か 正確 な 値 が 得 ら れ ま せ 
fe; 

な ち お 最後 に な り ま し だ が 。 電卓 , ポケ コ 
ン , FP-1100, MSX は 10 進 演算 を 行なっ て 
ぃ いる の で , 質問 の よう な 計算 で らい で し た 


ら 正 確 な 値 を 出す こと が で きま す . し か し , 
で きる だ け 正 確 な 計算 を 行ない だ い の な ら , 
倍 倍 精度 や 倍 精 度 関数 を 持つ FP-1100 あ た 
り sob д, $22 


し か し , まあ か 一般に は 


TNCS PRINT | 
Е Deko) e $ 
E HENX Ae: zx: Beep 
4THENX 


兵庫 県 吉岡 裕 ニ 広島 市 石野 優 
単 精度 で 充分 間 に 合 F1 5*8 211. 

似 た よう な 質問 を も う 一 つ . 先月 に 紹介 
し た ペン ネー ム : けん けん ば の も うぅ 1 つの 


質問 で す . 


ユン ピュ ー タ が 関数 を 計算 する 場合 , 人 
間 の 頭脳 で 行なう 計算 の 方 法 と は まっ だく 
異な っ て いま す 。 で は どう する が か? 

sin x cos % * ァ な どの 関数 は 近似 値 の 
公式 に よっ て 求め て いま す . 質問 の / (SQ 


- 


BS 
zd 


R) を 求め る 場合 、 コ ンピュータ に よっ て 
いろ いろ な アル ゴリ ズム が 使わ れ ま す . 

その 一 例 を BASIC で シミ ュ レ ー ト し て み 
まま しょう, アル ゴリ サ ズ ム は ニニ ュー ドン シン 法 に 
よる 近似 公式 と いう も の を 使い ます (リス 
F 1 ).30 行 か ら 60 行 に か け て の EOR 一 NE 
XT の ルー は 5 回 で らい で 8 桁 で らい 正確 
な 値 が 出 ます . 

さて, ポケ ュ コン で 計算 きれ た だ 値 と 出力 さき 
れ た だ 値 を 比較 し て みて (要する に SQR( 2 ) 
と 1.414213562 を 比較 し た だ た) 等 し く な いと 出 
Bh ned EO UT И S よこ の Л? 

質問 の 内 容 か ら 推 測 す る と , あな た は P 
C-1251 系 まだ は PC-1500 系 の ポケ ュ ン で を 
の 数 値 の 比較 を 行 


出力 結果 を 比較 し て み ま し ょ う . どう し て 
TEOMA 9957 

id, それ ぞ れ の ポケ ュ ン の 仕様 書 ( マ 
ニュ アル の 内 に 書い て ある ) の 有効 桁 数 の 
と ころ を 見 て くだ さい . 有効 桁 数 し は , 2 
こま で の 桁 ま で は 確実 に 合っ て いる 桁 数 と 
で を も 言っ て お きま し ょ う 。 ボケ ュ ョ ン で 表示 
る れる 数 値 は , 常に 10 桁 (これ は シャ ー ジ " 
の PC シリ ー ズ すべ で て に お いて の 有効 桁 数 ) 
以下 で すね . 変数 に 代入 きれ た 数 も 10 桁 以 
下 で す が , 実際 に は 11 桁 まで 計算 し て いる よ 
SCF. LDL, あく まで 有効 桁 数 は 10 桁 
で す . 変数 代入 や 画面 表示 の と き , その 数 


値 の 11 桁 め を 四捨五入 し , 10 桁 に 丸 ゆ ます . 


U X F 2 の 計算 で は SQR(2 ) の 値 が 丸め ゆら 
れ な いま ま 計 算 を 行なう の で , 質問 の よう 


な 結果 と な っ だ も の だ と 思わ れ ま す . 


l———— 
当 通 の 質問 の コー ナー 
この ユー ナー へ の 質問 は 福井 の 村上 君 か 

6 2 題 . 


常に リモ セ モット され ます . 
スタ に は 7FH よ り 大 き な デ ー 
れ ま せん . 


する に ムレ ジ 
タタ は ロー ド る 


人 羽 だ よう な 質問 る ペン ポー ム : Jong ago 
の 友人 の tomorrow か が から も 来 ま し た . 

それ は , ディ スク の 信頼 性 の 悪 き と 容量 

の 少な きる に 原因 が あり ます . この 2 つの こ 
と は 両方 と も に 反対 じ や な い の か と 疑う 人 
も いる か と 思い ます が 。 ディ スク を 使い だ 
す と , 意外 と そん な ふう に 感じ る も の で す . 

ディ スク は テー ジ よ り 読 み 出 し , 書き 込 
み 時 に お いて エラ ー の 発生 率 が 大 変 少 な い 
こと が 特徴 で すす. この こと よ ょ より, 信頼 性 が 
闘い と 言え を る で し まう 。 もしか も 1474 
スケ ッ ト に は , だ くさ ん の ファ イル が 複雑 
に 記録 きれ て いる だ め , 一 度 事 故 が 起こ る 


と 一 度 に 全部 の ファ イル を 失 な っ て し まう 


な っ だ も の と 思わ れ ま す . 
リス ト 2 と リス ト 3 の プロ グラ ム を 実行 し , 


北海 道 テキ ナシ 4 
可能 性 が あり ます . まだ , ハー ド 的 に 壊 き 
な いま で も 。, 人 


東京 都 よこ ERETTE 


と ん で ちな い デ ー タ を ディ スネ ケッ ト の = ご 部 
に 書き 込ん で ン フ ト 的 に 破壊 し て し まう こ 
не E ОШ 
い 方 を 誤っ て 壊す 場合 な ど , つね に ディ 
ク は 破壊 の 危機 に さら され て いま す . 
RIT. も し も の も き の だ に ビー を 
取る 必要 が 出 て くる わけ で す . この と き 
ィ ス ク ・ ド ライ プ ブ が IAD, 一 方 の 
ディ スグ か ら あ うう 一 ガ へ と カタ カタ と コピ ビュ vw 
C きる な の で が ) CND TA CEEA 
枚 の ディ ケッ ト を コピ ビ ピー する の に 何 回 も 抜 
き 差 し を し な けれ ば な り ま せん . 
容量 の 少な る さと いう 点 に つい て で す が , 
これ は 通常 趣味 で 使っ て いる 分 に は それ は ほ 
ど 感 じ な いか も し れ ま せん 。 し か し ,。 ビジ 
ネス と し て 使う 場合 . 扱う デー タ 量 も 膨大 


> 


に な り , 1 枚 の ディ イス ケッ ト に 収まら な い 
場合 ね あり ます . こん な 場合 は シス テム や 
固定 され だ た データ の 入っ だ デイ スケ ッ ト を 


基本 ドラ イブ に 入れ て お き , 常に 読み 書き 
- す る ディ スケ ッ ト を も う 一 方 に 入れ る と い 
JUL zi. 

さき 0 よう な さこ な かしこ デスタ: バド ラッ 
プ は 最低 で も 2 吾 付 いて いた 方 が 便利 で し 


—————— ÀO-m NN 
お 待た せ / 普通 じゃ な い 質 問 
今月 は , ちょ っ と 肩 の 凝る 話 が 多かっ 

だ の て 。 この コー ナー を 採 張 し て お 送 9 し 

ます (先月 や ら な か っ だ こと だ し …)。 
まず 最初 の 質問 は ペン ネー ム : ヒメ マル 

カツ オォ オプ ブシ ムシ から 


展示 する デモ 用 の マシ ン は , あく まで デ 
モ 用 で あっ て , 販売 する た め の 出 荷 は る され ま 
ФА. あっ ちこ っ ちの ショ ウ や 展示 会 , 説 
明 会 な どの だ め に , デモ 機 と し て 一 生 を 過 
ci dT. 場合 に よっ て は 。 уо 

カー に 貨 し 出す こと も ある よう て すね 。 3 
b, 少な く ぐ と も バイ ヤー (買い 手 ) の も と 
へ 行く сЕ ОТ ぞう か ご 安心 を 
次 の 質問 は ペン ネー ム : ベト ベト ヌ ラ ヌ 
ラノ ビ チ ブ デミ 大間 (あな な だ は ミス タネ か 
スラ イム な の で すか ?) か と 


p まさ か ヵ : / 
PiOPiO に 送ら れ だ ハガキ は 1 枚 1 枚 。 必 
ず 目 を 通し て いる と どの こと で す 。 規定 ば 特 


Ее Д Ы 


に な いそ う で す が 。 
DE EE 

3 つ 目 の 質問 は ペン ネー ム : 必殺 投稿 人 
(誰が 何と 言 お うと 私 は 高橋 孝之 だ ./ だ っ 
て あら 


内 容 が あれ ば 大 丈夫 と 


»- れ も 編集 部 の 人 に 聞い た の で す が 。 TÉ 


H, ⑬⑱⑮ ど ちら と も 廃棄 する よう な こと は , し 
な いと いう こと で す . ちゃ ん と 保存 し て あ 
る そう で す . まし て 再 利用 な ん か …(「 ち り 
紙 交換 に 出し て トイ レッ ト ・ ペ ー パ ー に な 
ん か いい な 一 」 と 言っ た の は 編集 部 の A 氏 ). 


答え られ な い 質問 だ けど ご 


今月 は 。 ペン ネー ム : Katton か ら の 質問 


Teh ttt E 


PX Db, 具体 的 な 原稿 料 は , 教え て 
も ら え ませ ん で し だ . だ だ し , 原稿 料 は ペ 
ー ジ 単位 で 割り 当て られ て いる の は 確か な 
2C 
今月 の マイ ユン 人 生 ・ 相 談 室 。 いか が が だ 
っ だ か な ? この 相談 室 で は , ЖААР б 
の 楽し い 質問 を どん どん 募集 し て る よ . v 
ン を 使っ て いる 最 中 に ふと 思っ た 素朴 
な 疑問 . ち ょ っ と し た 使い 方 が わか ら な く 《 
な っ だ た など, どん どん と 質問 を 送っ て ちょ 
TAS 
チッ ク ・ ピ オ が お 送り し まし た . 


totos cb 


991 HITA 7H 
38:LET x=Y 
&8:50Tü 34 
TB:PRIHT Y 

di: EHD 


リス ト 2 
19:PEINT 1.414212562- 
SR (2) 
3: EHD 


リス ト 3 


19iLET A= SDF 7; 


id 
280:PRIHT 1.414215562-А 
iH:EHD 
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プログラム を 実行 する と "START, EN 
D,P OR D” と 聞い て くる の で , $5000 か ら 


= 


nT I G 
ل“ ذم ت‎ 4 7 L ай + nn TI Cy i y Каш 


C mc DO T iA ID h iA tn 
r em Tı O “J O a «c T 


リス ト 1 


$ 5 ЕРЕ TAR ISON рр 
5000, 5FFF, D と いう よう に 入力 し ます . 
D の 代わ り に P と 入力 する と プリ ンタ に 出 
ул ЫЕ аб > 

ке, プログ ラム は 完全 リロ ケー タプ ブル 
で す が 。 一 度 実行 す る と プロ グラ ム 自 体 を 
書き 換え て いる の で 入力 し たら すでに セ 
ー プ し て お いて くだ さき さい.。 Jd, 現在 の ス 
ター ト ・ ア デア ド レス は $6000 で す . 


MZ-/00€390K / C FH 


先頭 アド レス か ら 実 行き せる と , 転送 先 
アド レス を 聞い て きま す . 転送 し だ たい 場合 
は アド レス を 16 進 4 桁 で , 転送 し た く な い 
場合 は [CR | キー の み を 入力 し て くだ さい . 
転送 で き な い アド レス を 入力 する と , メッ 
セー ジ を 出し て 再 入力 を 要求 し て きま す . 

チェ ッ ク ・ サ ム を 見 る に は 。 S(tart) アド 
MZ-700&80K/C 用 チェ ッ ク ・ サ ム プロ グ 


hà 4 sun s ل“‎ 
Cn CA O On 


oo DD Coh C O TN O 
„т орла тс 


" hj 


: SLIM 
: 56 
ТЕЗ 


プロ ダラ 


+F Gum Sum: éD 18 K? 69 
ОЗ :9F 
02 :4F 
ОО F7 
26 :BB 


Ada о, SD ES 
6200 34 30 8D O1 
6210 Аё 8р O1 25 
у F: 6220 O1 17 Зо 8D 
02 : 3E 6230 оё 30 8D OO 
O1 : 6240 FA A6 80 4D 
Е 6250 C4 OF C1 оа 
6260 44 44 81 OA 
6270 34 39 81 40 
6280 48 48 C1 40 


vA, E(nd) アデ ド レス を 指示 どおり に 入力 
すれ ば OK で す . た だ だし,D000H 以 上 は 受け 
付け ほ ま あせ ん 。 プ リン 婦 に つい て も Y/N で こ 
Е ENC BCE УУ AARTE Rh 
な わな い 場 合 に は , 128 バ イト 出力 する ご 
と に 一 時 停止 する の で 何 か が か キー を 押し て く < 
だ る さい. 

アド レス 入力 時 に [| SHIFT + | BREAK | で 
モ ユ タ へ 戻り ます 。 
プロ グラ ム ・ エ リア : 7000Н- 724ЕН,5Т 
ART 7000H (転送 後 は を の 先頭 ) 
転送 不能 エリ ア : 0000H —11FFH, CD81H 
—FFFFH, 転送 前 と 転送 後 が 重なる 場合 
注 1 : 48K フ ル ん 実装 る され て いな い 場 合 、 メ 
モリ の 入っ て いな い ア デア ド レス を 指定 し な い 
で くだ る きい. 閉 走 する 恐れ が あり ます . 
注 2 : MZ-700 で は ROM モ ニタ 上 で 動作 し 


ます 。 
ラム リス 
7198 ЕЗ 
7198 86 
1Hg сі 
"iR8 вө 
1Bg 1B 
7168 4B 
1Cg a8 
71C8 ӨЗ 
71ре ав 
7108 ES 
1Eg 39 
1E8 FS 
1Fg F1 
1F8 CD 


људ Б 


D8 C4 31 3B 


+4 +5 +& +7 
2E AD: FF ЕВ 
39S BD 34: SE 
01 13 АЕ 8D 
FE AD FF FE 
27 O4 Өр CE 
24 04 CA 30 
24 O4 BA ЖО 
24 Öb 48 48 


16 aa 55 ES 
aep 20 FB FF 
23 190 Fü Fi 
FD ?E 3? B? 
18 F9 FF 6B 
2D 41 44 52 
e? ea 11 R3 
19 1H EB FE 
18 04 DS 01 
Е1 £9 DD F9 
C? FF ЇР 00 
er er ar FF 
CD DR ӨЗ FF 
ea 28 15 F1 


2D 34 11 EE 


+2 t3 +4 +5 


CS RF 
45 @й 
FF 6E 
Cü CD 
aa FF 
2E 24 
11 CD 
1B 28 
ea 3a 
Ei 42 
zü aa 


00 ES F5 7E 2 


FF 15 gg 18 
FF C3 FE FF 
a8 FF CC FF 
12 00 Fi FD 
F5 FF 8D FE 
R8 FE Fi D3 
FE 07 FF ЭЕ 
F1 C9 D9 E1 
23 ЕЗ 19 ES 


BF 6A 1F Cé 


ÓD-BE5cIE^0»5 


EF +ñ FB + 
Aó BD 01 2р 
14 Е7 BD Q1 
OB 8E OO O1 
3g BF 34 3F 
FZ 35 BF 34 
04 CO 99 CA 
04 80 O9 BR 
48 20 оё BB 


8% 91 


c2 0D CA bb “J Tl Qs 00 TD o C3 hà ® = 
Tn СА rm A ¿cn hà к ¿n -.J C4 O TI 


00 ро О 
тышса. 


+D +Ë 4 


40 27 


15 А7 8D : 
AF 8D ©] 


40 35 


09 48 


AE 8D Ос 
39 1F 85 
40 44 


24 04 C4 OF 20 
OO A7 35 B9 34 
1F 23 OC А7 80 17 FF 6 SA 26 F1 
o2BO 84 35 BF 81 OD 27 ЕВ 81 OB 26 ES 86 08 17 FF 5 
62CO 86 20 17 FF 51 Bé O8 17 FF АС 30 1F 20 D2 34 3F : 
2DO Аё 80 A7 Ао SA 26 F9 35 BF Z4 3D Có 10 AF АВ 8È 
62Е0 SA 26 FB 35 BD 34 7D АЕ AB 84 30 89 OO 10 SA 2 
62FO0 F7 55 FD 34 SE 10 AE 8D OO 41 Сё. 50 17 FF CF j 


77 98 BD 2B EC 21 33 50 АВ O6 2E Ао 9C Ва 47 š 


o4 CB Q9 C4 
SF Сё 50 AE 


Or E7-8 
6290 OO AB AB 8D 8D OO $ 


6260.17 FF 4E 81 


Sum: 


add жө +i- +2 a FA +5 +A +7 B 
500 FE-S 35 DF SA SD: 81 761 25 
6 さ 10 35 BD 54 SF C6 04 АЕ 8D OO 
ら さ 20 9A 26 F7 35 BF 34 SF - B4 OD 
6330 ES 35 BF OO OO OO OO OO OO 
6340 OO OO OO OO OO OO OO 41 4 
6550-31 Z20.2H Z2. 20 2H'3X3 20-2B 
63560 20 28757 20 28 30 20 2B.39' 20 2B 41.20 2B 42 
6370 2B 43 20 44 20 2B 45 20 2B 46 20 53 75 6D OC 
6380 20 S3 54 52 54 2с 45 44 22 SO 20 4F 52 20 
6390 44 20 20 0.95 9S5 4D'20 54 さ D 86 00 BZ O2 O6 E 
Î 6 さ QO Eá 81 BD O4 35 BD 54 ЗЕ Có O4 F7 O2 O6 34 OZ2 
63BO BD Eé 84 55 O2 BD ЕВ 20 35 BF O2 78 OO OO OO OC 


+9 +А +8 +С 


+D +E +F Š 
O6 81 7а 22 02 80 : 


21 A6 84 8D E6 А7 ӨС 
IY ER EO S$ OR 17 
оо оо 05 FA OO бо OC 
64 20 20 2B 30 20 
э 20 2B 3920 2B 2 


8D O1 Fé B9 56 F3. 95 ОА FE 10 27 BE 58 DB 3 
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ーー トー トー トー トー トー トー トー トー トー トー トー トー トー トー トー トー ト 


+ 


+ 


ーー トー トー トー ビー トート ーー ト ーー トー トー トー トー ビー トー トー トー トー トート ーー トー トー トー トー トー トー ビー トー トー トー トー トー トー ビー トー トー トー ヒー ビー トー トー ト 


@TROP WAY 


(ボー ステ ッ ク ) \4,500 
X1/D( カ セッ ト 版 ) 


YS EF BICI SG E, ARR 
本 に も か か わら ず , 国王 の 厳し い 年 頁 の 取 
DU TAE Got tvn. $62 
国王 は , プー ル で 遊ぶ だ た め に 国 中 の 水 を 全 
部 流 み 上 げ て し まっ た . 


_ 旅 か ら も どっ た トロ ッ プ は , MEEKS 


に 苦し む 国 民 を 救う だ め 国 王 よ り 水 を と り 5 
も どす べく 。 ひと り 立 ち 向 か う 。 5 名 


ШЙ $° mound ifon eg 


ic ese Endo. 


ボー ステ ッ ク , スタ ダー クラ フト , テク ノ ソ フト é&noOctglz.d 
о, 抽選 で 13 宮 の 読者 の 万 に 下記 の 各 製品 を プレ ゼン ト し ます . 


の スト レン ジ オデ ュ ッ セイ 
(スタ ー ク ラフ ト ) \7,500 
FM-7/8( デ ィ ス ク 版 ) 


宝探し 企画 株 式 会 社 の 入社 試験 を 突破 す 
る だ め に , 広い 宇宙 を 舞台 に アド ベン チャ 
ー し よう 。 

多 次 元 宇宙 の 体験 , FHA Е DÊ, < 
し て 謎 の プラ ッ ク ホ ー ル で は 何 が 待っ て い 
る の だ ろう か. 

3 名 


> ?1- 3:52 y0"2*4*h* FIN? を ます オル ん 
9919697 FE 9*"?b. 


8 


PIO プレ ゼン ト ・ コ ー ナ ー 当 選者 発表 


PiO 10 月 号 ゲ プレ ゼン ト ・ ユ コー ナー に , 多数 の 方 々 ょ り 御 応募 いな だ 


ЕГА 
г s キキ キー レキ キー キー トード ドー ヒー トー ドー 
+ 


官製 ハガキ に 右 下 の シー ル を 貼り , @Tf££PF@FK S£ OSREONX 3 7- 2232 4E@#5EQ) V 7 F? z 7 AF (下記 
+ で 紹介 し た ソフ ト の 中 か ら 1 つ だ け ) を ハッ キリ と 記入 し て , 12 月 1 日 (消印 有効 ) まで に PiO プ レ ゼ ント ・ 
+ コー ナー 宛 に 送っ て くだ さい . な お , 当選 発表 は PiO 2 月 号 で 行ない ます . 

T 注 : 応募 シー ル の 貼っ て な い ハ ガキ は 無効 に な り ま す . 


+ 
+ 
+ 
+ 
+ 
-- 


OIF NHARÊ 


(テク ノ ソ フト ) \4.,800 
MZ -1500(QD 版 ) 

リー チ , Mr, チー, 裏 ド ラ あ り で 東南 
まわ し の 半音 ジ メ . 速い (に スピー ド と 最高 に 
きれ いな グラ フィ ッ ク で 真剣 勝負 の 醍醐 味 
を 充分 味わっ て 。 キミ も ゎ 徒 狂 に な ら な いか ^、 


әнә ТА 


だ き あ り が と う ご ざ いま し だ . 抽選 の 結果 ,。 次 の 15 名 の 方 々 に ゲー み ・ 
メッ か っ ДУ СЪС ЮТУ. 


⑥ ベ ル セ ウ ス 


大 阪 府 枚方 市 

石川 県 金沢 市 &5ї%Ё# 
東京 都 葛 飾 区 岡 雄 生 
大 阪 府 松原 市 伊藤 = 


東京 都 台東 区 


* 商品 到着 まで 1, 2 週間 か か る 場合 が あり ます . あら か じ め ご 了承 くだ さい 、. 


OED NDE 


島根 県 出雲 市 金山 啓司 
新潟 県 豊栄 市 吉田 英 人 
東京 都 大 田 区 菊地 厚志 
大 阪 府 南 河内 郡 伊藤 博貴 


北海 道 室蘭 市 縫 部 充宏 


コス モブ ラス ターII 


(敬称 略 ) 


広島 市 安佐 南 区 余 平 哲也 
岡山 県 岡山 市 長治 和己 
兵庫 県 尼崎 市 柳沢 幸信 
大 阪 府 守口 市 向井 豊 英 


岡山 県 勝田 郡 平田 和宏 


PiO バ パサ ザール 


% 売 る 


還 7000 ボ ー カ セッ ト ・ イ インター フェイス 
(PC-8001mk II JH) Y2K C, まだ PC- 
8001mkII 用 キー ボー ド ・ カ バー を ぎ 0.5K 
C, 送料 を そちら 持ち . 
ж 520-30 滋賀 県 栗 太 郡 果 東町 小野 赤 
3x 1074 

佐藤 暁 


まま M5 用 ゲー ム , ジ ど ジョイスティック, カセ 

ッ ト ビ ジョ ン 用 ゲー ム を 各 ぎ 2K で . 詳し 

ЗМС, 

e 22] 横浜 市 神奈 川 区 入江 2-10-8 
白石 岳史 


Ф MB-6885+ 2 2 — 7 20 7 Z +12008 
—ROM *YX35—45KC. C14-1180 を 付け 
た 場合 は \65 一 75K で . 
ж 080-01 北海 道 河東 郡 音 更 町 中 鈴蘭 
北 6-7 

伊沢 秀 寿 


&$PB-200+FA-32312KC. 
æ 880 宮崎 市 江平 東 1-3-22 
佐藤 慎吾 


d PC-1500-- CE-157 + Ж e Y25K C. 
$ 144 東京 都 太 田 区 新 浦 田 3-15-20 
FIRE E] 


&$MZ-80C+PCG+ A+ 7 7 š )) — z X 
ku ЕВ 27 но Ф940 
45K で . バラ 売り 可 . TELorT € (РМ8 : 
00 —9 : 00). 
ж 306-04 茨城 県 猿島 郡 境 町 内 門 豆 五 
郎 669 

山本 正二 ® (0280) 87-2332 


更 常 時 禁 走 し て いる PC-1251 を CE-124 を 
fUCY2KC. 自分 で 直す か , シャ ー ジ 


へ 持っ て に いっ て 修理 する か し て くだ る きい. 


«e» 358 入間 市 黒 希 1-12-2-209 
山崎 昭博 


M5+BASIC-I, G+ ゲー ム ・ カ ター トリ 
у Z54*Y55—70K, МТТ, バラ 売り 
不可 . 
815 福岡 市 南 区 長住 5-13-21 

草場 竜次 


d PB-200(X- XJ} LF) +РВ-400+ЕА-3 


填 関 連 図書 を \30 氏 で . 値下げ 可 . TT. 


а 140 東京 都 品川 区 北 品 川 1-7-1-705 
Ж 


d$ SC-3000-- BASIC(v ^»vII) + Z a4 

ステ ィ ッ クオ ソフ ト 2 本 を 王 25K で . まず 

WFT. 

«€ 545 大 阪 市 阿倍 野 区 橋本 町 1-1-44 ` 
菅井 武彦 


ФРС-8001 (32K) + PC-8048K(1000 文 字 ) 

+РСС-8100 (18 2 4 27°) X60K C. また 

PCG-8800(3 声 タイ プ ) &X15—20K TKR 

ГС, 

т 598 大 阪 府 泉佐野 市 羽倉崎 団地 3-93 
竹之内 宗治 


あ M5 二 付属 品 キ カー トリ ッ ジ 11 本 を 

YX40K T. 

«e 733 広島 市 西区 鈴 が 峰 町 29-5-501 
初 山 勝 


ФРБВ-100+ОК-1+ЕА-3+ #2 冊 を \9K 

T. 

W 108 東京 都 港 区 港南 4-2-19-111 
和泉 一 志 


d$ MB-27601 を ぎ \80K で , GP-80M  Y30K 
T, GP-250F ##40K CÇ, MZ-BD5 を ぎ \60 
KT. 

we» 814 福岡 市 城南 区 茶山 2-13-12 
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ああ ファ ミリ ー コ ンピュータ オフ ァ ミ リー 
BASIC-- 2 € v КЖ Z Y25KEL ET. 高 
《 く 買っ て くれ る 人 優先 . で きれ ば 手渡 し 
希望 . 
т 959-26 新潟 県 北浦 原 郡中 条 町 星 の 
宮 9-11-1 

本 多 伸宏 


ФРС-6006 2 Y3K, 6001 用 ジョ イス ティ 
у 2 を ぎ 2K, PC-6011 ? YAK, СР-80Р e 
¥20K, PC-6042 を Y30K, PC-6031 を 
Y35K, 拡張 BASIC を \4K て . 
W 470-22 愛知 県 知多 郡 阿久 比 町 山田 
1-123 

橋口 康秀 


ФСЕ-124 2 Y2K C. 送料 は そちら 持ち . 

まず は 〒 で . 

e 270-11 
ЛИЛЕ 


千葉 県 我孫子 市 青山 台 2-22-8 


Ф MZ-1200 (48KB) + BH x [S] 3t e Y28 — 

32K. | 

æ 016-01 秋田 県 能代 市 字 下柳 6-4 
藤田 一 樹 


MZ-721 二 関連 図書 を \40K で . 送料 こ 
ちら 持ち .. まず は W〒 て . 
«€ 028-13 岩手 県 下閉伊 郡山 田町 川 向 
9-4 

熊谷 И] 


ああ フ ァ ミ リー コン ピュ ー タ ナナ ファ ミリ ー 

BASIC+ カ セッ ト 5 本 を \24K で . МТТ 

早い 者 順 . 

em 563-02 大 阪 府 筑 面 市 下 々 呂 美 467 
田畑 正昭 


ФРС-1501 +СЕ-150+ Ж3{ +277 > — 

7 *Y50K4 らい で 。 な お CE-126P を くれ 

5 AiX3Y40K4 Gv C. 手渡 し 希望 . まず 

は 希望 の 値段 を 書い て W〒 に て . 

€ 146 東京 都 太 田 区 久が原 5-20-6 
鈴木 守 一 


d» PB-200 士 FA-3 士 FP-12 十 関連 図書 を 
Y10—15K Ç らい で . ま た だ PC-1245 e Y8 — 
10K ぐ で ぐら いで. MAX マ シン + デー タ ・ レ 
=m—z'+BASIC+ # — h Y > Z #*310— 
11K で らい で . 

т 068-01 北海 道 空 知 郡 栗 沢 町 字 由 良 
735-11 

千葉 Bi 


ФСРС-8001 (32К, 44872 し )②FM-7 十 漢 

字 ROM③PC-8050K ( 箱 な L). ①\22K, 

② ぎ 75K, ③\8K, ② は 多少 値引き wp, W 

тт. 

т 650 神戸 市 中 央 区 北長狭通 3-1-2 
KURI _ 


dPC-1251-24 72 2 e Y15KC 
т 803 北九州 市 小倉 北 区 金鶏 町 5-17 
FURE 


d» VIC-1540 2 ¥41K, VIC-1010 を ¥11K, 
VIC-1111 # Y6K, VIC-1210 ¥ Y2K, VIC- 
1211M を 半 6K, VIC-1212 € Y6K (送料 込 ) 
で . 全部 まとめ て 買っ て くれ る 場合 は 
ぎ 67 人 KK( 送 料 込 ). 
W 462 名 古屋 市 北 区 東 長 田 1-6 

安間 秀樹 


吉 喜 工業 の カラ ー ギ デ ギャル 5 を 平 5K で て で. 
また は ロー タス の ゲー ム ボ ー ド (K2E 用 ) 
と の 交換 可 . 

«e» 447 愛知 県 碧南 市 本 郷 町 2-77 

角谷 道 治 


串 MZ-721 十 関連 図書 4 冊 十 々 を ぎ \35K で 

(多少 値引き 可 ). TEL 明 記 の 上 〒 ま だ は 

WTE: 

@ 133 東京 都 江戸 川 区 上 篠崎 2-170 、 
関谷 昌弘 


d$ PB-100-- FA-3-- OR-1E + В si [1 # (4 
M) FOKT. 連絡 は W〒 で . 


電 751 IL LL FEA rt SERERE RT 4-3-23 
深野 義隆 


PC-6001 二 PC-6006 十 図書 3 С X25K. 


TEL 記 入 W〒 で . 
ж 302-01 茨城 県 北 相馬 郡 開 谷 町 甲 
3234 

井田 武彦 


&$PV-2000+ Z a 4 X > 4 2 2 + ' — 
ム ・ カ ー ト リッ ジ 2 本 ライ ブラ リー を 
\25K で W〒 待 つ ( 箱 な し ). 
W 300-14 ZK Hk R AE BRA FIERET IE JI 
1377 

川上 裕二 


中 PB-700 十 パソ コン お も し ろ ゲ ー ム ③ 
7*X10—12K«. 
e 411 静岡 県 駿東 郡 長 泉町 下 長 窪 153 
沼津 高専 清 峰 寮 内 

大 久保 和 展 


Ф%ЕР-1100+-%—^?%—7 x7 *X30KT. 


送料 こち ら も ち . また 他 機 種 と の 交換 も 
B. zy S us 
Ww 631 奈良 市 西大寺 新 田町 3-18 

植村 良 孝 


利 MZ-80B2 十 関連 書籍 や \55K で . また だ 
PB-100 十 関連 書籍 を \5K で . 
W 372 群馬 県 伊勢 崎 市 美 茂 呂 町 3988- 
25 

小池 清 幸 


Ф PC-1251 十 CE-125S 圭 関連 図書 3 冊 を 
ぎ 35K で . 
@ 810 福岡 市 中 央 区 白金 2-11-27 

滝本 博文 


d$ PC-8001 (32K) + 2 2 — Æ = X +PC- 
6082 + PC-1245 * Y70K C. 
@ 271 松戸 市 三矢 小 台 2-9-6 

橋本 勝 雅 


ああ ロー タス ・ ゲ ー ム ボー ド (MZ-1200 用 ) 

と = デコ 倍速 基板 を 各 \10K で 

€ 151 東京 都 渋谷 区 代々 木 4-36-15 
江崎 大 志 


dPPC-1251-CE-120P- 24 72 ) 28 

十 関連 書 を \24K で らい で . まず は W〒 

*. 

電 214 神奈 川 県 川崎 市 多摩 区 菅 2703 
吉備 和 成 


名 ファ ミリ ー ベ ー シ ッ クオ 接続 コー ド を 
¥12KT. 
792 愛媛 県 新居 浜 市 萩 生 2632-1 

xii HH df — 


ФРС-6001љкП + Z a 4 X > 4 > 2 + 
本 類 を \80K で . まず は W〒 で . 
e» 710 岡山 県 倉敷 市 中 島 2407-13 

林 隆一 


d$ PC-6001 + PC-6006 + PC-6082 + EXAS 
BASIC コ ユン パイ ラオ 関連 図書 を 40 一 
50K で . 詳し く は W〒 で . 
we» 719-31 岡山 県 真 縫 郡 落合 町 下 河 内 
757 

河本 裕之 


€ VIC-1213 ( ぎ 2.5K) か ゲー ム ROM 

(VIC-1901 一 1908 は 除く FIK). まず 

RTT. 

ж 187 東京 都 小平 市 大 沼 町 2-838-4 
小川 私 文 


Ф PC-1251--CE-124 # YIOK C. WFT. 
«€ 529-16 滋賀 県 蒲生 郡 日 野 町 猫 田 127 
中 西 WE 


Ф PCG-8100 を ぎ \10 一 12K で らい で . まず 
は 〒 か W〒 で . 
ж 683 鳥取 県 米子 市 法勝寺 町 54 

野 波光 範 


Ф MZ-80 用 1/O ボ ックス € Y10K C. 
ж 029-08 岩手 県 東磐井 郡 千厩 町 千厩 
字 前 田 172-5 

三浦 貴美 也 


€PCG-81007 Y12—20K C. TEL の 番号 

を 書け れ ば 書い て 〒 で ". 

電 759-02 山口 県 宇部 市 厚 南 区 城野 
鈴木 一 雄 


る MZ-2000 の G-RAM I, П, 

て 

e» 823 福岡 県 鞍手 郡 宮田 町 東町 4 丁目 
坂本 憲一 


Ш # Y20K 


を PiO'84 年 5 月 号 を \0.5K で . 送料 そちら 
持ち . 書き 込み 可 . まだ , OR-1, FA-3 を 
各 \1K で て で. 
«5 691 鳥 根 県 平田 市 灘 分 町 546 

江角 俊也 


€PC-6006-- ВАЅІС 2 7^*4 7 を \8K. 
руа —Am»— 
トリ ッ ジ 5 本 を ぎ 10K. PC-1251 十 CE-125 
十 関連 図書 を \15K. 
電 466 名 古屋 市 昭和 区 里 町 1-23 

Ж 幹 根 


を る $MZ-700 用 PCG-700 2 Y10K C, 送料 そ 

ちら 持ち で お 願い し ます . TEL は PM6 : 

00—7 : 00 ま で . 

т 203 東京 都 東 久留 米 市 滝山 3-1-5-106 
小川 敬 是 ® (0424) 73-3305 


Ф РС-1251 +СЕ-124 少々 の キズ OK/ 
CE-124 は な く て も よい 。 "ЖИКС 6v X, 
W〒 待 もち ます . 
т 306-01 茨城 県 療 鳥 郡 三 和 町 諸 川 
1797-1 

鈴木 吉 明 


PiO'84 年 5 一 8 月 号 を 1 冊 0.4K で . WT 
CEOS 
© 555 大 阪 府 大 阪 市 西淀川 区 歌 島 2-4- 
40 

KEHF 


¢1/0’814E9 Н = t '82+F.10 Н = 7e1mpxo. 
5K で ぐら 6 いで (VIC-1001 の 記事 が あれ ば 切 
り 抜 き OK). それ と , VIC-1001 の マシ ン 
語 の マニ ュ ア ル , 入門 書 , テキ スト な ど 
あり まし た だ たら 適 価 で 譲っ て くだ る い . š 
ТБ, WTE 

Ww 355-02 埼玉 県 比企 郡 嵐山 町 大 字 大 
3591 

野村 朋之 


$ 任 天堂 ファ ミネ リー コ ユ コンピュー タ 二 カー 
トリ ッ ジ 5 本 くら い を \15K く らい で 売 
っ で て だ きい 安い 人 か カー トリ ッ ジ を 
だ くる ん つけ て くれ だ 人 を 優先 し ます 


(W〒 に 限る )。 
@ 073 北海 道 滝川 市 大 町 2-5-21 
中 尾 公俊 


$PCG-8100(NEW ТҮРЕ) を で きる だ 
け 安 く 売 っ て くれ る 人 の を 買い ます . d$ 
望 の 価格 を 書い て 〒 で . 
w 078-11 北海 道 旭川 市 宮下 19 丁 目 国 
鉄 AP103-408 

坂口 竜 己 


ディ スプ レイ (カラ ー, グリ ー ン )2000 
文字 一 4000 文 字 ( 高 解像度 )。 機種 , 購入 
年 月 日 , 価格 を 書い て W〒 で . 

@ 108 東京 都 港 区 白金 台 3-5-16 


ベー シッ クマ スタ ー 活 用 研究 を 半 1K 
РУНЬ ЧЕГ. 
電 771-02 徳島 県 板野 郡 北 島町 太郎 信 
須 字 外 開 2-102 

宮内 計 典 


を ファ ミリ ー コ ンピュータ ( 完 動 , 多少 の 

XAXueY3—4KC. まず は W〒 て . 

ж 751 山口 県 下関 市 綾 羅 木 本 町 6-3-3 
波多 野 直 哉 


を る $①PC-1251 を \10K 以 下 で . ②PC-1255 
を ぎ 15K 以 下 で . ③PC-1500 か PC-1501 を 
\20K 以下 で ファ ミリ ーー コンピュー 
タ を ぎ \5K 以 下 で . 専用 カモ セッ ト を ぎ 1K ぐ 
らい で . 安い 方 優先 . 希望 価格 を 書い て 
W〒 で . 

@ 302 茨城 県 取手 市 新町 4-10-9 

中 村 健 太郎 


€PiO 1) [4] [5| を [1| は \0.6K. その 他 
は ぎ 0.5K で . 送料 は こち ら 持 ち . 
we 700 岡山 市 津 鳥 東 4-6-5 松 風 ア パー 
ト 

森井 浩二 


1/O'82 年 8 月 号 \0.3KK で まず 〒 で . 
«€ 186 東京 都 国立 市 西 2-20-1 
源 関 英司 


Ф775: ) —a > É a — Z РБК € 6 
tC, 2+ > F Y1K—15KO@O 2558888 C НХ b 
に 行き y. # WS C. 
@ 135 江東 区 三好 4-7-20-401 

小島 秀俊 


€PCG-81007 YIBSKEA FC. МТС. 
520-05 滋賀 県 滋賀 郡 志賀 町 小野 朝 
日 1-5-12 

三輪 直樹 


Ф РС-6001НЕХАЅ BASIC コ ン パ イラ を 
Y3—5KC. まだ た は PC-6001 用 の ジョ イス 
> 4 > 2 £#3%$31—3KZ. W〒 待 つ . 
979-23 福島 県 相馬 郡 鹿島 町 寺内 字 
八幡 林 224-1 

原田 雅博 


Ф РСС-8100 2 ¥20KLI FT. また だ 7?83 年 9 

Нај OIO 7 $X0.3—0.5K C 希望 価 

格 と 1/O は 号 数 も 書い て W〒 で . 条件 の 

よい 人 人 から. 

670 兵庫 県 姫路 市 田 寺 1075-65 
長田 泰幸 


を PiO'84 年 4, 5 月 号 を 1 冊 \0.5K で . まず 
は W〒 で . 送料 は そちら 持ち で . 
ж 292-01 千葉 県 君津 郡 袖ヶ浦 町 上 泉 
1152 

及川 伸 洋 


PC-6001 用 拡張 ユニ ッ ト PC-6011+ 拡 
張 ベ ー シ ッ ク PCS-6001R を 9 人 KK で . 
@ 240 神奈 川 県 横浜 市 保土ヶ谷 区 岩崎 
H|149 

堀井 広 伸 


全 FM-7 用 ジョ イス ティ ッ ク ( テ ン ・ キ ー, 

BREAK, RETURN, スペ ー ス ・ キ ー 対 

応 ) を \5K で . また PiO[21 [4] [7] [8] 

|9 | を \2.5K. 

Ww 251 神奈 川 県 藤沢 市 片瀬 海岸 3-2-16 
EJI Ei i 


PC-6006 を \ ぎ 3K で らい で . PCG-8100 を 

ぎ 10K で . Z nd 5PC-1245 e Y7K C 56 5 

iT. 

W 483 江南 市 古 知 野 町 広見 23 
安藤 敏 春 


ФРС-6006 № Ұ5К RT. 安く 売っ て く 

れる 人 か ら 買 いひ ます . な お , 関連 図書 な 

ども 売っ て くだ さる い (半額 以下 で ) ま ず は , 

Tt. 

@ 735 広 人 烏 県 広 鳥 市東 区 上 温 品 2-20-5 
山本 洋志 


Ф РСС-8100 2 YISKfr C. 送料 は こち ら 

持ち で . ToT? ~T. 

¥ 509-53 岐阜 県 土岐 市 雪 木町 1845-15 
Diis 2 


€ п — 4 х СВ-20 (РС-8001 9) Y8K < 6 
i. 
ж 229 相模 原市 相原 531-14 

清水 HH 


€MZ2-20000G-RAM I, II, III Y20K 

p 

e» 823 福岡 県 鞍手 郡 宮 田町 東町 4 丁目 
坂本 憲一 


$PCG-8800 を ぎ \25K 以 内 で まず は W〒 
T. 
«€ 985 多賀 城市 南宮 字 席 申 227-1 

阿部 東南 


Y 7; ---MZ-7214- PC-1245 + Y5K + ж 
й J --- O X1Q@ HC-20 G MZ-1500 (2) PC- 
8201⑤PC-6601⑥FM-7, 8 の MZ-2200⑧ 
CF-3000 
W 655 兵庫 県 神戸 市 垂水 区 多聞 町 小 東 
山 868-445-513 

X 武士 


Y 当方 …IMZ-731 

貴方 …PC-6001mkII, FM-7/NEWT, X1 

e» 831 福岡 県 柳川 市 大 字 南 浜 武 699-4 
古賀 有希 人 


Y 当方 …PC-8001 十 PC-8044K 十 本 十 FX- 
702P + ¥30K + a 
貴方 …① ゆ FM-7or8 の PC-8001mk II OPC- 
6001mk II(D^* 7 € 7 79Y50K C »€ 5. 
© 410-03 静 岡 県 沼津 市 桃 里 320 

西原 和彦 


Y: 55-.-РВ-100+ЕА-3+а 

貴方 … フ ァ ミ リー コン ピュ ー タ orSG- 
1000 

電 236 横浜 市 金沢 区 富岡 町 2262-85 


竹下 秀明 


Ф 当方 …2000 文 字 カ ラー ディ スプ レイ 

貴方 …X1 専 用 ディ スプ レイ 

€» 754 山 唱 県 吉敷 郡 小郡 町 東 津 中 
藤井 秀雄 


Y 7; ---PB-7004- ж 
貴方 …①PC-1251/55/60 十 CE-124② フ ァ 
ミリ ー コ ンピュータ 十 カ ー ト リッ ジ 5 本 
LJ 上 ③ ぎ 20K で 売る . WFT 
$ 359 埼玉 県 所 沢 市 北 岩岡 635-10 

上 井 淳 史 


疹 当方 …PB-100 二 OR-1 圭 関連 書士 Z 十 

MAX マ シー ン 二 ミニ BASIC 二 ゲー ム ・ 

カー トリ ッ ジ 2 本 

貴方 …PC-1251 二 CE-124 ま た は PC-1245 

+CE-125/124 を お 願い し ます . くわ し く 

avc 

@ 367 埼玉 県 本 庄 市 東台 3-1-14 
松井 室 訓 


疹 当方 …PC-1501 二 CE-150 士 カナ テー 

十 関連 図書 数 冊 二 Z 

貴方 …PC-8001mk II 

@ 560 大 阪 府 豊中 市 東豊 中 町 6-5-6-404 
村岡 信太 郎 


Ф 当方 …PC-1245 十 教本 
貴方 …PB-700, PB-300 ま た はぎ \10K で 売 
る . 
@ 416 静岡 県 富士 市 本 町 15-29 
高井 円 


Y ` H ---GSX-8800 + Y2K 

中 方 …PCG-8200. また は ぎ 9K で 売る . W 

TX 

@ 249 MR GS f itifzili6-1326-52 
師 田 晃彦 


Ф 当方 …MZ-721 十 14M-13C 
貴方 …①PC-6001mk II ②\60K で 売る . 
iTTl 
& 050 室蘭 市 白鳥 台 4-4 2-302 
内 田 秀 樹 


Y 当方 …PC-8001mk II + *30K (PC-8801 
i ¥35K) 貴方 が PC-8801 以 外 な ら , カラ 
デー デア ィ イス プレ イイ 。 レビ コーダ も つけ ます 。 
貴方 …X1, X1C, FM-7 キ + レコ ー ダ タダ の い ず 
れ か 十 デ ィ ス プレ イ . まだ は PC-8801 
(mkII +f) 
Ww 501-11 岐阜 県 岐阜 市 黒野 129-12 
恒川 英男 


$ 当方 …PC-6001 十 PC-6006 十 本 士 フ ァ 
ミリ ー コ ンピュータ (キズ あり ) 土 カート 
リッ ジ 7 本 十 ヶ 
貴方 …FM-7orNEW7, また は 適 価 で 売 
5. 
ж 960 福島 県 いわ き 市 平 下 荒川 久世 原 
6-151 

北野 ¥ 


Q 当方 …MZ-721 十 本 . 貴方 が mkII な ら 

+¥10K. 

貴方 …①PC-6001 填 PC-6006 か PC- 

6001mkII. 20XY25—30K C65. また だ フ 

アミ リー コン ピュ ー タ 二 カ ー ト リッ ジ を 

At. МГЕ ТУ. 

ФО 675-13 兵庫 県 小野 市 本 町 659 
富田 賢二 


$ 7;---FP-1100-- ЖТ. 


ft Jj ---PC-8001/mk II か HB-75 (HB-55) . 


FE, 


愛知 県 蒲郡 市 西 蒲 町 北 相馬 


W 443-01 
31 
ІШТЕ Е 


Ф 当方 …FX-702P 十 FP-10 十 FA-2 

ft 方 …①PC-1261 の ②CE-125S③PC-1350 

@РС-14010 + QO A i: i¿X10K2° 2 х 

し ます . ③ の 方 で CE-516L つ け て くれ ただ 

Л, ④ の 方 で CE-126P つ け て くれ だ 人 に 

は 5K プ ラス し ます . ФО Ж, TŁ 

Жы a 

«€ 485 愛知 県 小牧 市 小牧 原 新 田 117-3 
伊藤 浩美 


疹 当方 …SG-1000( 箱 。 説明 書 な し )+ ジ 
Же УУ ж, бы Же е RAT 
貴方 …①PC-1261②PC-1251 二 CE-125. 
送料 は お た が い に 持 ち ま し ょ う . ① か ② 
の 番号 を 書い て W〒 で . 
W 344 埼玉 県 春日 部 市 武 里 団地 8-18- 
302 

ir URL AE 


Y 7j. PC-6001mkII + データ ・ レ コー 
タダ ' 十 ジョ イス ティ ッ ク 士 その他. 
ft Jj --- MZ-1500 £ 7213 Y70K C 76 5, 〒 待 
つ ( 電 話 番号 明記 ). 
€» 121 足立 区 青井 4-10-10 

ЖЖ 稔 


欧 当 方 …FP-1100 十 カラー ディ スプ レイ 

(2000 文 字 ) 十 Z 

貴方 …①PC-6001mk II + PC-60m43, © 

HC-20 キ マイク ロカ セッ ト ・ ド ライ ププ . © 

に は デー タ ・ レ コー タダ ' を つけ ます . ま ず は 

WI. 

«€ 671-22 兵庫 県 姫路 市 打越 1344-214 
JF R 


Eo 0 2 E 


— 


>>> 


Ш. ra, いか が だ っ た だ でしょ うか ? ゲー ム 自 体 が パ ズ 
ル で は な か っ だ も の も 入れ て あり ます が , パパ ズ る (当惑 る きせる) 
と いう 意味 で は , リア クシ ョ ン の パズル ・ ゲ ー ム と 言え ます 。 

最近 の 市 販 ソ フト の 流行 は . この よう な リア クシ ョ ン 型 の ィ * ズ 
ル の よう で す . 変化 の ある 面 を た くさ ん 持 だ せる こと が で き , € 
DER, プレ イヤ ー が 1 つの ゲー ム を 長く 遊べ る か ら で し ょ う . 
と ころ が 。 この こと が どう 勘違い る され て か , 最近 で は 面 数 が 多 け 
れ ば 多い ほど いい と いう 風潮 が あり ます . いく ら 面 数 が 多く て も , 
その 面 に 変化 が な か っ た り 単 純 び っ だ り し た だ た ら 意 味 な いと 思う の 
CT» 皆さん は どう 思い ます か ? (A) 
2 一 3 日 前 か ら 急 に 寒さ き が きび し く な り , いよ いよ 待ち 兼ね た 
ウイ ンタ ー ス ポー ツ の 季節 が や っ て きま し だ た だ. 読者 の 皆さん も , 
今年 の 各 に は きっ と スキ ー や スケ ー ト な どの ウイ ンタ ー ス ポー ツ 


\ 私 も , 今年 の 冬 は ウイ ンタ ー ス ポー ツ で 大 い に 楽 し み だ い と 思 
N いま す . で も … し か し … そ うい えば … 私 は スキ ー は や っ だ こと が 
N 2 АОК 
\ ンク を 1 周回 る あい だ に 何 度 し り も ち を つい だ か 数 を えら れ な い は ほ 
f どの 腕前 . こ りゃ だ め だ , 今年 も コタ ツ の 中 に こも っ て , パッ ツッコ 
\ ン の スキ ー ゲ ー ム で も し て よ / (O) 
MCh. 星空 が た と て も きれ いな 季節 で す . 私 は 山奥 の 出身 
N な の で , 寒く な る と いつ も 厚着 を し て 外 へ 出 , 震え な が ら 星 空 を 
елес. 悲し いか な , ここ は 東京 (一 応 都内 
N に 住ん で いま す ). 見 える 星 ほ と 上 いえ ば 月 と 太陽 , を し て この 地球 


P >> 


定期 購読 に つい て 
予約 申し 込み は 1 年 間 を 原則 と し ます . 


1 年 5,000 円 (送料 含 ) 

Wk o 
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を 楽し も うと , 今 か らい ろ い ろ と 計画 を 立て て いる こと で し ょ う . 


U pv ДИЛ ЫЕ; 


だ け な の で すか ら …. y 
な ん て ちょ っ と 感傷 的 (で も な いか な ?) に な っ て し まい まし \ 
だ が , それ と いう の も 先日 , 久し振り に 天文 雑誌 を 買い , その 中 
の 広告 に マイ コン 内 蔵 の 天体 望遠 鏡 用 コン トロ ー ラ が 載っ て いた \ 
か ら な の で す . これ は , 天体 の 名 前 を 入力 する と , その 天体 を 捕 M 
ら え る よう に 天体 望遠 鏡 を 動か し て くれ る と いう も の だ そう で す . 
実 を いう と , 私 は この シス テム を 我 が 愛 機 に や ら せ よ うと 思っ て \ 
ぃ いた だ た の で す が , その 前 に 愛 機 が ダウ ン し て し まう と … で すね ぇ . M 
(V) 
B DLIA, 季節 の 移り 変り が は っ きり 感じ られ る よう な 気候 
が 続い て いま すね . と する と , 今年 の 冬 も 大 雪が …, дн eb 
ぃ い ので 障る と だ い べ んで す .。 それ に し て も 。 つい この 問 まで 者 
て だ ま ら な か っ た の に , b IREL (Y2) 
Шоо сх ЁО, 読者 の みな る ん カゼ を ひか な いよ うに 
気 を つけ て くだ きい ね ./ さ て , PiO 編集 部 で 数 少な い ナ イコ ユン の 
私 は 新 製品 が 出る と , ん . / こ れ も い いな , あれ も いい な と と, ブツ A 
ブツ ひと り 言 を 言っ て いま す . いっ だ た だい, いつ 買え る こと や ら 97? 
(Shu) 
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Mix Pk 
④ 郵 便 振替 《 東 京 5-22510》 

裏 の 通信 欄 に , 必ず PiO 何 月 号 か ら ご 希望 が 明記 し て ください. 
ORTES 
OER RE 

x NTOD~ODEHK COKE<SE SLI. 
(1,000 円 以上 の 切手 代用 は ご 遠慮 願い ます ) 


PiO 何 月 号 か ら ご 希望 明記 し た も の 
を 同 寺 し て こく ださい. 


昭和 59 年 12 月 1 日 発行 (毎月 1 回 1 日 発行 ) 


〔 営 業 〕 7*(03)375-5784(9 
Оа) (03) 370-330100 
[編集 〕 ® (03) 320-121800 

定価 48069 


ぜん らく ビル 5F 


NIHON TECKNO 
あな た の デス ク を /『 ン フン デス ク に し て み ぼ どん が / 


(タッ プ ホ ル ダ 別売 ) 


660(W)X430(D)X670(H)m 


` 
Ww. —rJÑa 


| 2 プリ ンタ ー 用 # 


プリ ンタ ー 用 紙 / 


@ オ ー ル スチ ー ル 製 で 耐久 力 アッ プ / 
e 垂直 配置 で 机 が 広く 使え る 。 
Ф リン ター 用 紙 も ラク ラク 収納 。 
発売 記 @ プリ ンタ ー 専 用 台 に も 変身 。 
定価 \21,500 価格 Y- 16 „BOO ems nanan e 補強 棚 に より 1 棚 30kg 積載 可能 。 
(専用 プリ ンタ ー 用 紙 ス トッ カー 付 ) (キャ スタ ー 付 は 1,000 円 アッ プ ) @ NEC、 シ ャ ー プ 、 富 士 通 、 日 立 等 々 各 機 種 に 対応 。 


むう 日 本 テリ ノ 株 式 会 社 


&5555 大 阪 市 西淀川 区 御幣 島 2 丁目 8 番 7 号 合 (06) 475-2602 ( 代 ) 
※FAX で の ご 注文 は 、 休 祭日 を 問わ ず 24 時 間 自動 受付 けい た し まち も FAX:(06)475-2522( 各 モー ド 対 応 ) 


お 申し 込み は 右記 要領 で ハガキ 、 
TEL、 ま た は 、FAX で どう ぞ 。2-3 日 
で 宅 着 し ます 。 (北海 道 、 沖 縄 、 離 島 3 
等 は 一 週間 程度 ) 5 
お 支払 い は 銀行 振込 、 郵 便 振替 、| 6 商品 の お 届 先 住所 
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Муч 
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現金 書留 で 商品 着 後 一 周 問 以内 | の № 
に お 支払 いく だ さい 。 お 支払 い 方 法 | 9 一 括 払 い ・ 分 割 払い 

に つき まし て は 、 商 品 と と も に ご 案内 | の 区 別 

いた し ます 。 1 š ご 覧 に な つ だ 雑誌 名 


м 


dl 


ul) ER OO (TD AND 


EBX 


仕事 を 欲 は 2 遊び を 欲 ば 2 


優れ た ハー ド に は 、 い い ソ フト と 周辺 機器 が 集まっ て くる 。 オー ル ラ ウン ド バ パソ コン 、 PC-8801mkIL。 


ee e e oe о ө ө ө е ө э ө ө ө ө е ө ө ө oe ө ө е э ө э ө ө э ө ө ө ө ө ө ө ө е ө ө ө э э ө э ө ө ө ө о ө е ө ө ө э е ө ө ө ө ө ө е ө ө 


ミニ フロ ッ ピ イデ イス ク を 内 蔵 し " 8 ビッ ト 機 最高 の コス ト パ 


ee 


フォ ー マ ン ス を 誇る 基本 性 能 。 ソフ ト は すでに 数 千種 類 、 


s oo oe oo oes oo o ө ө ө ө э ө о ө ө ө ө е ө ө ө ө ө ө э ө ө ө ө ө ө ө ө ө ө ө ө э ө ө ө ө ө ө ө ө е ө э ө э ө ө ө ө ө ө ө ө ө ө ө 


現在 も る ら に 増え つづ け て いる 。 周辺 機器 も 、 着 々 と を の 数 


に し し 


を が 順 し て いる 。 初 者 か ら マ ニア ま て 、 ホ ビー か 6 ビジ ネス 


ee ө ө ө ө ө ө ө о 


まで 、 と どん な 用 途 に も 対応 する 奥 の 深 い パ ソコ ン 、 


ee ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө о 


c1 b PC-8801 mk II, 


e€**069€6029209092969480928929099992992960602909240$9606€9829960999292906029€0929260929929929292292296029€90992929*29 


ж model 30 は 2 台 , model 20 は 1 £ , model 10 で は オプ ショ ン に な り ま す 


mm Pusa FSB 


@ 実績 の Nss-BASIC PC-8800 シ リー ズ の 膨大 な ソフ ト 資 産 を 受け 継ぎ 、 き ら に 次 々 と 新しい シフ ト が 開発 され 
て いま すか ら 、 ど ん な 用 途 に も 応用 が きき ます 。 信 日 本 語 を 本 格 的 に マス ター JIS 第 一 水準 の 漢字 ROM を 標準 
実装 。Nss- 漢 字 BASIC の 提供 に より 、 日 本 語 処理 機能 も 本 格 化 。 日 本 語 ワー プロ ソフ ト も 個性 が いろ いろ みろ 、 使 
い 勝手 に 合わ せ て 選べ ます か ら 、 手 紙 や レポ ー ト 、 社 内 廊 書 な どす ば や く 〈 手 軽 に 美しく 作り あげ ます 。 0857 
ラフ ィ ッ ク 機 能 級 富 な 表現 を 可能 に する 640X400 ド ッ ト の 高 解像度 。Nsgs-BASIC の 強力 な グラ フィ ッ ク ユ マ 
ンド に より 、 精 密 な 漢字 表示 、 廊 字 表 示 と グラ フィ ックス の 「 重ね 合わ せ 機 能 」、 中 間 色 ペイ ント な ど 、 高度 な 機能 
を クリ ア し ます 。 @ さらに 高度 な 活用 も 可能 PC-NET 利 用 の ネッ トワ ー ク や 、 パー ソナ ル タ プ レット 使 用 の 
図形 作成 シス テム な ど 、 周辺 機器 の 接続 に よっ て 高度 な 拡張 機能 が 可能 に な り ま す 。 この ほか 内 蔵 の 拡張 スロ 
ッ ト に より 、16 ビ ッ ト カ ー ド 、 音 声 認 識 ボ ー ド 、 ミ ュー ジッ クイ ンタ フェ ー ス ボー ド な ど が 自由 に 活用 で きま す 。 


@CPU メイ ン 。PD 780C-1 (Z80A コ ン パ チ ブ ル ) プ サ プ PD 780C-1( デ ィ ス クコ ント ロー ル 用 )@ RAM ユ ー ザ ー ズ メモ リ 64K バ パ 
イト Nss-BASIC 動 作 時 : テ キス ト エ リア 32K バ イト 、 変数 エリ ア 24K バ イト (Nas-DISK BASIC 使 用 時 :12K バ イト ) ө グラ フィ ッ ク 
表示 モノ クロ :640X200 ド ッ ト 3 画 面 、640X400 ド ッ ト 1 画 面 バ カラ ー :640X200 ド ッ ト 1 画面 @ ミニ フロ ッ ピ ィ デ ィ ス ク 最大 2 基 : 
本 体 に 内 蔵 可 拡 張 用 ミニ フロ ッ ピ ィ デ ィ ス クイ ンタ フェ ー ス 内 蔵 @ 外形 寸法 本 体 350(W) X345(D) X125(H) キーボー ド 


412 (W) х 195 (D) X32(H)( 単 位 mm) 
| eun model 10 本 体 標準 価格 ……・168.000 円 
あて パー ソナ ルコ ンピュータ model 20 本 体 標準 価格 ………・225.000 円 


PC-8800 コ リーズ (опу ТР) 


PC- 8 80l тк model 30 本 体 標準 価格 ………-275.000 円 
(フロ ッ ピ ィ 2 台 内 蔵 ) 


※ デ ィ ス プレ イ は 別売 。model 10、20 は オプ ショ ン と し て ミニ フロ ッ ピ イィ ディ イス ク が 本 体内 に 2 台 ま で 内 蔵 で きま す 。 


新しい 自分 の 文化 を 創造 する パソ ツ コン PC-8801mkII 
高 性 能 は ヒト を や さき し くす る 。 


V. НМ 


